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

(07-06-17, 05:32 PM)alma2 كتب : [ -> ]

كود :

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       Me.KeyPreview = True

   End Sub

   Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
       If e.KeyCode = Keys.F5 Then
           MsgBox("تم الضغط على [F5] ")
       End If
   End Sub

(07-06-17, 06:22 PM)alma2 كتب : [ -> ]

كود :

   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       SendKeys.Send("{F5}")

   End Sub