30-03-19, 03:27 AM
(30-03-19, 03:09 AM)عبد العزيز البسكري كتب :السّلام عليكم و رحمة الله و بركاتهأخي الكريم .. إضافة لما قدمه الأخويْن الغاليين العزيزين : " إبراهيم إيبو " و " عاصم "بارك الله فيهما و لهما و جزاهما خير الجزاء إن شاء اللهأنت أخي الغالي .. لم توضّح من البداية أن الأمر يتعلق ب TabControlلا حظ لو سمحت الأكواد و ما بداخلها من كتابة .. تاكسات بكس أو كومبوبكسات أو أدوات أخرىمثلا مسح محتويات ال GroupBoxكود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For I = 0 To GroupBox1.Controls.Count - 1
If TypeOf GroupBox1.Controls(I) Is TextBox Then GroupBox1.Controls(I).Text = ""
Next
For I = 0 To GroupBox2.Controls.Count - 1
If TypeOf GroupBox2.Controls(I) Is TextBox Then GroupBox2.Controls(I).Text = ""
Next
End Sub
[b]مثلا مسح محتوياتال TabControl[/b]كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
For I = 0 To TabPage1.Controls.Count - 1
If TypeOf TabPage1.Controls(I) Is TextBox Then TabPage1.Controls(I).Text = ""
Next
For I = 0 To TabPage2.Controls.Count - 1
If TypeOf TabPage2.Controls(I) Is TextBox Then TabPage2.Controls(I).Text = ""
Next
End Sub
تحياتي
أشكرك أخي أتأسف عن عدم التوضيح أكثر ولاكن أعتقدت أن كود الفورم كان يكفي بالغرض ولاكن إتضح أنه لايعمل مع أداة TabControl /// أخي هل من المكن أن أنفذ الكود على [b]TabControl مرة واحدة أم أني ملزم عمله على كل TabPage على حده[/b]
