How to set image for button hover (1 Viewer)
- Thread starter TxStrob
- Start date
arnelgp
..forever waiting... waiting for jellybean!
- Local time
- Tomorrow, 01:59
- Joined
- May 7, 2009
- Messages
- 19,231
add three Image control to your form (Image1, Image2, Image3).
Image1 and Image two are same image.
Image3 is different image.
set both Image2 and Image3, Visible property to No.
add code to details section mousemove event and to image1 mousemove event:
Image1 and Image two are same image.
Image3 is different image.
set both Image2 and Image3, Visible property to No.
add code to details section mousemove event and to image1 mousemove event:
Code:
Option Compare Database
Option Explicit
Dim strImageName As String
Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If strImageName <> "Image1" Then
strImageName = "Image1"
Me.Image1.PictureData = Me.Image2.PictureData
Me.Repaint
End If
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If strImageName = "Image1" Then
strImageName = ""
Me.Image1.PictureData = Me.Image3.PictureData
Me.Repaint
End If
End Sub
- Local time
- Today, 10:59
- Joined
- Oct 29, 2018
- Messages
- 21,451
Hi. You might consider posting a copy of your db, so we can see how you tried to implement Arnel's suggestion.
GinaWhipp
AWF VIP
- Local time
- Today, 13:59
- Joined
- Jun 21, 2011
- Messages
- 5,900
I think this will give you what you want...
https://www.access-diva.com/vba22.html
https://www.access-diva.com/vba22.html
My code goes from starts with private sub, then go through
Starts here If Me.cmdOpen.Visible = True Then
Then goes here Me.cmdOpen.Visible = False
Then here Me.openGreenBtn.Visible = True
and skips.... this Else Me.cmdOpen.Visible = True
Why is that?
Private Sub cmdOpen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.cmdOpen.Visible = True Then
Me.cmdOpen.Visible = False
Me.openGreenBtn.Visible = True
Else
Me.cmdOpen.Visible = True
End If
End Sub
Starts here If Me.cmdOpen.Visible = True Then
Then goes here Me.cmdOpen.Visible = False
Then here Me.openGreenBtn.Visible = True
and skips.... this Else Me.cmdOpen.Visible = True
Why is that?
Private Sub cmdOpen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.cmdOpen.Visible = True Then
Me.cmdOpen.Visible = False
Me.openGreenBtn.Visible = True
Else
Me.cmdOpen.Visible = True
End If
End Sub
- Local time
- Today, 10:59
- Joined
- Oct 29, 2018
- Messages
- 21,451
Were you getting any error messages?
I am receiving no error, it just skipping that area. When the mouse is over the cmdOpen, it displays openGreenBtn. It does not switch back to cmdOpen, when moving the mouse off the button.
- Local time
- Today, 10:59
- Joined
- Oct 29, 2018
- Messages
- 21,451
Hi. Colin is correct, and I see Arnel also gave you the code for the Detail section. Did you forget to use it?
