VB的问题，帮忙写一个代码，谢谢

显示全部楼层 · 2012-9-23 17:27:20

将Timer控件的Interval修改为1000Private Sub Timer1_Timer()
Static i As Long
i = i + 1
Label1.Caption = "测试" + Trim(Str(i))End Sub...

千问 · 2012-9-23 17:27:20

方法一：将Timer控件的Interval修改为1000（单位：毫秒），定义一个变量k储存过了几秒。在窗口的Load事件中调用Timer1.start()，然后在Timer的Tick时间中编写代码方法二：调用System.threading.thread.Sleep(1000)；延时1秒，然后更新窗体：Me.refresh()。...

千问 · 2012-9-23 17:27:20

我是来抽奖的...

千问 · 2012-9-23 17:27:20

dim S as integerprivate form_load()timer1.interval=1000timer1.enabled=trueS=0end subPrivate Sub Timer1 _Timer() S=S+1if S=1 then Label.Caption="测试1" if S=2 then...

千问 · 2012-9-23 17:27:20

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Label1.Caption = ""
Label1.AutoSize = TrueEnd SubPrivate Sub Timer1_Timer()
Static...