[bumb]

السلام عليكم

عندي قروب بوكس فيه مجموعه تكست بوكس ابحث عن كود لمسح كافة التكست البوكس (النصوص)
وهناك مجموعة ازرار في قروب اخر اريد تغيير خصائصها من false to true والعكس

تحياتي لكم

[Ahlam]

[/b] تفضل اخي كود مسح نصوص التكست بوكي

PHP كود :

Public Sub cleartxt(frm As Form1)

        For Each x In frm.Controls
            If TypeOf x Is TextBox Then
                x.Clear()
            End If
        Next
    End Sub 


اما بالنسبة للازرار ما هو قصدك بـ True// false

هل الاسرار هي Buttom او ChekBox [b]

[bumb]

ألأزرار هي button وخصائصها enabled=true وبعضها false

الكود اللي وضعته يمسح كل التكست في الفورم انا اريد التكست اللي في قروب بوكس

[مالكـ]

طلبك الاول :

PHP كود :

Public Sub ClearTextBox(ByVal root As Control)
        For Each ctrl As Control In root.Controls
            ClearTextBox(ctrl)
            If TypeOf ctrl Is TextBox Then
                CType(ctrl, TextBox).Text = String.Empty
            End If
        Next (ctrl)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ClearTextBox(Me)
    End Sub 


[bumb]

كثر الله خيرك

[مالكـ]

طلبك الثاني ..... لم أفهم مالمطلوب بالضبط ..؟

لاكن اتوقع تقصد ... عدم تفعيل الزر

PHP كود :

Button2.Enabled = False 


التفعيل

PHP كود :

Button2.Enabled = True 


[Aly El-Haddad]

PHP كود :

Public Class Form1

    Public Sub ReverseEnabling(ByRef parent As Control)
        For Each c As Control In parent.Controls
            c.Enabled = Not c.Enabled
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ReverseEnabling(GroupBox1)
    End Sub
End Class 


[bumb]

اشكركم جزيل الشكر

تحملوني فأنا مبتدئ ولا زال لدي الكثير من الأسئله