單擊【添加窗體】按鈕向當(dāng)前工程中再添加一個(gè)窗體,其中一個(gè)窗體用作驗(yàn)證密碼。在用作驗(yàn)證密碼的窗體上放置兩個(gè)標(biāo)簽控件、一個(gè)文本框控件和一個(gè)按鈕控件,如圖5.21所示。各對(duì)象屬性設(shè)置如表5.14所示。在另一個(gè)窗體上放置一個(gè)標(biāo)簽控件和一個(gè)按鈕控樣,如圖5.22所示,各對(duì)象的屬性如表5.15所示。
雙擊驗(yàn)證密碼窗體中的【確定】按鈕,打開【代碼】窗口,將下列代碼添加到ComOk_Click事件過(guò)程中:
Private Sub ComOK_Click()
Static i As Integer
If i<=2 Then
If TexPass.Text=“abcd”Then
Unload ForPass
Formain.Show
Else
LabMsg.Caption=“密碼錯(cuò)誤,請(qǐng)?jiān)僭囈槐?”
End If
Else
LabMsg.Caption=“三次輸入錯(cuò)誤,拒絕重新輸入!”
TextPass.Enabled=False
End If
i=i+1
End Sub
相關(guān)推薦:2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |