تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب كود مسح جماعي وكود تغيير خصائص من false الى true والعطس
#1
السلام عليكم

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

تحياتي لكم
الرد }}}
تم الشكر بواسطة:
#2
[/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]
الرد }}}
تم الشكر بواسطة:
#3
ألأزرار هي button وخصائصها enabled=true وبعضها false

الكود اللي وضعته يمسح كل التكست في الفورم انا اريد التكست اللي في قروب بوكس
الرد }}}
تم الشكر بواسطة:
#4
طلبك الاول :
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
(ctrlTextBox).Text String.Empty
            
End If
        
Next (ctrl)
    
End Sub

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        ClearTextBox
(Me)
    
End Sub 
الرد }}}
تم الشكر بواسطة:
#5
كثر الله خيرك
الرد }}}
تم الشكر بواسطة:
#6
طلبك الثاني ..... لم أفهم مالمطلوب بالضبط ..؟

لاكن اتوقع تقصد ... عدم تفعيل الزر
PHP كود :
Button2.Enabled False 

التفعيل
PHP كود :
Button2.Enabled True 
الرد }}}
تم الشكر بواسطة:
#7
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.ObjectByVal e As System.EventArgsHandles Button1.Click
        ReverseEnabling
(GroupBox1)
    
End Sub
End 
Class 
الرد }}}
تم الشكر بواسطة:
#8
اشكركم جزيل الشكر

تحملوني فأنا مبتدئ ولا زال لدي الكثير من الأسئله
الرد }}}
تم الشكر بواسطة:



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


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