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

(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

(07-12-19, 10:06 PM)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