【正文】
Text1屬性: PassWordChar* 添加標(biāo)簽 caption屬性為“請(qǐng)您輸入您的昵稱”的 label控件;添加一個(gè)文本框和一個(gè) caption屬性為“下一步”的命令按鈕,其 enabled屬性為 false. Private Sub Text1_Change() = True = End Sub 單選框 amp。復(fù)選框 amp??蚣芸丶?yīng)用 ? 框架控件(為了將控件分組,首先需要繪制 Frame 控件,然后繪制 Frame 里面的控件。這樣就可以把框架和里面的控件同時(shí)移動(dòng)) : Caption 屬性 ? OptionButton 控件 amp。Checkbox 控件 共同屬性: Style 屬性( 0為標(biāo)準(zhǔn)的缺省值, Checkbox 控件顯示為在其身旁有一個(gè)標(biāo)簽的復(fù)選框, OptionButton 顯示為在其身旁有一個(gè)標(biāo)簽的選項(xiàng)按鈕; 1為控件用圖形樣式顯示,Checkbox 控件顯示為類似按鈕的 CommandButton,它能上下切換; OptionButton 顯示為類似按鈕的 CommandButton,它保持向上或向下的切換,直到它的選項(xiàng)群組內(nèi)的另一個(gè) OptionButton 被選中); Private Sub c1_Click() If ch1 And ch2 Then = 報(bào)名參加籃球和排球比賽 ElseIf ch1 Then = 報(bào)名參加籃球比賽 ElseIf ch2 Then = 報(bào)名參加排球比賽 Else = End If End Sub 菜單設(shè)計(jì) 添加一個(gè)文本框 ,其 text屬性為“歡迎使用 vb” 添加菜單:選擇工具菜單下的菜單編輯器,添加如圖菜單 , 編輯器中的可見(jiàn)屬性不選 (即菜單不可見(jiàn) ). Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu kj (即鼠標(biāo)右鍵時(shí)彈出快捷菜單) End Sub Private Sub add_Click() = + 1 End Sub Private Sub sub_Click() = 1 End Sub