[smalw]

(05-12-19, 12:59 PM)bidaya كتب :

كود :

If (Not ((DirectCast(e.KeyCode, Keys).ToString = "F2") Is 0) Is Nothing) Then
         
       End If

 

كود :

Private Sub DisplayDataCheckBox(ByVal value As Boolean)
           Me._CheckBox.Invoke((sender, e) => Me._CheckBox.Checked = value)
   End Sub

(05-12-19, 12:59 PM)bidaya كتب : منشان يعمل مفتاح f2 عدل خاصيت الفورم keypreview الى true

كود :

If e.KeyCode = Keys.F2 Then
         
       End If

 

كود :

Private Sub DisplayDataCheckBox(ByVal value As Boolean)
           Me._CheckBox.Invoke(Sub() Me._CheckBox.Checked = value)
   End Sub