复刻 烈咬陆鲨mega ω:VB编程问题

来源:百度文库 编辑:高校问答 时间:2024/05/13 13:55:58
运行程序时,将系统时间显示在文本框中,单击“启动”按钮,文本框中的时间每隔1秒变化一次,单击“停止”按钮,文本框中的内容停止变化。怎么编呀?

在窗体上添加一个Timer控件
添加个启动按钮Command1 和停止钮Command2,添加一个文件框Text1
添加如下代码

Private Sub Command1_Click()'启动按钮
Me.Timer1.Interval = 1000 '将Timer的值设为1秒
Me.Timer1.Enabled = True '打开Timer
End Sub

Private Sub Command2_Click() '停止
Me.Timer1.Enabled = False 停止timer,显示时间
End Sub

Private Sub Timer1_Timer() 'Timer 每秒执行内容
Me.Text1 = DateTime.Time$
End Sub

QQ:905906

用Time控件

看来是初学者
用Timer控件