[مصمم هاوي]

الـــــــــ عليكم ــــــــــــلام

هذا الكود يُوضع في مديول ويتم استدعائه لتفريع جميع حقول التكست بوكس وهو شغال 100%

كود :

Public Function ClearAll(frm As Form)
 
  Dim c As Control
     For Each c In frm.Controls
         If TypeOf c Is TextBox Then
         
            c.Text = ""
     
         End If
     Next c
     
End Function

فهل يمكن التعديل عليه ليتم تفريع جميع الكومبوكس والليست بوكس؟

[حريف برمجة]

(13-09-20, 01:25 AM)مصمم هاوي كتب : الـــــــــ عليكم ــــــــــــلام

هذا الكود يُوضع في مديول ويتم استدعائه لتفريع جميع حقول التكست بوكس وهو شغال 100%

كود :

Public Function ClearAll(frm As Form)
 
  Dim c As Control
     For Each c In frm.Controls
         If TypeOf c Is TextBox Then
         
            c.Text = ""
     
         End If
     Next c
     
End Function

فهل يمكن التعديل عليه ليتم تفريع جميع الكومبوكس والليست بوكس؟

وعليكم السلام ورحمة الله وبركاته ،،

جرب التالي :

كود :

Public Function ClearAll(frm As Form)
 
  Dim c As Control
     For Each c In frm.Controls
         If TypeOf c Is TextBox Or TypeOf c Is ComboBox Then
         
            c.Text = ""

ElseIf TypeOf c Is ListBox Then
c.Clear
   
         End If

     Next c
     
End Function

[مصمم هاوي]

وعليكم السلام ورحمة الله وبركاته ،،

جرب التالي :

كود :

Public Function ClearAll(frm As Form)
 
  Dim c As Control
     For Each c In frm.Controls
         If TypeOf c Is TextBox Or TypeOf c Is ComboBox Then
         
            c.Text = ""

ElseIf TypeOf c Is ListBox Then
c.Clear
   
         End If

     Next c
     
End Function

[/quote]

يوجد خطأ في هذا الجزء

كود :

  c.Text = ""

[T 1]

Public Function ClearAll(frm As Form)

Dim c As Control
For Each c In frm.Controls
If TypeOf c Is TextBox Then

c.Text = ""

ElseIf TypeOf c Is ListBox Or TypeOf c Is ComboBox Then
c.Clear

End If

Next c

End Function

[مصمم هاوي]

(13-09-20, 03:12 AM)T 1 كتب : Public Function ClearAll(frm As Form)

Dim c As Control
For Each c In frm.Controls
If TypeOf c Is TextBox Then

c.Text = ""

ElseIf TypeOf c Is ListBox Or TypeOf c Is ComboBox Then
c.Clear

End If

Next c

End Function

هذا هو المطلوب بارك الله فيك