[RESOLVED] Buttons Problem...

[mfurqan]

Hello,
if i make a picture box and put a picture in it and use it as a button its okay i m having o problem in this, but is it possible if mouse come over button ( havn't clicked yet ) it changes image .......

i hope u undertsnad what im saying about

[Hack]

In the mousemove event, simply load a different image into it.

[paralinx]

what he means is this:

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
   
    Image1.Picture = LoadPicture('your picture)
 
End Sub

[Hack]

Correct (thanks paralinx...I probably should have posted a code example ) and when the mouse leaves the picture/image control, revert it back to its original.

Bear in mind that these images would need to be deployed with your application so make sure you include them in your setup package.

[paralinx]

It's all good I was going to post the code anyway but you posted before I did. What you can do for when the mouse leaves the image to put it back to the normal image or no image is this in the form:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
   
    Image1.Picture = 'Starting Picture or No Picture
 
End Sub

[mfurqan]

hello, i successfully did that but i still have problem.....

when mouse go over it changes picture but when mouse go from over that picture that picture doesn't come back to old one

[Hack]

hello, i successfully did that but i still have problem.....

when mouse go over it changes picture but when mouse go from over that picture that picture doesn't come back to old one

API to the rescue.

Option Explicit
 
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long 
Private Declare Function ReleaseCapture Lib "user32" () As Long 
Private Declare Function GetCapture Lib "user32" () As Long 
 
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X < 0) Or (Y < 0) Or (X > Picture1.Width) Or (Y > Picture1.Height) Then 
       ReleaseCapture ' mouse is no long over picture control, so change it back to original
       Picture1.Picture = LoadPicture("c:\Original.jpg")
ElseIf GetCapture() <> Picture1.hwnd Then 
       SetCapture Picture1.hwnd 'mouse is over the picture box so change the picture to new guy
       Picture1.Picture = LoadPicture("c:\NewPicture.jpg")
End If
End Sub

Note: This will NOT work with an Image control. You MUST use a Picture control with this code as it requires the use of the control's hWnd property. Image controls do not have an hWnd property.

[mfurqan]

yeh it worked thanks