> I am using VB 6 and trying to select 1 of 3 matrixes depending on 1 of
3
> option buttons using the case statement.  Display is a variable 1-3 of
the
> matrix to be displayed. Option Buttons are named SelectMatrix (0),
> SelectMatrix (1), & SelectMatrix (2) . The problem is the Case
SelectMatrix
> has to be set to a test expression but this always prints out the 1st
case
> for every option button selected.
>
> Private Sub SelectMatrix_Click(Index As Integer)
> Dim Display As Integer
> Select Case SelectMatrix(0)
>    Case SelectMatrix(0).value = True
>        Picture4.Cls
>     Display = 0
> Case SelectMatrix(1).value = True
>        Picture4.Cls
>     Display = 1
> Case Else
>        Picture4.Cls
>     Display = 2
> End Select
>     'test code below to see what was selected
>     Picture4.Print Display
> End Sub

Off the top of my head (and based on a very quick look), I am not sure
why the first cast is being selected; however, you are using the wrong
value in your Select Case statement. Do you see the "Index As Integer"
argument inside the Click event's parentheses? That is a "freebie" that
VB gives you for control arrays. It identifies the Index value of the
control array item that triggered the event. So, for the code you set
up, I would recode it as follows

Private Sub SelectMatrix_Click(Index As Integer)
  Dim Display As Integer
  Select Case Index
    Case 0
      Picture4.Cls
      Display = 0
    Case 1
      Picture4.Cls
      Display = 1
    Case 2
      Picture4.Cls
      Display = 2
  End Select
  'test code below to see what was selected
  Picture4.Print Display
End Sub

HOWEVER, you don't really need that Select Case structure at all (at
least from the code you posted). Try this instead...

Private Sub SelectMatrix_Click(Index As Integer)
  Picture4.Cls
  Picture4.Print Index
End Sub

where I used the fact that Display was being set to the same value as
the control's Index value.

Rick - MVP



--- UseNet To RIME Gateway {at} 2/11/05 6:45:35 PM ---