1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Public Property Name() As String
Get
Return f_Name
End Get
Set(ByVal value As String)
If value <> f_Name Then
' vérifie que ce nom n'est pas déjà ds la liste...
If Me.DesignMode = True Then
If f_ParentCombo.DDLColumns_ContainsName(value) Then
Throw New ArgumentOutOfRangeException("LabelName", value, "ce nom existe déjà")
End If
End If
If f_ParentCombo.DDLColumns_ContainsName(value) Then
Throw New ArgumentOutOfRangeException("LabelName", value, "ce nom existe déjà")
End If
f_Name = value
End If
End Set
End property |
Partager