做一个登陆界面的程序

1. Private Sub Command1_Click()
   
2. If Text1.Text = "zxc5154814" And Text2.Text = "zxc5154814" Then
   
3. MsgBox ("欢迎进入本系统！")
   
4. Form1.Hide
   
5. Form2.Show
   
6. Else
   
7. MsgBox ("用户名或密码错误")
   
8. End If
   
9. End Sub
   
10. Private Sub Command2_Click()
    
11. a = MsgBox("确定要退出本系统吗？", 3 + 32 + 256, "系统提示！！")
    
12. If a = 6 Then
    
13. Unload Me
    
14. End If
    
15. End Sub
    
16. Private Sub Command1_Click()
    
17. Command1.Caption = "继续"
    
18. Timer1.Enabled = True
    
19. Command1.Enabled = False
    
20. Command2.Enabled = True
    
21. End Sub
    
22. Private Sub Command2_Click()
    
23. Timer1.Enabled = False
    
24. Command2.Enabled = False
    
25. Command1.Enabled = True
    
26. End Sub
    
27. Private Sub Form_Load()
    
28. Command1.Caption = "开始"
    
29. Command2.Caption = "停止"
    
30. Timer1.Interval = 50
    
31. Timer1.Enabled = False
    
32. Label1.Caption = ""
    
33. Label1.AutoSize = True
    
34. Label1.FontSize = 16
    
35. Label1.FontBold = True
    
36. End Sub
    
37. Private Sub Timer1_Timer()
    
38. If Label1.Left < Width Then
    
39. Label.Left = Label1.Left + 20
    
40. Else
    
41. Label.Left = 0
    
42. End If
    
43. End Sub
    

复制代码