Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
controls collection Index
- Thread starter enigma333
- Start date
JustinEzequiel
Programmer
Option Explicit
Private Sub Command1_Click()
MsgBox CtrlIdx("Label1"
End Sub
Private Function CtrlIdx(ByVal sName As String) As Long
Dim i As Long
CtrlIdx = -1
For i = 0 To Controls.Count - 1
If Controls(i).Name = sName Then
CtrlIdx = i
Exit For
End If
Next i
End Function
Private Sub Command1_Click()
MsgBox CtrlIdx("Label1"
End Sub
Private Function CtrlIdx(ByVal sName As String) As Long
Dim i As Long
CtrlIdx = -1
For i = 0 To Controls.Count - 1
If Controls(i).Name = sName Then
CtrlIdx = i
Exit For
End If
Next i
End Function
- Thread starter
- #3
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question