[raoe-041]

السلام عليكم
ارجوا المساعدة في كيفية استخدام الازرار مثل F2 و F3 و F4 و الخ في البرنامج ......
و شكرا ......

[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

.....

[raoe-041]

(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
و هل استطيع ان استخدمها في عمليات الحفظ و الحذف و شكرا