+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : (تم الحل) تفعيل زر esc في جميع خصائص الفورم لمسح قيمة متغير (/showthread.php?tid=7196)
(تم الحل) تفعيل زر esc في جميع خصائص الفورم لمسح قيمة متغير - بو عبدالله - 01-12-12
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
كيف الحال أخواني اعضاء و زوار و مرتادي المنتدى
عندي سؤال وهو كالتالي :-
كيف يتم حذف قيمة متغير عند الضغط على زر ESC
ابقيه يكون في اي حذث في الفورم
يعني ما يكون بس في حدث text1.text
او في حدث Load Form
أبقاه يكون في اي حدث
بمجرد الضغط على Esc يحذف قيمة المتغير
ارجو ان تكون الفكرة واضحه
وارجو ان احصل الاجابه هنا
(تم الحل) تفعيل زر esc في جميع خصائص الفورم لمسح قيمة متغير - Aly El-Haddad - 01-12-12
و عليكم السلام و رحمة الله و بركاته،
كود :
Public Class Form1
Dim S As String = "Some string!"
Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
If e.KeyCode = Keys.Escape Then
MsgBox("Before: " & S)
S = Nothing
MsgBox("After: " & S)
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
End Sub
End Class(تم الحل) تفعيل زر esc في جميع خصائص الفورم لمسح قيمة متغير - بو عبدالله - 01-12-12
Aly El-Haddad كتب :و عليكم السلام و رحمة الله و بركاته،
كود :
Public Class Form1
Dim S As String = "Some string!"
Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
If e.KeyCode = Keys.Escape Then
MsgBox("Before: " & S)
S = Nothing
MsgBox("After: " & S)
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
End Sub
End Class
شكراًَ الف شكر عزيزي
الكود تمام التمام
لكن ممكن شرح الكود
لو ما فيه كلافه
(تم الحل) تفعيل زر esc في جميع خصائص الفورم لمسح قيمة متغير - Aly El-Haddad - 01-12-12
بو عبدالله كتب :شكراًَ الف شكر عزيزي
الكود تمام التمام
لكن ممكن شرح الكود
لو ما فيه كلافه
على الرحب أخي الكريم،
كود :
Dim S As String = "Some string!"في الحدث Form_Load و الذي ينطلق قبل ظهور الـForm وضعت الكود Me.KeyPreview = True حيث أن عند تغيير قيمة هذا الخاصية في الـForm إلى True.. تستجيب الأحداث KeyDown و KeyPress و KeyUp للفورم دون أحتياج أستخدامها في الـTextBox
في الحدث KeyUp للفورم و الذي ينطلق عند رفع الأصبع من على الزر
وضعت الكود If e.KeyCode = Keys.Escape Then ... End If و الذي يتأكد من أن الزر الذي تم الضغط عليه هو Escape ثم إظهار رسالة بالمتغير S قبل حذف قيمته ثم حذف قيمته بـS = Nothing ثم إظهار رسالة للتأكد من أن قيمته قد تم حذفها
(تم الحل) تفعيل زر esc في جميع خصائص الفورم لمسح قيمة متغير - بو عبدالله - 02-12-12
يعطيك ألف ألف عافيه عزيزي
وصلت الفكرة و تم التطبيق بنجاح
و أستفدت منها في امور ثانيه
شكراًَ مره اخرى
(تم الحل) تفعيل زر esc في جميع خصائص الفورم لمسح قيمة متغير - الميسري - 02-12-12
كذا او بلاش الله يحفضك اخي Aly El-Haddad