[VB] control type

[saprouzy]

Dim c As Control
For Each c In Me.Controls
If c.??? = FileListBox Then
    If c.ListCount > 0 Then
        MsgBox "pending files"
    End If
End If
Next

hey there,

i was wondering how we can check the type of the control

[dman]

For VB6

Dim c As Object
  For Each c In Me.Controls
     If TypeName(c) = "FileListBox" Then
        If c.ListCount > 0 Then
           MsgBox ("pending files")
        End If
     End If
  Nextt

For VB.NET (no filelistbox in .net, so I assume you are using VB6?)

Dim c As Object
For Each c In Me.Controls
   If TypeOf (c) Is ListBox Then
      If c.items.count > 0 Then
         MsgBox("pending files")
      End If
   End If
Next

Edited June 28, 2005 by dman

[Delprat]

Another solution (faster if many controls) :

Dim c As FileListBox
For Each c In Me.Controls
  If c.ListCount > 0 Then
      MsgBox "pending files"
  End If
Next

bye

[saprouzy]

thanks dman, i guess this should do it, i'll try it tomorrow at work.

delprat that wouldn't work, since not all controls have ListCount so it would be an invalid property <-- EDIT: errm nevermind that, didn't pay attention to Dim c as FileListBox it's worth a try thanks anyways

Edited June 28, 2005 by saprouzy

[dman]

Delprat's way is better if you are only checking for one type of control, like the filelistbox. If you are processing all of the controls then the generic "Dim as object" is more versitile.

[saprouzy]

delprat's way didn't work ,am getting type mismatch when the c is assigned a control that isn't a filelistbox during the for loop.

am sticking to dman's way.

thanks both

[Delprat]

Sorry for the bad

I haven't used VB since years...

[saprouzy]

no worries dude

thanks for your help