PDA

View Full Version : [SOLVED:] UF Image Event



Emoncada
12-02-2013, 09:57 AM
Hello, I have a userform with several Images that i want to be able to do the following.

I want to be able to click on an image, then have that image be sent to another Imgbox that has no image.

How can I get this done?

Aflatoon
12-02-2013, 10:00 AM
The basic principle should be just:
Private Sub Image1_Click()
Me.Image2.Picture = Me.Image1.Picture
End Sub

Emoncada
12-02-2013, 10:08 AM
Wow, that sounds really simple. I will give it a try. Do you know how i can test if an Image has a picture?

Aflatoon
12-02-2013, 10:17 AM
With 'Is Nothing':
If Not Me.Image1.Picture Is Nothing Then Me.Image2.Picture = Me.Image1.Picture

Emoncada
12-02-2013, 10:18 AM
I have tried if


Me.Image2.picture = "" Then
Me.Image1.picture = Me.Image2.picture


But I get an error on the first line.

Emoncada
12-02-2013, 10:21 AM
Thanks, Aflatoon. That worked!