پاك كردن يكجاي تمام text box ها

[kingofworlds63]

سلام
آيا دستوري هست كه بتوان محتواي تمامي textbox هاي روي يك فرم را يكجا پاك كرد ؟

[eberham]

كد زير رو هر جا كه ميخواي پاك كني بنويس





dim cont as control
for each cont in me.groupbox1.controls
if typeof cont is textbox then
cont.text =""
next
t

[eberham]

كد زير رو هر جا كه ميخواي پاك كني بنويس







dim cont as control
for each cont in me.groupbox1.controls
if typeof cont is textbox then
cont.text =""
next

[fat_roze2000]

Public Shared Sub ClearForm(ByRef varrObject As ArrayList)
Dim enmTemp As IEnumerator = varrObject.GetEnumerator

While enmTemp.MoveNext
Dim objTemp As Object = enmTemp.Current
ClearForm(objTemp)
End While

End Sub
Public Shared Sub ClearForm(ByRef vobjContainer As Object)
Dim Enumerator As IEnumerator = vobjContainer.Controls.GetEnumerator()
Dim objTemp As Object

While Enumerator.MoveNext
objTemp = Enumerator.Current

If objTemp.Controls.Count > 0 Then ClearForm(objTemp)

ClearField(objTemp)
End While

ClearField(vobjContainer)
End Sub
Public Shared Sub ClearField(ByRef vobjTemp As Object)

If vobjTemp.GetType Is GetType(Windows.Forms.TextBox) Then
vobjTemp.Text = ""

ElseIf vobjTemp.GetType Is GetType(Janus.Windows.EditControls.UIComboBox) Or _
vobjTemp.GetType Is GetType(Windows.Forms.ComboBox) Then

If clsMain.objStringUtility.IsNullObject(vobjTemp.Dat aSource) Then

If vobjTemp.Items.Count > 0 Then
vobjTemp.SelectedIndex = 0
Else
vobjTemp.SelectedIndex = -1
vobjTemp.Text = ""
End If

Else
Dim dvTemp As DataView

Try
dvTemp = vobjTemp.DataSource.DefaultView
Catch ex As Exception
dvTemp = vobjTemp.DataSource
End Try

If dvTemp.Count > 0 Then
vobjTemp.SelectedIndex = 0
Else
vobjTemp.SelectedIndex = -1
vobjTemp.Text = ""
End If

End If

ElseIf vobjTemp.GetType Is GetType(Windows.Forms.CheckBox) Or vobjTemp.GetType Is GetType(Windows.Forms.RadioButton) Then
vobjTemp.Checked = False
ElseIf vobjTemp.GetType Is GetType(Janus.Windows.GridEX.GridEX) Or _
vobjTemp.GetType Is GetType(DataGrid) Then
vobjTemp.DataSource = Nothing
vobjTemp.UnCheckAllRecords()
End If

End Sub

[mostafaaa]

كد زير رو هر جا كه ميخواي پاك كني بنويس

t

البته فکر میکنم کد رو به این صورت بنویسیم بهتره!

For Each CTRL As Control In Me.Controls
If TypeOf CTRL Is TextBox Then
CTRL.Text = ""
End If
Next

[baran_mehr]

ممنون از دوستان گل.
یه سوال داشتم: آیا میشه این کار رو بر روی تمام کنترولها اعمال کرد مثلا همه کنترولها غیرفعال بشن؟

[reza6384]

آيا دستوري هست كه بتوان محتواي تمامي textbox هاي روي يك فرم را يكجا پاك كرد ؟




For Each TB as TextBox In Me.Controls
TB.Text = ""
Next




یه سوال داشتم: آیا میشه این کار رو بر روی تمام کنترولها اعمال کرد مثلا همه کنترولها غیرفعال بشن؟
__________________




For Each Ctrl In Me.Controls
Ctrl.Enabled = False
Next

[mostafaaa]

For Each TB as TextBox In Me.Controls
TB.Text = ""
Next




For Each Ctrl In Me.Controls
Ctrl.Enabled = False
Next

سلام دوست من.
فکر کنم اگه یه کنترل بجز تکست باکس توی فرمتون باشه زمانی که حلقه For Each به اون میرسه ارور Cast Object بده .زیرا شما متغیرتون رو توی حلقه از نوع تکست باکس تعریف کردید.
موفق باشید