الـــــــــ عليكم ــــــــــــلام
هذا الكود يُوضع في مديول ويتم استدعائه لتفريع جميع حقول التكست بوكس وهو شغال 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]
يوجد خطأ في هذا الجزء
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
هذا هو المطلوب بارك الله فيك