Discuz教程网

1314学习网»站长论坛 › 站长交流区 › 技术杂谈 › 做一个登陆界面的程序
返回列表 发新帖

做一个登陆界面的程序

[复制链接]
authicon 天涯地方 发表于 2011-1-5 19:00:16 | 显示全部楼层 |阅读模式
  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
复制代码




上一篇：VB编写的RPG游戏完整源码
下一篇：[电子科技大学]VB程序设计[31讲][陈峦][wmv]
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

1314学习网 ( 浙ICP备10214163号 )

GMT+8, 2025-5-3 09:25

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表