-
Hello this is a code i have
Private Sub heal_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If heal.Picture.Handle = 0 Then
heal = LoadPicture(clean.Picture)
Else
heal = LoadPicture(play.Picture)
End If
End Sub
It 'would' work but it says clean.picture and play.picture are not file names
when i try
Private Sub heal_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If heal.Picture.Handle = 0 Then
heal = clean.Picture
Else
heal = play.Picture
End If
End Sub
It gives me a different error about procedure also if i try heal.picture = play.picture
I know i have all the images there, and they are images, but i can't make it change the picture
-
If you just want to assign the picture from one picture box to another, then you don't have to use LoadPicture.
Picture1.Picture = Picrure2.Picture
You could use LoadPicture when you are using a path to the picrure.
Picture1.Picture = LoadPicture("C:\MyPicture.bmp)
------------------
Serge
Senior Programmer Analyst
[email protected]
[email protected]
ICQ#: 51055819
