Collections

[FrEaK85]

I need to get all of the richtextboxes on my form:

Dim rText As RichTextBox
For Each rText In frmNew.Controls
    
Next rText

doesn't works, gives an "type mismatch" error

Dim rText As Control
For Each rText In frmNew.Controls
    
Next rText

does work, but then i get all of my controls

how do i get only my richtextboxes?

thanks

[vbvbvbvb]

Try

Dim rText As VB.RichTextBox

Instead of

Dim rText As RichTextBox

[FrEaK85]

when i try dim rText as vb. richttextbox isn't there, there's picturebox, textbox, ... but not picturebox

[vbvbvbvb]

How did you put the richtexbox on your form?

[FrEaK85]

at design time

[vbvbvbvb]

Will Dim rText As VB.TextBox work?

What's the diff between RichTextBox & TextBox?

[FrEaK85]

well if you do dim rText as VB.Textbox and then use:

For Each rText in frmNew.Controls
 
Next rText

then it would probably take all textboxes if it would work

[Negative0]

Do this:

Dim rText As Control
For Each rText In frmNew.Controls
    If TypeName(rText)="RichTextBox" Then
            msgbox "HI"
    End If
Next rText

Hope this helps,