(mouseover effect) , - . Web- .
Access . (On Mouse Move). (On Mouse Move), . (On Mouse Move) , .
, . 16.10, .
, , Don't Click Me ( ) ( HappyFace ( )).
, . (On Mouse Move). , :
Private Sub DoNotClickButton_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
HappyFace.Picture = "C:\Images\UnHappy.jpg" End Sub
. 16.10. : . : Don't Click Me ( ), , , . - ,
, ( UnHappy.jpg) C:\Images.
, , , , (. . " " ).
(On Mouse Move) . , . , , .
(On Mouse Move) , ,
, . , .
Private Sub Detail_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
HappyFace.Picture = "C:\Images\Happy.jpg"
|
|
End Sub
. , UnHappy.jpg Happy.jpg . , , - ?
, . Access :
HappyFace.Picture = CurrentProject.Path & "\Happy.jpg"
, , : CurrentProject ( ), . CurrentProject Path (), .
, , .