用VB制作登录界面
| label控件 | 5個 |
| textbox控件 | 2個 |
| commandbutton控件 | 5個 |
?
打開VB,新建標準EXE工程,如下圖
調整窗口大小,把backcolor屬性調整為&H00FFFF00&,然后把form1窗口編輯成如下圖的樣子。
(注意:label控件的autosize屬性要設為true,密碼text輸入框的passwordchar屬性為*)
接著,添加一個窗口,把窗口布置成如下圖:
像剛才那樣,在添加一個窗口,把窗口布置成如下圖:
外觀布置完畢,開始編寫代碼:
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
整個程序就編寫好了,按F5鍵運行吧!
總結
- 上一篇: javascript --- 异步工作
- 下一篇: uml在线画图共享网站