光纤激光器和二氧化碳:vb timer 怎样让label在一秒变换两种形式

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/02 22:16:25
就是让label1中出现“你好”在一秒“再见”用timer
例如:先出现 "你好",一秒之后出现”再见“ 再一秒之后”你好“不停的循环,谢谢各位哥哥。

Private Sub Form_Load()
Label1 = "您好"
End Sub
Timer1的属性设置成 Interval 50 不然太快你看不到"你好"程序就结束了
Private Sub Timer1_Timer()
Static ti As Integer
ti = ti + 1
If ti = 50 Then
MsgBox "再见! ", vbExclamation, "提示"
End
End If
End Sub