控制項簡介
CheckBox控制項就是我們一般所說的複選框，通常用於某選項的打開或關閉。大多數應用程式的“設定”對話框內均有此控制項。我們看到的可以打勾的就是CheckBox。
該控制項表明一個特定的狀態（即選項）是選定 (on，值為true) 還是清除 (off，值為false)。在應用程式中使用該控制項為用戶提供“ True/False”或“ yes/no”的選擇。進行選項組合。
在 HTML 文檔中 每出現一次，Checkbox 對象就會被創建。
您可以通過遍歷表單的 elements[] 數組來訪問某個選擇框，或者通過使用 document.getElementById() 。
控制項主要屬性
1.Value： vbChecked=1，選中；vbUnchecked=0，未選中
在其他控制項中用法相同的屬性不再列出。
2.在新版VS2010中，其checked屬性標示其選中與未選中的狀態
CheckBox1.Checked = True 表示選中
CheckBox1.Checked = False 表示未選中
主要事件
Click：滑鼠單擊
通常在觸發Click事件的時候首先進行Value值的判斷（即選項被改變），然後進行後續操作。
屬性設定
對象- 屬性- 設定
Form- Name
Caption -frmCheck
Check- Box -Example
Text- box -Name
Text- txtDisplay
Some -sample- text
First -Check box Name
Caption- chkBold
&Bold
Second- Check box Name
Caption -chkItalic
&Italic
CommandButton - Name
Caption -cmdClose
&Close
選定粗體或斜體時，CheckBox 的 Value 屬性值設定為 1 ，不選定時為 0。預設 Value 值為 0，所以除非改變 Value 屬性值，否則第一次顯示時不會選定 CheckBox。可以用常量 vbChecked和 vbUnchecked表示數值 1 和 0。
應用程式中的事件
當單擊 CheckBox 時，會發生 CheckBox 的 Click 事件。此事件過程將測試是否選定
Private Sub chkBold_Click ()
If ChkBold.Value = vbChecked Then '如果選定。
txtDisplay.Font.Bold = True
Else '如果沒有選定。
txtDisplay.Font.Bold = False
End If
End Sub
Private Sub chkItalic_Click ()
If ChkItalic.Value = vbChecked Then '如果選定。
txtDisplay.Font.Italic = True
Else '如果沒有選定。
txtDisplay.Font.Italic = False
End If
End Sub
基本內容
CheckBox表明一個特定的狀態是選定 (on) 還是清除 (off)。在應用程式中使用 CheckBox 為用戶提供了“True/False”或“yes/no”的選擇。
CheckBox 應用程式
這個例子使用一個 CheckBox 來決定文本用普通字型還是用斜體字顯示。
下表列出了應用程式中的對象的屬性設定。
對象- 屬性- 設定
Form- Name
Caption -frmCheck
Check- Box -Example
Text- box -Name
Text- txtDisplay
Some -sample- text
First -Check box Name
Caption- chkBold
&Bold
Second- Check box Name
Caption -chkItalic
&Italic
CommandButton - Name
Caption -cmdClose
&Close
選定粗體或斜體時，CheckBox 的 Value 屬性值設定為 1 ，不選定時為 0。預設 Value 值為 0，所以除非改變 Value 屬性值，否則第一次顯示時不會選定 CheckBox。可以用常量 vbChecked 和 vbUnchecked 表示數值 1 和 0。
check box 應用程式中的事件
當單擊 CheckBox 時，會發生 CheckBox 的 Click 事件。此事件過程測試是否選定 .
Private Sub chkBold_Click ()
If ChkBold.Value = vbChecked Then '如果選定。
txtDisplay.Font.Bold = True
Else '如果沒有選定。
txtDisplay.Font.Bold = False
End If
End Sub
Private Sub chkItalic_Click ()
If ChkItalic.Value = vbChecked Then '如果選定。
txtDisplay.Font.Italic = True
Else '如果沒有選定。
txtDisplay.Font.Italic = False
End If
End Sub
