+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=3762)
عن أحداث الأزرار وعكس عملية الحدث - عبد الله - 06-09-14
السلام عليكم ورحمة الله وبركاته
إخواني لدي الحدث
كود :
Private Sub Button3_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseDown
End Subيعني لنفرض من خلال هذا الحدث يتم تغيير نوع الخط وبنفس الحدث يتم تعديل الخط لنوع آخر ؟
لتقريب العملية لربما أني بحاجة لدالة IF ، فكيف أقول إذا الحدث فعال أعمل كما ( أنا أعلم أنه تلقائياً فعال لأني في وسط الحدث ) وكذل في نفس الحدث إن لم يكن فعال أعمل كذا.
RE: عن أحداث الأزرار وعكس عملية الحدث - Aly El-Haddad - 06-09-14
PHP كود :
Static bool As Boolean = False
bool = Not bool
If bool Then
'' العملية
Else
'' عكس العملية
End If
RE: عن أحداث الأزرار وعكس عملية الحدث - kslawy - 06-09-14
كود :
Dim bool As Boolean = False
Private Sub Button1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
If bool = True Then
bool = False
Me.Button1.Font = New Font("Tahoma", 12, FontStyle.Regular)
Else
bool = True
Me.Button1.Font = New Font("Arial", 14, FontStyle.Bold)
End If
End If
End Sub