13-12-12, 04:31 PM
13-12-12, 06:52 PM
تفضل
كود :
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
14-12-12, 01:20 AM
وعليكم السلام ورحمة الله وبركاته
في البداية يجب أن تغير قيمة الخاصية KeyPreview للفورم إلى True
ثم ضع هذا الكود
بالتوفيق
في البداية يجب أن تغير قيمة الخاصية 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
بالتوفيق
14-12-12, 01:22 AM
اولا شكرا اخي علي الكود
لكن اخي عندما اضع الكود هنا
يتم اظهار الرسالة
وعند الضغط علي OK
يغلق البرنامج لكن انا اخي اريدة عند الضغط لا يغلق البرنامج
لكن اخي عندما اضع الكود هنا
كود :
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
يغلق البرنامج لكن انا اخي اريدة عند الضغط لا يغلق البرنامج
14-12-12, 01:24 AM
شكرا لك اخي sooriaty03 تم الحل
14-12-12, 01:29 AM