تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تصحيح كود
#1
كود :
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
الرد }}}
تم الشكر بواسطة:
#2
Dodgy
الرد }}}
تم الشكر بواسطة: asemshahen5
#3
يا اخواني ممكن حد يجاوبنب باي جواب ههههههههههههه

الله يرضى عليكم
الرد }}}
تم الشكر بواسطة: asemshahen5
#4
(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
الرد }}}
تم الشكر بواسطة: asemshahen5 , محمد كريّم , bidaya
#5
(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

اشكرك اخي الغالي
الله يرضى عليك
الرد }}}
تم الشكر بواسطة: محمد كريّم , asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم