Question

有关VB两幅图交换问题

有两幅图,一个button按钮,按一下两幅图就交换一下,按多一下又交换回来.如此循环.请问有几种方法实现.

Answer 1

=
100
Then
n
=
1'防止累加下去后会导致溢出.Picture
=
Photo1
Picture2.Picture
=
Photo2
Else
Picture1.Picture
=
Photo2
Picture2.Picture
=
Photo1
End
If
If
n
>。
End
Sub
Private
Sub
Form_Load()
Set
Photo1
=
Picture1此方法利用变量肆闷存放尺坦图片，进而达到交换的目的。裂困弯
Dim
Photo1
As
Picture,
Photo2
As
Picture
Dim
n
As
Integer
Private
Sub
Command1_Click()
n
=
n
+
1
If
n
Mod
2
=
0
Then
Picture1

Answer 2

此方世档法利用变量存氏返瞎放图片，进而达到交换的目的。
Dim Photo1 As Picture, Photo2 As Picture
Dim n As Integer
Private Sub Command1_Click()
n = n + 1
If n Mod 2 = 0 Then
Picture1.Picture = Photo1
Picture2.Picture = Photo2
Else
Picture1.Picture = Photo2
Picture2.Picture = Photo1
End If
If n >= 100 Then n = 1'防止累加下去后会导致歼空溢出。
End Sub

Private Sub Form_Load()
Set Photo1 = Picture1.Picture
Set Photo2 = Picture2.Picture
End Sub

Answer 3

用一个变量来记录按了几下按钮，根据按饥亩丛按钮烂樱的次数来加载不同的图片就可以了。不需要借助第三个耐笑图片框了。
Dim n As Integer
Private Sub Command1_Click()
n = n + 1
If n Mod 2 = 1 Then
Picture1.Picture = LoadPicture("图片1的路径")
Picture2.Picture = LoadPicture("图片2的路径")
Else
Picture1.Picture = LoadPicture("图片2的路径")
Picture2.Picture = LoadPicture("图片1的路径")
End If
End Sub

Answer 4

Private Sub Command1_Click()
Dim t As Object
Set t = Picture1.Picture
Picture1.Picture = Picture2.Picture
Picture2.Picture = t
End Sub

Answer 5

以上都交换不了知厅备~你用三个图片框啊~
再用if语句伏袭,再if语句结束后加搭毁goto语句就可以做到了
很容易的!