VB 每隔2秒,在窗体的Label中每隔2秒显示“你好中国”。
窗体上画一个名称为Timer1的计时器控件,利用属性窗口设置适当的属性,在程序运行时,每隔2秒,调用一次计时器的Timer事件。保证程序过程中,每隔2秒,在窗体的Labe...
窗体上画一个名称为Timer1的计时器控件,利用属性窗口设置适当的属性,在程序运行时,每隔2秒,调用一次计时器的Timer事件。保证程序过程中,每隔2秒,在窗体的Label中每隔2秒显示“你好中国”。(即每隔2秒显示一次标签)。单击窗体时,将窗体标题的改为“设置计时器属性”。
【提示】
1)设置时钟控件的Interval值为适当的值,可以使程序每隔2秒,调用一次计时器的Timer事件。
2)每隔2秒显示一次标签,即标签的状态就应该是显示——隐藏---显示----隐藏,如此下去的,则应该是设置标签的什么属性可以达到效果呢?
呃,图片发错了。。。请无视他 展开
【提示】
1)设置时钟控件的Interval值为适当的值,可以使程序每隔2秒,调用一次计时器的Timer事件。
2)每隔2秒显示一次标签,即标签的状态就应该是显示——隐藏---显示----隐藏,如此下去的,则应该是设置标签的什么属性可以达到效果呢?
呃,图片发错了。。。请无视他 展开
展开全部
Private Sub Form_Load()
Label1.Caption = "您好,中国"
Label1.Visible = False
Timer1.Interval = 2000 '设置为2秒
End Sub
Private Sub Timer1_Timer()
If Label1.Visible = False Then
Label1.Visible = True
Else
Label1.Visible = False
End If
End Sub
Label1.Caption = "您好,中国"
Label1.Visible = False
Timer1.Interval = 2000 '设置为2秒
End Sub
Private Sub Timer1_Timer()
If Label1.Visible = False Then
Label1.Visible = True
Else
Label1.Visible = False
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询