+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] طلب كود مسح جماعي وكود تغيير خصائص من false الى true والعطس (/showthread.php?tid=2381)
طلب كود مسح جماعي وكود تغيير خصائص من false الى true والعطس - bumb - 28-03-14
السلام عليكم
عندي قروب بوكس فيه مجموعه تكست بوكس ابحث عن كود لمسح كافة التكست البوكس (النصوص)
وهناك مجموعة ازرار في قروب اخر اريد تغيير خصائصها من false to true والعكس
تحياتي لكم
RE: طلب كود مسح جماعي وكود تغيير خصائص من false الى true والعطس - Ahlam - 28-03-14
[/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]
RE: طلب كود مسح جماعي وكود تغيير خصائص من false الى true والعطس - bumb - 28-03-14
ألأزرار هي button وخصائصها enabled=true وبعضها false
الكود اللي وضعته يمسح كل التكست في الفورم انا اريد التكست اللي في قروب بوكس
RE: طلب كود مسح جماعي وكود تغيير خصائص من false الى true والعطس - مالكـ - 28-03-14
طلبك الاول :
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
RE: طلب كود مسح جماعي وكود تغيير خصائص من false الى true والعطس - bumb - 28-03-14
كثر الله خيرك
RE: طلب كود مسح جماعي وكود تغيير خصائص من false الى true والعطس - مالكـ - 28-03-14
طلبك الثاني ..... لم أفهم مالمطلوب بالضبط ..؟
لاكن اتوقع تقصد ... عدم تفعيل الزر
PHP كود :
Button2.Enabled = False
التفعيل
PHP كود :
Button2.Enabled = True
RE: طلب كود مسح جماعي وكود تغيير خصائص من false الى true والعطس - Aly El-Haddad - 28-03-14
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
RE: طلب كود مسح جماعي وكود تغيير خصائص من false الى true والعطس - bumb - 29-03-14
اشكركم جزيل الشكر
تحملوني فأنا مبتدئ ولا زال لدي الكثير من الأسئله