گرفتن اسم یک شی ایجاد شده با رویداد کلیک روی آن

[mehdi.safavie]

درود;


If e.Button = 1048576 Then
NPic = New PictureBox
AddHandler NPic.MouseClick, AddressOf Lclick
Panel3.Controls.Add(NPic)
NPic.Name = "NPic" & NewId
NPic.BringToFront()
NPic.Left = e.X - 8
NPic.Top = e.Y - 12
x = NPic.Left
y = NPic.Top
NPic.Height = 50
NPic.Width = 50
NPic.BackColor = Color.Transparent
NPic.ImageLocation = "E:\Project\Pictures\Icon\Pin\Blue.png"
NPic.SizeMode = PictureBoxSizeMode.StretchImage
NewId += 1
End If


وقتی روی PictureBox ساخته شده کلیک کردم میخوام مختصاتش رو بهم بده ! چیکار باید بکنم ؟

[mehdi.safavie]

طیه کم بیشتر سرچ کردم جواب رو پیدا کردم :

اول یه متغیر از نوع PictureBox تعریف میکنیم


Dim Picture As PictureBox


بعد تو قسمت Lclick برنامه خودم که قراره رویداد کلیک روی عکس ساخته شده رو انجام بده این کد ها رو مینویسیم


Picture = New PictureBox
Picture.Name = CType(sender, PictureBox).Name
Picture.Left = CType(sender, PictureBox).Left
Picture.Top = CType(sender, PictureBox).Top
MsgBox(Picture.Name & " x = " & Picture.Left & " Top = " & Picture.Top)

[مهرداد صفا]

سلام.
فقط در هندلر رویداد کلید همین کد رو بنویسید:
Picture=CType(sender,PictureBox)
MessageBox.Show(Picture.Left.ToString + "," +Picture.Top.ToString)