تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس
#1
الـــــــــ عليكم ــــــــــــلام

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

فهل يمكن التعديل عليه ليتم تفريع جميع الكومبوكس والليست بوكس؟
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#2
(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
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته ،،

جرب التالي :


كود :
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 = ""
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#4
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
الرد }}}
تم الشكر بواسطة: مصمم هاوي
#5
(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

هذا هو المطلوب بارك الله فيك
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 6 1,479 19-01-24, 07:59 PM
آخر رد: hamada salah90
  [vb6.0] عند فتح الكومبو بوكس تظهر فيها جميع اسماء الزبائن وادي العوضي 3 352 27-11-23, 01:05 AM
آخر رد: وادي العوضي
  [سؤال] التيكست بوكس Abdellah 2 389 18-11-23, 10:55 AM
آخر رد: Abdellah
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
  [vb6.0] مساعدة بتعديل كود الضغط على مفتاح F1 في الكيبورد جلال اليمني 0 173 13-10-23, 08:04 PM
آخر رد: جلال اليمني
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 357 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 455 27-07-23, 08:33 PM
آخر رد: Taha Okla
  [vb6.0] كود ربط قاعدة بيانات اكسيس 2010 بالفيجوال بيسك6 وادي العوضي 4 553 21-07-23, 12:11 AM
آخر رد: وادي العوضي
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 600 09-07-23, 12:44 AM
آخر رد: وادي العوضي

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


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