omid.m7
دوشنبه 14 تیر 1389, 09:03 صبح
کسی میتونه بگه که توی رویداد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
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