PrivateSub UltraCalendarCombo1_AfterCloseUp(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ultraCalendarCombo1.AfterCloseUp
Dim newValue AsStringIf (Me.ultraCalendarCombo1.Value IsNothing) Then
newValue = "Nothing"Else
newValue = Me.ultraCalendarCombo1.Value.ToString()
EndIf
System.Diagnostics.Debug.WriteLine("AfterCloseUp: Value = " + newValue)
End Sub
'宣言
Protected Overridable Sub OnAfterCloseUp( _
ByVal e As EventArgs _
)