Private n As Long
Private Sub Form_Load()
n = 0
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
n = n + 1
Lable1.Text = n
End Sub追问
好吧，这是一个计时的。我要的是显示系统时间的。已经出来了，谢谢你的思路。
vb中label标签要显示当前时间要怎么样写代码
先在窗体上加上两个控件，一个是label，一个是timer ，设置Timer1的Interval为1000,然后写如下代码：Private Sub Timer1_Timer()Label1.Caption = Now End Sub 这样你就可以看到label的时间每秒变化一次了
vb显示时间
只要直接取Time$就可以了。例如：Label1.Caption = Time 如要动态显示系统时间，可以使用以下代码：Private Sub Form_Load()Label1.FontSize = 30 Label1.ForeColor = vbBlue Timer1.Interval = 1000 Label1.Caption = Time End Sub Private Sub Timer1_Timer()Label1.Caption = Time End Sub ...
VB.NET中用label显示时间
Label1.Text = "12时演示:" + Now.ToString("yyyy-MM-dd hh:mm:ss") Label2.Text = "24时演示:" + Now.ToString("yyyy-MM-dd HH:mm:ss") Label3.Text = "UTC时演示:" + System.DateTime.UtcNow.ToString("yyyy-MM-dd HH:mm:ss") Label4.Text = "时间为不补0:" +...
VB label 如何即时刷新
在过程中加一句label的显示代码不就行了 显示内容可以给过程多传一个string参数 进行大量运算前加一句doevents语句把控制权还给系统试试
vb 计时器 使label隔一秒增加一
yiyiarrow 的问题出在变量n的声明，局部变量n在 form_load()中声明的，在timer1_timer()里是不能使用的．橡皮树的博客 采用的方法，巧妙的避开了使用变量的问题．我的代码是声明窗体级变量n Option Explicit Private n As LongPrivate Sub Form_Load() Timer1.Interval = 1000 Label1.Caption...
如何让一个控件上显示计算机上的时间 而且能够同步变化呢
新建一窗体,加一个Label控件和一个Timer控件,然后加入下面代码 Private Sub Form_Load()Label.Caption = Time ' 初始化时间显示 '如果不显示秒,就用下面这句,注意去掉前面的注释符号 'Label1.Caption = Hour(Time) & ":" & Minute(Time)' 初始化时间显示 Timer1.Interval = 1000 ' 设置计时器...
VB显示当前时间的程序
加入以下代码：Private Sub Form_Load()Text1.Text = Now Timer1.Enabled = True Timer1.Interval = 1000 End SubPrivate Sub Timer1_Timer()Text1.Text = Now End Sub
vb中时间显示设置
想要你的显示格式按你的要求用VB函数 format 如： label.caption = format(now,"hh:mm:ss")这样的结果就显示了 当前时间（20:30:45）你把"hh:mm:ss" 换成 "hh点mm分ss秒" 显示的格式就是上面的结果点数后都带单位了。
求VB中让显示的字体颜色自动随时间变化代码
Private Sub Command1_Click()a = Int (Rnd * 255)b = Int (Rnd * 255)c = Int (Rnd * 255)Label1.ForeColor = RGB(a, b, c)Label2.ForeColor = RGB(a, b, c)Label3.ForeColor = RGB(a, b, c)Label4.ForeColor = RGB(a, b, c)End Sub 应该能看懂吧 ...
vb中如何让label中的文字在程序运行30秒后自动显示
用定时器就行了。在定时器里设置30秒后显示文字
