Thread: Userform fade not working from command buttons

excel 2003 running xp
Got a userform that is activated from a command button that fades out the background so the userform really stands out.

I have about 5 more command buttons on same page but can NOT get them to use the fade routine when their command buttons are pressed.

kind of got it to work with Buttons but thats not what they require, prefer to use command buttons.

' worked with buttons

Select Case Application.Caller
        Case "Button 32"
            'calls routine show picture which calls userform2
            Call ShowFirstAid

Then repeated this for each Button


Im guessing I need some kind of Class module to see which command button is pressed but stuck

added example file to look at, any help would be great.

Can I ask why you want to use Commandbuttons rather than the more stable Forms buttons?

Originally Posted by berty2000

Because these command buttons are constant throughout the entire project, and you cant apply colour to form buttons.

Yes you can.

I can't see any code to fade out the background or userform

You could just add a public commandbutton variable to the userform's module and set that in the button_click before you show the form.

code change to command buttons

Private Sub CommandButton6_Click()
    ScreenUpdating = False
    ShowDialog "FireSafety"
End Sub

Private Sub CommandButton7_Click()
    ScreenUpdating = False
    ShowDialog "FirstAid"
End Sub

Add this to the top of the Userform1 code module, along this the other declarations.

Public ShowName As String

revise ShowPicture routine

Sub ShowPicture()
'   Displays on top of semi-transparent UserForm

    If Me.ShowName = "FirstAid" Then
        FirstAid.Show
    Else
        FireSafety.Show
    End If
    Unload Me
End Sub

Add this to the declarations section in the userform:

Public Button As MSForms.CommandButton

and then refer to Button wherever you need it in the code.

The ShowDialog code becomes:

Sub ShowDialog(btn As MSForms.CommandButton)
    Dim frm As UserForm1
    Set frm = New UserForm1
    Set frm.Button = btn
    frm.Show
End Sub

and the button_click:

Private Sub CommandButton7_Click()
ScreenUpdating = False

ShowDialog CommandButton7

End Sub

I missed out this change in Module15

Sub ShowDialog(Name As String)
    UserForm1.ShowName = Name
    UserForm1.Show
End Sub

For mine, you need to alter the Userform_Activate code to use:

    ufcap = Me.Caption

rather than:

    ufcap = Userform1.Caption