منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : استخدام ازرار اضافية في البرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
ارجوا المساعدة في كيفية استخدام الازرار مثل F2 و F3 و F4 و الخ في البرنامج ......
و شكرا ......
.....

كود :
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    ' يمكن الاستغناء عن هذا السطر بتغيير هذه الخاصية من خصائص الفورم
    Me.KeyPreview = True

End Sub


Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
    Select Case e.KeyCode
        Case Keys.F1
            MsgBox("تم الضغط على F1")

        Case Keys.F2
            MsgBox("تم الضغط على F2")

        Case Keys.F3
            MsgBox("تم الضغط على F3")

    End Select
End Sub

.....
(16-06-14, 05:48 AM)vbnet كتب : [ -> ].....

كود :
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    ' يمكن الاستغناء عن هذا السطر بتغيير هذه الخاصية من خصائص الفورم
    Me.KeyPreview = True

End Sub


Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
    Select Case e.KeyCode
        Case Keys.F1
            MsgBox("تم الضغط على F1")

        Case Keys.F2
            MsgBox("تم الضغط على F2")

        Case Keys.F3
            MsgBox("تم الضغط على F3")

    End Select
End Sub

.....

شكرا اخي على الرد

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.F10 Then
Form2.Show()
End If
و هل استطيع ان استخدمها في عمليات الحفظ و الحذف و شكرا