举重队每天训练方法:VB里图片框中,图片交换,是用什么语句实现的?

图片交换可以设一个随机数,将几张图片规则命名,设一个数组,通过从数组随机生成的数,加载图片,再通过Timer 控件,随时切换

一般是用GIF动画做,也可以用
loadpicture()函数做

首先，你要创建两个或两个以上的Image 和一个timer1
然后，将timer1的属性栏中那个与其它子的颜色成反差的想不从0改为10
接着，双击timer1并继续编辑

Private Sub Timer1_Timer()
Dim imgMove As Object
If Image1.Visible = Ture Then
Image1.Visible = False
Image2.Visible = Ture
Set imgMove = Image2
Else
Image2.Visible = false
Image1.Visible = Ture
Set imgMove = Image1
End If
End Sub

*注* 如果想让图片移动，那请在End If和End Sub之间加一句指令：
imgMove.Move imgMove.Left+ 40,imgMove -40

可以使用Timer控件，隔一定的时间交换一张图片。

你怎么交换两个变量的值就怎么交换了啊

设一个中间变量

这是最简单的方法了

pritave sub timer1_timer()
static a as integer
a=a+1
select case a
case 1
picture1.picture=loadpicture("路径")
case 2
picture1.picture=loadpicture("路径")
case 3
picture1.picture=loadpicture("路径")
case 4
picture1.picture=loadpicture("路径")
case 5
picture1.picture=loadpicture("路径")
a=0
end select
这样就可以来回换图片了