+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال في اداة بتون (/showthread.php?tid=17130)
سؤال في اداة بتون - soper - 02-09-16
السلام عليكم ورحمة الله وبركاته
اسف اني لم اضع مواضيع في المنتدي من فترة
سؤالي هو في اداة بتون والسوال يقول :
مثلا انا انشات بتون من متغير هكذا
Dim but As New Button
but.Location = New Point(12, 12)
but.Size = New Size(75, 23)
but.Parent = frm
but.Size = New Size(75, 23)
but.Parent = frm
but.Text = ""
واعطيت له كل اشياه كم فوق
الان السؤال ياتي كيف اصنع لذالك المتغير حدث مثل الكلك او الدبل كليك او الموس كليك .......الخ
والسلام عليكم ورحمة الله
الان السؤال ياتي كيف اصنع لذالك المتغير حدث مثل الكلك او الدبل كليك او الموس كليك .......الخ
والسلام عليكم ورحمة الله
RE: سؤال في اداة بتون - silverlight - 02-09-16
PHP كود :
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CreateButton("Close", New Point(20, 20), New Size(75, 24))
End Sub
Private Sub CreateButton(buttonname As String, buttonLocation As Point, buttonSize As Size)
Dim b As New Button
With b
.Name = buttonname
.Location = buttonLocation
.Size = buttonSize
.Text = buttonname
End With
AddHandler b.Click, AddressOf Button_Click
Me.Controls.Add(b)
End Sub
Private Sub Button_Click(sender As Object, e As EventArgs)
Me.Close()
End Sub
End Class
عليك ان تستخدم AddHandler كما في الكود اعلاه
أيضا و يفترض لاحقا ان تستخدم RemoveHandler لتتخلص من الباتون من خلال Dispose الخاصة ب الفورم
RE: سؤال في اداة بتون - soper - 02-09-16
اخي انت نابغة لكن اليس من الافضل شرح للكود ليس لي لفدتي فقط بل لجميع اعضاء المتندي وشئ اخر اخي لا اعرف كيف اشكرك انت رائع جدا