Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
这个我做好了，就是继续和暂停的命令按钮的工程还不会弄
command1.。。。
command2.。。。
省略号填工程内容。
谢谢各位了
vb怎么制作小时钟？？麻烦各位帮帮忙呀！！！
答案:4 悬赏:70 手机版
解决时间 2021-02-04 07:30
- 提问者网友：捧腹剧
- 2021-02-03 18:00
最佳答案
- 五星知识达人网友：鱼忧
- 2021-02-03 18:12
'很简单啊
command1_click() '继续
timer1.enabled=true
command2_click() '暂停
timer1.enabled=false
command1_click() '继续
timer1.enabled=true
command2_click() '暂停
timer1.enabled=false
全部回答
- 1楼网友：青灯有味
- 2021-02-03 20:16
已发送 不明白请追问
- 2楼网友：神的生死簿
- 2021-02-03 19:11
这是全部代码，刚写出来，并调试通过：
Private Sub Form_Load()
Timer1.Enabled = False
Command1.Caption = "开始"
Command2.Caption = "暂停"
Label1.Caption = ""
Timer1.Interval = 1000
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Caption = "继续"
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
- 3楼网友：舍身薄凉客
- 2021-02-03 18:47
1.。。。。。Timer1.Interval = 600
2.。。。。。Timer1.Interval = 0
好了，去试试吧
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯