Hjälp med on_click event

AndreasCMedlem sedan mars 20011 964 inlägg

Frågan22 aug. 2001 17:50#1

Jo, jag har ett register som jag gör i Access. Istället för knappar så har jag bilder som när man klickar på dem så händer det olika saker. Jag har en bild för att t.ex. avsluta databasen och koden för detta ser ju ut som följer:

Private Sub Image96_Click()
On Error GoTo Err_Image96_Click

DoCmd.Quit

Exit_Image96_Click:
Exit Sub

Err_Image96_Click:
MsgBox Err.Description
Resume Exit_Image96_Click

End Sub

När man klickar på bilden så avslutas alltså hela programmet. Jag skulle även vilja att när man klickar på bilden så byts bilden till en annan. När man sedan släpper musknappen så ska bilden återfå sitt ursprungliga utseende, altså precis som en knapp fast med bilder istället. Hur ska man skriva detta om det går?

fredrikMedlem sedan dec. 19991 072 inlägg

7 sep. 2001 10:02#2

För att byta bild så får du använda händelserna "mouseDown" och "mouseUp".

Markera bilden och välj "egenskaper" - "Händelser" - "Vid musknapp ned" - "[Händelseprocedur]"

Klicka på "..." knappen bredvid. Du kommer nu till "Visual Basic"-Editorn och till händelsen:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Private Sub BildNamn_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

end sub

I denna koden skriver du nu vad du vill ska hända, vill du ex. byta bild skriver du:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
formulärNamn.bildNamne.Picture = "C:\nyBild.gif"

För att sedan byta tillbaka gör du samma sak fast vid "Musknapp upp" istället.

------------------
Fredrik Klarqvist
f.klarqvist@spray.se
http://server.webwerkstaden.se/fredde/