问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

用VB编写一个程序利用计时器计时,在窗体上添加四个命令按钮,一个标签,一个计时器控件,注意:在Timer的事

发布网友 发布时间:2023-04-21 15:15

我来回答

4个回答

热心网友 时间:2023-10-16 04:54

界面你自己设计 代码我帮你写 等一下附上来
------------------------------------
Dim s As Integer

Private Sub Command1_Click() '开始按钮
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Command2_Click() '停止按钮
Timer1.Enabled = False
End Sub

Private Sub Command3_Click() '重新计时按钮
s = 0
End Sub

Private Sub Command4_Click() '关闭按钮
End
End Sub

Private Sub Form_Load()
Label1.Caption = ""
End Sub

Private Sub Timer1_Timer()
s = s + 1
Label1.Caption = s
End Sub追问为什么,没点开始按钮就开始计时了?

追答Private Sub Form_Load()
Timer1.Enabled = false '这样就可以了
Label1.Caption = ""
End Sub

热心网友 时间:2023-10-16 04:54

Dim s As Integer
Private Sub Command1_Click() '开始按钮与暂停继续可省去command2
Timer1.Interval = 1000
If Timer1.Enabled = False Then
Timer1.Enabled = True
ElseIf Timer1.Enabled = True Then
Timer1.Enabled = False
End If
End Sub
Private Sub Command2_Click() '停止按钮
Timer1.Enabled = False
End Sub
Private Sub Command3_Click() '重新计时按钮
Cls
s = 0
End Sub
Private Sub Command4_Click() '关闭按钮
End
End Sub
Private Sub Form_Load()
command1.caption=“开始/暂停/继续”
command3.caption=“重新计时”
Timer1.Enabled = False '这样就可以了
Label1.Caption = ""
End Sub
Private Sub Timer1_Timer()
s = s + 1
Label1.Caption = s
End Sub

热心网友 时间:2023-10-16 04:54

因为你弄成form.load事件了

热心网友 时间:2023-10-16 04:55

问题不明确 可以再说详细点吗?
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
焦作有哪些旅行景点值得一去? 河南穿古装去的地方 AE入门从学会套模板开始,AE模板套用简易教程,看起来复杂的AE其实也很... ae怎么套用模板ae模版的使用方法 北京通州区有什么好玩的地方吗 请问现在有哪些看电影的网站?越多越好~~ 帮初中女儿请假一天讲身体不适,班主任却跟别的老师讲她得了大病,该如何... 梦见家中被盗空只剩一件绿色衣的预兆 梦见美丽沙穗 美版4s内置卡贴有什么危害? VB6.0程序中设计一个窗体,在窗体上添加一个标签和一个文本框以及一个命令按钮,要求文本框中只能 苹果icloud怎么恢复 黑鲨4怎么语音开启狩猎模式 小米黑鲨有语音助手吗 小米手环连接苹果手机蓝牙为什么老是断开连接了? 大数据是什么,期待解答 女人梦见牡丹花开很大 如果我再年轻点我一定追你什么意思啊? 他说:我如果没有女朋友,我一定追你 桃花妆元气妆怎么画 哪些小龙虾不能吃呢 弃捐勿复道,努力加餐饭什么意思 做梦梦到白色兔子是什么兆头 品料的诗句品料的诗句是什么 料理的诗词料理的诗词是什么 料取的网络解释料取的网络解释是什么 料柬的诗句料柬的诗句是什么 料检的诗句料检的诗句是什么 料度的诗句料度的诗句是什么 料拣的诗句料拣的诗句是什么 一个手机怎么开通两个? ldareyou中文意思 卫生间排水管接头漏水怎么办? 手机微信发红包老提示支付密码,怎样删除 excelvba制作欢迎界面点击进入表格进入后欢迎界面窗体自动关闭 在EXCEL中用功能键(比如用F2)调用VBA中用户窗口打开后,如何用Esc键关闭窗口? 木炭焦炭活性炭煤的主要成分 造价师培训学校有什么好的招生途径? 造价师培训机构老师有什么好的招生方式? 造价师培训机构市场人员有什么好的招生方式? 造价师培训机构怎么快速招生? 造价师培训学校有什么好的招生技巧? 造价师培训机构老师有什么好的招生策略? 造价师培训机构怎样在短时间里招到大量学生? 空气滤膜空白加标 易借速贷用还款吗 易借速贷是按还款计划还吗会不会另外加钱 易借速贷还款日最晚可以主动还吗 易借速贷银行卡失效怎么还款 c语言学习初学者只是看看要完整本电子书要中文本的我不懂英语