Image als butten benutzen mit over und up Effekt?

[Bi0sh0k]

Ich weiß das man in Vb6 mit Image_Click() theoretisch das Image als Button benutzen kann. Nun möchte, dass wenn man mit dem Mauszeiger nur über den Button geht, das ein anderes Image angezeigt wird.
Und ich wollte, wenn man das Image anklickt ein anderes Bild angezeigt wird während dem klicken.

Ich hab bloß keine Ahnung wie ich das anstellen soll.
Kann mir da jemand helfen?
Muss ich da was anders hinschreiben z.b. Image_ClickDown() oder sowas in der Richtung?

[inmate]

mouse_move heist das eigentlich

[Steiger_mp]

vllt das image auf einen panel legen,dann siehts schöner aus

[Bi0sh0k]

Wie ist das mit Panel gemeint?
Auf nen Button? Weil diesen Rand von dem Butten will ich ausblenden.

[ChiLLiN]

Ein Mouse-Over-Effekt für VB-Controls ist standardmässig bei Visual-Basic leider nicht vorgesehen. Um beispielsweise ein Command-Button beim Überfahren mit der Maus im Aussehen zu verändern (siehe Inernet-Hyperlinks) genügen schon ein paar Zeilen Programmcode.
Erstellen Sie für das Beispiel ein Formular mit einem Frame-Control und platzieren darin zwei Buttons "Command1" und "Command2". Setzen Sie die Style-Eigenschaft der Command-Buttons auf "1 - grafisch".
Fügen Sie nachfolgenden Code in den Codeteil der Form ein:

  Option Explicit
 
Private lastControl As CommandButton
Private ButtonName As String
Private hover As Boolean  Private Sub Form_Load()
  ' Hintergrundfarbe der Buttons setzen
  Command1.BackColor = vbYellow
  Command2.BackColor = vbYellow
End Sub  ' --- Ereignis beim Verlassen der Buttons und Eintreten ins Framefeld
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 
  ' Wenn sich Maus zuvor nicht über ein Button bewegt hat
  If hover = False Then Exit Sub
 
  ' Maus hat sich über Buttons bewegt
  hover = False
 
  ' Button-Standardwerte wiederherstellen
  lastControl.BackColor = vbYellow
  lastControl.FontUnderline = False
End Sub  ' --- Ereignis Maus bewegt sich über "Command1"
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 
  ' Hintergrundfarbe ändern
  Command1.BackColor = vbRed
 
  ' Buttontext unterstreichen
  Command1.FontUnderline = True
 
  ' Buttonmerker setzen
  Set lastControl = Command1
 
  ' Maus hat sich über ein Button bewegt
  hover = True
End Sub  ' --- Ereignis Maus bewegt sich über "Command2"
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 
  ' Hintergrundfarbe ändern
  Command2.BackColor = vbRed
 
  ' Buttontext unterstreichen
  Command2.FontUnderline = True
 
  ' Buttonmerker setzen
  Set lastControl = Command2
 
  ' Maus hat sich über ein Button bewegt
  hover = True
End Sub

QUELLE

[CYSER]

in vb.net geht das so picturebox1_MouseEnter und MouseLeave^^ dann die box mitm anderen bild belegen

[Bi0sh0k]

Danke für den Tipp, aber wie bekomme ich diese Umrahmung von dem original Button weg? Also ich meine diese Grauen Ecken. Die bleiben ja noch. Kann man das auch irgendwie umgehen?