For Loops

[BatmanSpider]

Basically, I really can't get this to work!

I've got this code:

If Index = 0 Then txtMegaDrive.Text = "Sonic 1"

If Index = 0 Then txtMegaDrive.BackColor = &HFFC0C0

If Index = 1 Then txtMegaDrive.Text = "Sonic 3D"

If Index = 1 Then txtMegaDrive.BackColor = &HFF8080

etc until index 8. Is it possible to change this stuff into a For Loop?
I got stuck after writing:
Dim Count As Integer'
For Count = 0 To 7
Next Count

Thanks very much

[dglienna]

This will change things once. If You use the loop, change the select to Count
and it will do all of them each time. I wasn't sure if that is what you wanted to do, though.

Select Case Index
case 0
   txtMegaDrive.Text = "Sonic 1"
  txtMegaDrive.BackColor = &HFFC0C0
case 1
  txtMegaDrive.Text = "Sonic 3D"
  txtMegaDrive.BackColor = &HFF8080
':
':
end select

[moinkhan]

Basically, I really can't get this to work!

I've got this code:

If Index = 0 Then txtMegaDrive.Text = "Sonic 1"

If Index = 0 Then txtMegaDrive.BackColor = &HFFC0C0

If Index = 1 Then txtMegaDrive.Text = "Sonic 3D"

If Index = 1 Then txtMegaDrive.BackColor = &HFF8080

etc until index 8. Is it possible to change this stuff into a For Loop?
I got stuck after writing:
Dim Count As Integer'
For Count = 0 To 7
Next Count

Thanks very much

If the Text you are assigning and the color you are using are in an array then the loop will be appropriate.. otherwise.. useless...

[Mc Brain]

If the Text you are assigning and the color you are using are in an array then the loop will be appropriate.. otherwise.. useless...

If they were in an array, the loop might also be useless:

txtMegaDrive.Text = MDriveText(Index)
txtMegaDrive.BackColor = MDriveBColor(Index)

[moinkhan]

If they were in an array, the loop might also be useless:

txtMegaDrive.Text = MDriveText(Index)
txtMegaDrive.BackColor = MDriveBColor(Index)

exactly....