vb编程中如何实现让两张图片交替显示
picture1和picture2是指什么,指控件还是图片我想应该是用timer来实现,哪位英雄帮帮忙...
picture1和picture2是指什么,指控件还是图片 我想应该是用timer来实现,哪位英雄帮帮忙
展开
3个回答
展开全部
picture可以看做是一个存放图片的容器。想实现您的要求,只需在窗体中加入
两个image控件,分别加入2张图片,再加一个Timer.
窗体的命令是如下:
Private Sub Form_Load()
Timer1.Interval = 1000
Image1.Visible = False
Image2.Visible = True
End Sub
钟表的命令如下:
Private Sub Timer1_Timer()
Image1.Visible = Not Image1.Visible
Image2.Visible = Not Image2.Visible
End Sub
我是用VB试过了的,可以实现您的要求。
两个image控件,分别加入2张图片,再加一个Timer.
窗体的命令是如下:
Private Sub Form_Load()
Timer1.Interval = 1000
Image1.Visible = False
Image2.Visible = True
End Sub
钟表的命令如下:
Private Sub Timer1_Timer()
Image1.Visible = Not Image1.Visible
Image2.Visible = Not Image2.Visible
End Sub
我是用VB试过了的,可以实现您的要求。
展开全部
加两个picture控件picture1和picture2,分别加入2张图片
用timer来实现两张图片交替显示:
Private Sub OnTimer()
if Picture1.Visible = False then
Picture1.Visible = True
Picture2.Visible = False
else
Picture2.Visible = True
Picture1.Visible = False
end if
End Sub
用timer来实现两张图片交替显示:
Private Sub OnTimer()
if Picture1.Visible = False then
Picture1.Visible = True
Picture2.Visible = False
else
Picture2.Visible = True
Picture1.Visible = False
end if
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
加两个image控件,分别加入2张图片
Private Sub Form_Load()
Timer1.Interval = 500
Image1.Visible = False
Image2.Visible = True
End Sub
Private Sub Timer1_Timer()
Image1.Visible = Not Image1.Visible
Image2.Visible = Not Image2.Visible
End Sub
Private Sub Form_Load()
Timer1.Interval = 500
Image1.Visible = False
Image2.Visible = True
End Sub
Private Sub Timer1_Timer()
Image1.Visible = Not Image1.Visible
Image2.Visible = Not Image2.Visible
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询