برای جابجایی دو تا picturebox با هم تو این کد چکار کنم فوری

[omid.m7]

کسی میتونه بگه که توی رویدادmypi_click برای اینه جای دو تا عکس که انتخاب شده جابجا بشه باید چکار کرد ***خیلی فوری***

Private Sub p_namoratab()
Dim i As Integer
For i = 0 To 8
Dim X As Integer
Do
X = (Int(Rnd() * 9) + 1)
If find(X) = False Then
ListBox1.Items.Add(X)
End If
Loop Until ListBox1.Items.Count = 9
url = Application.StartupPath + "\" + Trim(Str(ListBox1.Items(i))) + ".jpg"
Dim pi As New PictureBox
pi.SizeMode = PictureBoxSizeMode.StretchImage
pi.Name = "p" + Str(ListBox1.Items(i))
pi.Width = 100
pi.Height = 100
pi.BorderStyle = BorderStyle.FixedSingle
pi.Load(url)
pi.Tag = i
If i <= 2 Then
pi.Left = 10 + 101 * i
pi.Top = 50
ElseIf i <= 5 Then
pi.Left = 10 + 101 * (i - 3)
pi.Top = 150
Else
pi.Left = 10 + 101 * (i - 6)
pi.Top = 250
End If
Controls.Add(pi)
AddHandler pi.Click, AddressOf mypi_click

Next i

End Sub

Private Sub mypi_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Dim click As Integer
click += 1

If click Mod 2 = 1 Then
'Code
Else
'Code
End If
MsgBox(sender.name)
End Sub

[AmirRezanezhad]

کافیه دوتا تا متغییر تعریف کنی و جای این تو تا متغییرو به عوض کنی ،یعنی عکس اولی رو بریز تو متغییر Aو عکس دیگه رو بریز تو متغییر Bو جای این دو تا رو با هم عوض کن.

[sagggad]

لطفا به تاریخ تایپیک ها دقت کنید:دوشنبه 14 تیر 1389 08:33 صبح