منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السلام عليكم شباب
بدون امر محتاج اجراء Clear ToolBox
مثال :

Public Sub clear()
ItemBarcode.Text = ""
ItemCompany.Text = ""
ItemDate.Value = Now.Date
End Sub

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 

بالتوفيق

شكرا جزيلا بارك الله بيك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mjaleel

أبو عمر

mjaleel