Public Class Form1
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.Modifiers = Keys.Alt And e.KeyCode = Keys.F4 Then
Me.Close()
End If
End Sub
End Class
وعليكم السلام ورحمة الله وبركاته
في البداية يجب أن تغير قيمة الخاصية KeyPreview للفورم إلى True
ثم ضع هذا الكود
كود :
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.Modifiers = Keys.Alt And e.KeyCode = Keys.F4 Then
e.SuppressKeyPress = True
End If
End Sub
اولا شكرا اخي علي الكود
لكن اخي عندما اضع الكود هنا
كود :
Public Class Form1
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.Modifiers = Keys.Alt And e.KeyCode = Keys.F4 Then
MsgBox("Thank You My Friend")
End If
End Sub
End Class
يتم اظهار الرسالة
وعند الضغط علي OK
يغلق البرنامج لكن انا اخي اريدة عند الضغط لا يغلق البرنامج