+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس (/showthread.php?tid=36377)
مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس - مصمم هاوي - 13-09-20
الـــــــــ عليكم ــــــــــــلام
هذا الكود يُوضع في مديول ويتم استدعائه لتفريع جميع حقول التكست بوكس وهو شغال 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
فهل يمكن التعديل عليه ليتم تفريع جميع الكومبوكس والليست بوكس؟RE: مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس - حريف برمجة - 13-09-20
(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 FunctionRE: مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس - مصمم هاوي - 13-09-20
وعليكم السلام ورحمة الله وبركاته ،،
جرب التالي :
كود :
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 = ""RE: مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس - T 1 - 13-09-20
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
RE: مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس - مصمم هاوي - 13-09-20
(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
هذا هو المطلوب بارك الله فيك