Posted: Thu Sep 13, 2007 7:18 am Post subject: VB6 button help
I can change the colour of a shape using a button but how would I make it go in a cycle? e.g red then blue then yellow then green then back to the beginning
Private Sub Command1_Click()
If Shape1.FillColor = &H8000& Then
Shape1.FillColor = &HFF&
Else
If Shape1.FillColor = &HFF& Then
Shape1.FillColor = &HFF0000
Else
If Shape1.FillColor = &HFF0000 Then
Shape1.FillColor = &HFFFF&
Else
If Shape1.FillColor = &HFFFF& Then
Shape1.FillColor = &H8000&
End If
End If
End If
End If
End Sub
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum