當(dāng)前位置:
首頁(yè) >
用VB制作登录界面
發(fā)布時(shí)間:2023/12/10
31
豆豆
| label控件 | 5個(gè) |
| textbox控件 | 2個(gè) |
| commandbutton控件 | 5個(gè) |
?
打開(kāi)VB,新建標(biāo)準(zhǔn)EXE工程,如下圖
調(diào)整窗口大小,把backcolor屬性調(diào)整為&H00FFFF00&,然后把form1窗口編輯成如下圖的樣子。
(注意:label控件的autosize屬性要設(shè)為true,密碼text輸入框的passwordchar屬性為*)
接著,添加一個(gè)窗口,把窗口布置成如下圖:
像剛才那樣,在添加一個(gè)窗口,把窗口布置成如下圖:
外觀布置完畢,開(kāi)始編寫(xiě)代碼:
form1各控件代碼:
Private Sub Command1_Click()
If Text1 = "admin" And Text2 = "skadmin" Then
Form1.Hide
Form2.Show
Else
Form1.Hide
Form3.Show
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub
Private Sub Command3_Click()
End
End Sub
form2各控件代碼:
Private Sub Command1_Click()
End
End Sub
form3各控件代碼:
Private Sub Command1_Click()
Form3.Hide
Form1.Show
Form1.Text1 = ""
Form1.Text2 = ""
End Sub
整個(gè)程序就編寫(xiě)好了,按F5鍵運(yùn)行吧!
總結(jié)
- 上一篇: javascript --- 异步工作
- 下一篇: uml在线画图共享网站