Question

VB 怎么让三张图片互想转换

单击确定后 image1 显示image2的图片 image2显示image3的图片 image3显示image1的图片 然后一直循环 要简单点的

Answer 1

你是要单击图片一转图片二,单击图片二转图片三 还是单击类似播放,然后几张图片就一直循环下去转换,不用点一次鼠标换一张图. ？ 上面一个你可以在事件里处理, 也可以在图片对象里设置热点 下面这个呢.. 因为不清楚VB有没有那样的控件,所以我给你个原始的方法,设置计时器,每几秒就去自动转换下一张图片

Answer 2

在弄个image4。。image4.picture=image1.picture image1.pciture=image2.picture image2.picture=image3.picture image3.picture=image4.picture

Answer 3

'需要另外添加一个timer控件(timer1)Private Sub Command1_Click()
Timer1.Interval = 2000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Dim a, b, c
a = image1.Picture
b = image2.Picture
c = image3.Picture
image1.Picture = b
image2.Picture = c
image3.Picture = a
End Sub

Answer 4

用Timer最简单