Any Clue Will Help

[andytodd]

I have two array's 14 cmdbtns and 14 lbls when a cmdbtn is clicked (any No) then lbl(0) will come visible when the second cmdbtn is clicked (any No) then lbl(1) will come visible and so on I know i need a loop any clues will help

[Bombdrop]

Try something like this.

Option Explicit
Public x As Integer
 
Private Sub Command1_Click(Index As Integer)
    Label1(x).Visible = True
    x = x + 1
End Sub

Hope this helps!!

[dglienna]

In the click event of the button array

CmdButton(Index).caption = mylabel(Index)

or, if you want to display the label, use

mylabel(Index).visible = True

[penagate]

I'm not sure what your talking about. HTH:

' Set all your labels .Visible=False first
Private Sub cmdbtn_Click(Index As Integer)
Static slngPrevIndex As Long
    lbl(Index).Visible = True
    lbl(slngPrevIndex).Visible = False
    slngPrevIndex = Index
End Sub

that what you're after?

[krtxmrtz]

I have two array's 14 cmdbtns and 14 lbls when a cmdbtn is clicked (any No) then lbl(0) will come visible when the second cmdbtn is clicked (any No) then lbl(1) will come visible and so on I know i need a loop any clues will help

Offhand I think this should work (I have assumed the arrays' lower and upper bounds are 0 and 13)

Option Explicit
Dim nVis As Integer
 
Private Sub Form_Load()
   nVis = -1
End Sub
 
Private Sub Command1_Click(Index As Integer)
   If nVis = 13 Then Exit Sub
   nVis = nVis + 1
   Label1(nVis).Visible = True
End Sub

[andytodd]

i dont want the same lbl(index) to become visible as to the same cmdbtn(index) that has been pressed.
I want to be able to click any cmdbtn(index) say for instance cmdbtn(5) and the next lbl(index) that is not visible to become visible.

[penagate]

In that case, krtxmrtz's code will work for you.

Edit: BTW, to resolve your thread use the Thread Tools menu

[Hack]

Try this:

Dim ctrl As Control
  For Each ctrl In Me.Controls
      If TypeOf ctrl Is Label Then
         If ctrl.Visible = False Then
            ctrl.Visible = True
            Exit For
         End If
      End If
    Next

Whatever label it hits first, that isn't currently visible, will become visible. It could be delightfully random.

[andytodd]

Offhand I think this should work (I have assumed the arrays' lower and upper bounds are 0 and 13)

Option Explicit
Dim nVis As Integer
 
Private Sub Form_Load()
   nVis = -1
End Sub
 
Private Sub Command1_Click(Index As Integer)
   If nVis = 13 Then Exit Sub
   nVis = nVis + 1
   Label1(nVis).Visible = True
End Sub

how comes we don't use the end if

[andytodd]

Offhand I think this should work (I have assumed the arrays' lower and upper bounds are 0 and 13)

Option Explicit
Dim nVis As Integer
 
Private Sub Form_Load()
   nVis = -1
End Sub
 
Private Sub Command1_Click(Index As Integer)
   If nVis = 13 Then Exit Sub
   nVis = nVis + 1
   Label1(nVis).Visible = True
End Sub

this works fine apart from it goes straight on to lbl(1) not lbl(0) even though its set in form_load as -1

[krtxmrtz]

how comes we don't use the end if

Because Exit Sub is on the same line as If.

[krtxmrtz]

this works fine apart from it goes straight on to lbl(1) not lbl(0) even though its set in form_load as -1

I've just tested it and lbl(0) is the first to become visible.

[andytodd]

sorry it's just me i havent got a clue cheers for the hand out all the same