摘要:EnableWhenCheckedChk
Public Sub CheckedChkBoxThenEnableObject(ByVal psChkBox As Object, ByVal psObject As Object) 
Public
' psChkBox is checked then enable psObject Try Select Case psObject.GetType.Name Case "TextBox" If psChkBox.Checked = True Then psObject.Enabled = True psObject.focus() Else psObject.Enabled = False psObject.text = BLANK End If Case "RadioButton", "CheckBox" If psChkBox.Checked = True Then psObject.Enabled = True Else psObject.Enabled = False psObject.checked = False End If Case "DateTimePicker" If psChkBox.Checked = True Then psObject.Enabled = True Else psObject.Enabled = False End If End Select Catch Err As Exception Call ErrHandler(Err.Message, APP_NAME) End Try 
End Sub
Public Sub CheckedChkThenDisableOject(ByVal psChkBox As CheckBox, ByVal psObject As Object) ' psChkBox is checked then disable psObject Try Select Case psObject.GetType.Name Case "TextBox" If psChkBox.Checked = True Then psObject.Enabled = False psObject.text = BLANK Else psObject.Enabled = True End If Case "RadioButton", "CheckBox" If psChkBox.Checked = True Then psObject.Enabled = False psObject.checked = False Else psObject.Enabled = True End If Case "DateTimePicker" If psChkBox.Checked = True Then psObject.Enabled = False Else psObject.Enabled = True End If End Select Catch Err As Exception Call ErrHandler(Err.Message, APP_NAME) End Try End Sub
Public Sub UncheckedChkBoxThenClearTxtBox(ByVal psChkBox As CheckBox, ByVal psTxt As TextBox) Try If psChkBox.Checked = True Then psTxt.Text = BLANK psTxt.Enabled = False Else psTxt.Enabled = True End If Catch Err As Exception Call ErrHandler(Err.Message, APP_NAME) End Try End Sub
Public Sub CheckedChkBoxThenUncheckedOtherChkBox(ByVal psChkBox As CheckBox, ByVal psOtherChk1 As CheckBox, Optional ByVal psOtherChk2 As CheckBox = Nothing) Try If psChkBox.Checked = True Then psOtherChk1.Checked = False If psOtherChk2 Is Nothing Then Exit Sub psOtherChk2.Checked = False End If Catch Err As Exception Call ErrHandler(Err.Message, APP_NAME) End Try End Sub
------------------
熱愛生命 喜愛新奇 有趣的事物
過去 是無法改變
將來 卻能夠創造
希望使大家生活更便利
世界更美好
a guy who loves IT and life
