cleanning all textboxes on a form with a single code block (Resolved)

[maged]

hi all,

I used to use this segment in VB6 to clear all textboxes on a form, but it seems to have difficulties running on VB.Net

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

Can anyone advise me, what is the equivelant code in VB.Net

\THX in Advance


BST RGDS

[mendhak]

Dim x As TextBox
        For Each x In Me.Controls
            x.Text = ""
        Next

[mar_zim]

dim c as control
for each c in me.controls
if typeof c is textbox then
'do the trick
end if
next

[brown monkey]

Originally posted by maged
hi all,

I used to use this segment in VB6 to clear all textboxes on a form, but it seems to have difficulties running on VB.Net

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

Can anyone advise me, what is the equivelant code in VB.Net

\THX in Advance


BST RGDS

ya code runs on my time machine mate

[brown monkey]

Originally posted by mendhak

Dim x As TextBox
        For Each x In Me.Controls
            x.Text = ""
        Next

does this varry from 1.0 to 1.1? got a specified cast error. i'm using 2k2.

[taxes]

Sorry mendhak, that is not like you


The correct code is

Dim x As Control
        For Each x In Me.Controls
            If TypeOf x Is TextBox Then
                CType(x, TextBox).Text = ""
            End If
        Next

[taxes]

Hi,

Loks like we are all posting as the other is typing

[maged]

well, thx for your reply


regarding the first solution, it is not working .
An exception of ( invalid cast exception is raised).


but regarding the second solution, it doesn't raise exception but also , it doesn't clear the textboxes


i am going thermally crazy


Any Sugesstions

THX for your precious time

BST RGDS

[mendhak]

Strange, it worked the first time.(Yes, really!!!)


Now why wouldn't the second one work? It's perfectly alright.

Try stepping through?

[taxes]

HI,

You are not reading your posts fast enough, 'cos you obviously have not tried my suggestion which was

--------------------------------------------------------------------------------
        Dim x As Control
        For Each x In Me.Controls
            If TypeOf x Is TextBox Then
                CType(x, TextBox).Text = ""
            End If
        Next

Sorry you have been slightly mislead by a couple of guys, but they are not normally like that. They must hav had a late night

[taxes]

Originally posted by mendhak
Strange, it worked the first time.(Yes, really!!!)


Now why wouldn't the second one work? It's perfectly alright.

Try stepping through?

Any minute now mendhak, you are going to wake up from your VB6 harkback dream

[mendhak]

[maged]

hallllo alll



well i figured out what was the problem


the problem is that my textboxes is grouped into panels, panels works as a form inside the form, so when it scans the controls on the main form. it doesn't find a thing except panels.

Anyway your code is right but i have modified it to a more powerfull and generic sub that will solve this problem even if there is a frame inside a frame inside a panel inside a group box . Etc.

it works fine for me, but you deserve to share it with me as your helped in it a lot

Public Sub ClearAll(ByVal frm As Control)
        Dim OutCtl As Control
        For Each OutCtl In frm.Controls
            If OutCtl.Controls.Count > 0 Then
                ClearAll(OutCtl)
            Else
                If OutCtl.GetType.IsAssignableFrom(GetType(TextBox)) Then
                    OutCtl.Text = ""
                End If
            End If
        Next
    End Sub

THX ALL FOR Your Time


It is resolved now

BST RGDS