27-03-20, 10:04 PM
27-03-20, 11:06 PM
السلام عليكم ورحمة الله وبركاته
اخي الكريم بالنسبة لانشاء اختصار لحدث ما
اولا نفعل الخاصية KeyPreview الخاصة بالفورم الى True
او بالكود في حدث فورم لود كما هو موضح
ثانيا الحدث الذي نريد انشاء اختصار لتنفيذه وهو هنا كود اظهار رسالة في بوتون1
ثالثا في حدث KeyDown الخاص بالفورم نكتب الكود الخاص بانشاء الاختصار
اخي الكريم بالنسبة لانشاء اختصار لحدث ما
اولا نفعل الخاصية KeyPreview الخاصة بالفورم الى True
او بالكود في حدث فورم لود كما هو موضح
ثانيا الحدث الذي نريد انشاء اختصار لتنفيذه وهو هنا كود اظهار رسالة في بوتون1
ثالثا في حدث KeyDown الخاص بالفورم نكتب الكود الخاص بانشاء الاختصار
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.KeyPreview = True ' تفعيل قيول الاختصارات
End Sub
'f4 الحدث الذي نريد انشاء اختصار له مع مفتاح
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MsgBox("Welcom to Visual basic To all Arab")
End Sub
'f4 استدعاء الحدث عن طريق مفتاح
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.F4 Then
Button1_Click(Nothing, Nothing)
End If
End Sub27-03-20, 11:24 PM
أو يمكنك استخدام هذا المقال فيه أكواد الكيبورد فقط تضغط على المفتاح في الكيبورد ويسر الكود اتمنى ان يكون ذو فائده
http://vb4arb.com/vb/showthread.php?tid=33626
http://vb4arb.com/vb/showthread.php?tid=33626