求VB程序，每两秒在标签中显示一次当前的时间。
答案:2 悬赏:30 手机版
解决时间 2021-04-08 06:46
- 提问者网友：一抹荒凉废墟
- 2021-04-07 13:34
请高手朋友帮忙，万分感激！
最佳答案
- 五星知识达人网友：爱难随人意
- 2021-04-07 13:56
Private Sub Form_Load()
Timer1.Interval = 2000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
Timer1.Interval = 2000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
全部回答
- 1楼网友：患得患失的劫
- 2021-04-07 14:34
option explicit
private mousenum as integer
private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
mousenum = button
if mousenum = 1 then
label1.visible = true
else
label1.visible = false
end if
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
if mousenum = 1 then
label1.caption = "x=" & x & ",y=" & y
end if
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯