AW: Bild als Button nutzen
02.10.2009 10:31:42
JogyB
Hi.
zur Unschärfe kann ich nichts sagen, ist beim mir aber auch so.
Mal als Beispiel für den Bildwechsel:
' Wechselt das Bild beim Drücken
Private Sub Image1_Click()
Static nextPic As Byte
If nextPic = 0 Then
Image1.Picture = LoadPicture("BILD1")
Else
Image1.Picture = LoadPicture("BILD2")
End If
' Ergibt 0 für 1 und 1 für 0
nextPic = Sgn(-nextPic) + 1
End Sub
' Die beiden Subs simulieren den "Einsinkeffekt" beim Klicken
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
Image1.SpecialEffect = fmSpecialEffectSunken
End Sub
Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
Image1.SpecialEffect = fmSpecialEffectRaised
End Sub
Den SpecialEffect mußt Du zu Beginn gleich auf fmSpecialEffectRaised setzen, dann sieht es wie ein Button aus.
BILD1 und BILD2 mußt Du natürlich durch die Pfade der Bilder ersetzen.
Gruss, Jogy