Исключение сообщения об отказе в пользовательском свойстве

Question

Я разрабатываю пользовательскую библиотеку с настраиваемыми элементами управления. Мне нужна Visual Studio показывает сообщение в режиме дизайна, когда пользователь вставляет недопустимое значение в пользовательское свойство, как это делает visual studio при попытке Color.Transparent для BorderColor в Button.

Кусок кода:

Public Class ButtonWithBrigthness 'It inherits from Button in .Designer.vb 

    Private _brigthness As Integer 

    Public Property Brightness() As Integer 
    Get 
     Return _brigthness 
    End Get 
    Set (value as Integer) 
     If (value >= 0 And value <= 10) Then 
      _brigthness = value 
     Else 
      'Throw Exception for an invalid value.... 
     End If 
    End Set 
    End Property 

End Class 

Answer 1

Чтобы знать, если вы находитесь в режиме конструктора или нет, вы можете использовать DesignMode Property.

Далее вам нужно знать, что если вы создадите исключение из средства настройки свойств в режиме проектирования, сетка свойств поймает его и отобразит окно с сообщением «Недопустимое значение свойства», пользователь может нажать «Подробности», чтобы увидеть введенное пользовательское сообщение. Если вы хотите сделать лучше, вы увидите окно сообщений, указывающее, почему оно не работает.

Во всяком случае, если вы хотите поднять исключение:

Public Property Brightness() As Integer 
    Get 
     Return _brigthness 
    End Get 
    Set (value as Integer) 
     'I rewrote the condition, but you don't have to, just put the exception in the else... 
     If value < 0 Or value > 10 Then 
      'Here we throw the Exception only in design mode 
      'So at runtime just nothing will happen... 
      If Me.DesignMode Then 
       Throw New ArgumentOutOfRangeException("Brightness must be between 0 and 10") 
      End If 
     Else 
      _brigthness = value 
     End If 
    End Set 
End Property 

И если вы хотите, чтобы показать хороший ящик сообщение ...

Public Property Brightness() As Integer 
    Get 
     Return _brigthness 
    End Get 
    Set (value as Integer) 
     If value < 0 Or value > 10 Then 
      'Here we show the MessageBox only in design mode 
      'So at runtime just nothing will happen... 
      If Me.DesignMode Then 
       MessageBox.Show("Brightness must be between 0 and 10", "Invalid Brightness Value") 
      End If 
     Else 
      _brigthness = value 
     End If 
    End Set 
End Property