narsiss
جمعه 23 بهمن 1388, 14:40 عصر
چند تا picturebox رو به صورت داینامیک ایجاد می کنم
Dim vicon(200) As PictureBox
Dim id As Integer
vicon(id) = New PictureBox
vicon(id).Tag = id
vicon(id).Name = "sign" + id.ToString
Me.Controls.Add(vicon(id))
vicon(id).Height = 40
vicon(id).Width = 47
و روی فرم Drag&Drop می کنم تا در موقعیت دلخواهم قرار بگیرند...حالا می خوام وقتی روی هر کدوم راست کلیک می کنم بتونم حذفش کنم. کدی که الان برای حذف ازش استفاده می کنم اینه:
Protected Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Right Then
Me.Controls.RemoveAt(Me.Controls.IndexOf(sender))
End If
End Sub
اما من می خوام با اسم هر picturebox بتونم حذفش کنم چون در قسمت دیگه ای می خوام بتونم که مختصاتpicturebox هام رو به طور جداگانه بدست بیارم و ذخیره کنم پسindex کمکی بهم نمی کنه چون ممکنه چندتا Picturebox حذف شده باشن.سوال دوم اینه که چه طور می تونم به وسیله اسم هر Picturebox به properties های اون دسترسی پیدا کنم؟
Dim vicon(200) As PictureBox
Dim id As Integer
vicon(id) = New PictureBox
vicon(id).Tag = id
vicon(id).Name = "sign" + id.ToString
Me.Controls.Add(vicon(id))
vicon(id).Height = 40
vicon(id).Width = 47
و روی فرم Drag&Drop می کنم تا در موقعیت دلخواهم قرار بگیرند...حالا می خوام وقتی روی هر کدوم راست کلیک می کنم بتونم حذفش کنم. کدی که الان برای حذف ازش استفاده می کنم اینه:
Protected Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Right Then
Me.Controls.RemoveAt(Me.Controls.IndexOf(sender))
End If
End Sub
اما من می خوام با اسم هر picturebox بتونم حذفش کنم چون در قسمت دیگه ای می خوام بتونم که مختصاتpicturebox هام رو به طور جداگانه بدست بیارم و ذخیره کنم پسindex کمکی بهم نمی کنه چون ممکنه چندتا Picturebox حذف شده باشن.سوال دوم اینه که چه طور می تونم به وسیله اسم هر Picturebox به properties های اون دسترسی پیدا کنم؟