+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اجراء Clear ToolBox (/showthread.php?tid=18693)
اجراء Clear ToolBox - mjaleel - 04-01-17
السلام عليكم شباب
بدون امر محتاج اجراء Clear ToolBox
مثال :
Public Sub clear()
ItemBarcode.Text = ""
ItemCompany.Text = ""
ItemDate.Value = Now.Date
End Sub
RE: اجراء Clear ToolBox - أبو عمر - 05-01-17
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
لاستدعائه بعد اي اجراء بالشكل التالي
PHP كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ClearTextBox(Me)
End Sub
بالتوفيق
RE: اجراء Clear ToolBox - mjaleel - 05-01-17
شكرا جزيلا بارك الله بيك