[RESOLVED] VB6 Button Backcolor

[sjw239]

I am going nuts and I feel so stupid for not being able to figure this out!

I have four buttons, A B C and D, and when you click on A, I want the backcolor of the button to change. Then when you click on B, I want A to change back to grey, and for B's backcolor to change. Could anyone help me out with this?

[Hack]

Welcome to the forms.

What code do you have in your button clicks now?

Are they stand alone buttons or in an array?

[Static]

Add one command button
set the STYLE = Graphical

now copy the button and paste it 3 times... YES, you want a control array

Private Sub Command1_Click(Index As Integer)
    For x = 0 To Command1.UBound
        If x = Index Then
            Command1(x).BackColor = &HFF& 'Red
        Else
            Command1(x).BackColor = &H8000000F 'Button Face
        End If
    Next
End Sub

[sjw239]

These are stand alone buttons... I cannot use a control array...

[Static]

ok.. fancy way:

Private Sub Command1_Click()
    SetBGColor Command1
End Sub
 
Private Sub Command2_Click()
    SetBGColor Command2
End Sub
 
Private Sub Command3_Click()
    SetBGColor Command3
End Sub
 
Private Sub Command4_Click()
    SetBGColor Command4
End Sub
 
Private Sub SetBGColor(btn As CommandButton)
    Dim ctl As Control
    btn.BackColor = &HFF
    For Each ctl In Me.Controls
        If TypeOf ctl Is CommandButton Then
            If ctl <> btn Then
                ctl.BackColor = &H8000000F
            End If
        End If
    Next
                
End Sub

[sjw239]

Thats VB.NET... I'm looking for VB 6

[Static]

look again. thats VB6

[sjw239]

Very sorry static. Thank you so much.

[Static]

No problem!!

now that its saolved.. please go to thread tools and click mark thread resolved

Thanks!