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

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

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

在窗体中加入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 方案...

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

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...

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

可以采用两种方法来解决: 一)在标准模块中声明全局变量,该变量在一个窗体的某事件中赋值或改变,另一窗体的某事件或过程中执行时就可直接引用。 '标准模块代码Option Explicit Public i As Long'Form1代码Option ExplicitPrivate Sub Command...

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Tim...

text1.text = now 可以试试

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...

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