kwrl.net
当前位置:首页 >> 谁能用VB在窗体上做个时间....时间和电脑当前... >>

谁能用VB在窗体上做个时间....时间和电脑当前...

你要把代码放在模块里。附件可下载参考

VB可使用Timer控件实现在窗体的标签控件中显示系统时间等信息。 Timer 控件,通过引发 Timer 事件,Timer 控件可以有规律地隔一段时间执行一次代码。 实现代码: Private Sub Form_Load() Timer1.Interval = 500End SubPrivate Sub Timer1_Timer...

在窗体中加入Timer控件命名Timer1,Interval属性设为1000(1秒),TextBox控件命名T 加入如下代码 方案一: Private Sub Timer1_Timer() T.Text = Format(Now, "yyyy年mm月dd日 ddd hh:mm:ss") End Sub 显示格式为:2007年06月27日 Wed 03:47:23 方案...

选择菜单“工程|部件”,选中“Microsoft Windows Common Controls 6.0” 然后将StatusBar控件拖动到窗体中,右击该控件选择属性,选中窗格选项卡,单击“插入窗格” 然后在窗体中再画一计时器控件,将Interval属性设置为1000 最后编写以下代码: Priv...

Dim t Private Sub Form_Load() t = Now Form1.Caption = "当前时间:" & t Label1.Caption = "用时0时0分0秒" Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() t1 = Now - t Label1.Caption = "用时" & Hour(t1) & "时" & Minute(t1...

Private Sub Form_Load() Label1.AutoSize = True Label1.ForeColor = vbGreen Label1.BackColor = vbBlack Label1.FontSize = 32 timer1.interval=1000 End Sub private sub timer1_timer() Label1.Caption =Format(Now,"YYYY年MM月DD日 hh:nn...

Private Sub Form_Load() Label1.AutoSize = True Label1.ForeColor = vbGreen Label1.BackColor = vbBlack Label1.FontSize = 32 timer1.interval=1000 End Sub private sub timer1_timer() Label1.Caption =Format(Now,"YYYY年MM月DD日 hh:nn...

Private Sub Form_Load() Timer1.Interval = 4000 End Sub Private Sub Timer1_Timer() End End Sub 这个程序用计时器设置4秒后结束!

Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Text1.Text = Now End Sub

网站首页 | 网站地图
All rights reserved Powered by www.kwrl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com