【正文】
d If End Sub Private Sub Command2_Click() Dim i As Integer For i = 0 To 1 If ((i) = True) Then = + vbNewLine + _ (i) End If Next i End Sub 19 Frame 屬性 BorderStyle 邊框樣式 Caption 標(biāo)題文字 BorderStyle=1 BorderStyle=0 20 CheckBox 每個(gè)元件獨(dú)立 屬性 Caption 出現(xiàn)的文字 Enabled 是否有致能 Value 0 未勾選 1 勾選 2 …… 21 OptionButton 每組元件只能有一個(gè)被勾選 屬性 Caption 出現(xiàn)的文字 Enabled 是否有致能 Value True False 22 OptionButton(cont’d) 利用 frame分組 23 Menu 按右鍵 24 Menu(cont’d) 25 Menu(cont’d) amp。File ……amp。Open …… ……amp。Exit amp。Color ……amp。Red ……amp。Green ……amp。Blue amp。Help Checked 分隔用的橫線 VB會(huì)產(chǎn)生相對(duì)應(yīng)的物件 26 Private Sub Blue_Click() = False = False = True