change the image by clicking

matapagi2019 · #1 03-22-2019, 11:36 PM

I want to replace userform lebel1 picture ("image_1.bmp") into ("image_2.bmp") after clicking once, and returning it again to ("image_1.bmp") after the second click.
But the following code does not change it.
Is there a solution for this?

Code:

Private Sub UserForm_Initialize()
    Label1.Picture = LoadPicture("D:\My Pictures\Image_1.bmp")
End Sub

Private Sub CommandButton1_Click()
    If Label1.Picture = LoadPicture("D:\My Pictures\Image_1.bmp") Then
        Label1.Picture = LoadPicture("D:\My Pictures\Image_2.bmp")
    Else
    End If
End Sub

For all help, thanks a lot.

gmayor · #2 03-23-2019, 01:35 AM

You cannot get the image name that way, so you need to set a value that you can read from the command button whenever the image changes. You could use a hidden check box or a hidden label or use the tag property of the userform e.g.

Code:

Private Sub UserForm_Initialize()
    Label1.Picture = LoadPicture("D:\My Pictures\Image_1.bmp")
    Label2.Caption = "Image1"
    Label2.Visible = False
    'Tag = "Image1"
End Sub

Private Sub CommandButton1_Click()
    If Label2.Caption = "Image1" Then
        'If Tag = "Image1" Then
        Label1.Picture = LoadPicture("D:\My Pictures\Image_2.bmp")
        Label2.Caption = "Image2"
        'Tag = "Image2"
    Else
        Label1.Picture = LoadPicture("D:\My Pictures\Image_1.bmp")
        Label2.Caption = "Image1"
        'Tag = "Image1"
    End If
End Sub

matapagi2019 · #3 03-23-2019, 03:23 AM

Quote:

Originally Posted by gmayor

You cannot get the image name that way, so you need to set a value that you can read from the command button whenever the image changes. You could use a hidden check box or a hidden label or use the tag property of the userform e.g.

Code:

Private Sub UserForm_Initialize()
    Label1.Picture = LoadPicture("D:\My Pictures\Image_1.bmp")
    Label2.Caption = "Image1"
    Label2.Visible = False
    'Tag = "Image1"
End Sub

Private Sub CommandButton1_Click()
    If Label2.Caption = "Image1" Then
        'If Tag = "Image1" Then
        Label1.Picture = LoadPicture("D:\My Pictures\Image_2.bmp")
        Label2.Caption = "Image2"
        'Tag = "Image2"
    Else
        Label1.Picture = LoadPicture("D:\My Pictures\Image_1.bmp")
        Label2.Caption = "Image1"
        'Tag = "Image1"
    End If
End Sub

From your explanation, it makes perfect sense to me.
And I'm sure it will work well.
So, thank you very much for your help.
And I think the problem has been solved.

regards.

gmayor · #4 03-23-2019, 01:46 AM

On further reflection, you can use the same label e.g.

Code:

Private Sub UserForm_Initialize()
    Label1.Picture = LoadPicture("D:\My Pictures\Image_1.bmp")
    Label1.Caption = "Image1"
    Label1.ForeColor = Label1.BackColor
End Sub

Private Sub CommandButton1_Click()
    If Label1.Caption = "Image1" Then
        Label1.Picture = LoadPicture("D:\My Pictures\Image_2.bmp")
        Label1.Caption = "Image2"
    Else
        Label1.Picture = LoadPicture("D:\My Pictures\Image_1.bmp")
        Label1.Caption = "Image1"
    End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Change the image shown on my custom templates	Sanwitte	Word	3	03-20-2018 02:55 AM
How to change original image sizes in Word	menander	Word VBA	6	03-05-2017 01:58 PM
activating a video after clicking on image	jansmits	PowerPoint	0	10-24-2013 10:17 AM
Clicking a picture to go to MSpaint?	SharpTJ	Word	0	03-13-2013 06:50 PM
Change object properties by clicking	PopOnTheAir	PowerPoint	7	03-16-2012 02:13 PM