Public Class LboxRadio
Public Shared validateNone As Boolean = False
' ******************************************************
' validate コントロール用
' ******************************************************
Protected Overloads Overrides Sub OnValidating( _
ByVal e As System.ComponentModel.CancelEventArgs)
' ******************************************************
' validateNone が True ならば、Valdating は発生しない
' ******************************************************
If Not validateNone Then
If Me.Enabled = True Then
MyBase.OnValidating(e)
End If
End If
End Sub
Protected Overloads Overrides Sub OnValidated( _
ByVal e As System.EventArgs)
' ******************************************************
' validateNone が True ならば、Validated は発生しない
' ******************************************************
If Not validateNone Then
If Me.Enabled = True Then
MyBase.OnValidated(e)
End If
End If
End Sub
' ******************************************************
' 同一処理支援
' ******************************************************
Private _Group As Integer = 1
<System.ComponentModel.DefaultValue(1)> _
Public Property Group() As Integer
Get
Return _Group
End Get
Set(ByVal value As Integer)
_Group = value
End Set
End Property
End Class
|