Newbie: "For Each with variable" Question

[dnagel]

> If TypeOf vControl Is Obj_Ctrl Then

if typeof vcontrol is combobox then

or

if typename(vcontrol) = "ComboBox"

Can't see why you're passing in a variable
for control...???

also,
x As String
should read
x As Boolean

D.



"Magic" <magic1521@hotmail.com> wrote in message news:3ccea9a5$1@10.1.10.29...
|
| Is there a way to use the following For Each with a variable?
| IOW, ( See_Controls "CommandButton", True ),
| to see all command buttons and ( See_Controls "CommandButton", False ),
| To make all copmmand buttons invisiable?
|
| This does not work!
| I've tried every combination I could think of!
|
| Private Sub See_All_Controls(Obj_Ctrl As Control, x As String)
|
| Dim vControl
|
| ' make Controls on form visible/invisible.
| For Each vControl In Me.Controls ' where Me is the form
| If TypeOf vControl Is Obj_Ctrl Then
| vControl.Visible = x
| End If
| Next
|
| End Sub
|
| Thanks,
|
| Magic

[Magic]

Is there a way to use the following For Each with a variable?
IOW, ( See_Controls "CommandButton", True ),
to see all command buttons and ( See_Controls "CommandButton", False ),
To make all copmmand buttons invisiable?

This does not work!
I've tried every combination I could think of!

Private Sub See_All_Controls(Obj_Ctrl As Control, x As String)

Dim vControl

' make Controls on form visible/invisible.
For Each vControl In Me.Controls ' where Me is the form
If TypeOf vControl Is Obj_Ctrl Then
vControl.Visible = x
End If
Next

End Sub

Thanks,

Magic