Bei rechtsklick auf bild MsgBox

Computer: Software & Programmierung Visual Basic
#1

Hallo alle zusammen,

wie kann ich es schaffen, dass wenn ich rechtsklick auf ein Bild (in Visual Basic 6) eine MsgBox erscheint?

Dnake für gute Antworten schon mal im Vorraus^^

Gruß
christopher

#2

wie kann ich es schaffen, dass wenn ich rechtsklick auf ein
Bild (in Visual Basic 6) eine MsgBox erscheint?

Hi Christopher,

in Vba wäre das so:

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then MsgBox Button
End Sub

Vielleicht kannst es ja umbasteln.

Vielleicht gibt es für die 2 auch sowas wie vbMouseButtonrightPressed oder so *k.A.*

Gruß
Reinhard

#3

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal
Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then MsgBox Button
End Sub

Bei mir kommt dann leider eine Fehlermeldung:
„Fehler beim Kompilieren:
Dekleration oder Prozedur entspricht nicht der Beschreibung eines Ereignisses oder einer Prozedur mit dem selben Namen.“

Was heißt das???

#4

Hi Christopher,
weiß ich nicht und wild rumrate, probiers mal so:

Private Sub Image1_MouseDown( Button , Shift, X , Y)
oder so
Private Sub Image_MouseDown( Button , Shift, X , Y)

Gruß
Reinhard

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#5

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal
Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then MsgBox Button
End Sub

Bei mir kommt dann leider eine Fehlermeldung:
„Fehler beim Kompilieren:
Dekleration oder Prozedur entspricht nicht der Beschreibung
eines Ereignisses oder einer Prozedur mit dem selben Namen.“

Was heißt das???

Private Sub Image1_MouseDown( Button , Shift, X , Y)
oder so
Private Sub Image_MouseDown( Button , Shift, X , Y)

naja, daran liegts nciht, hab schon geschaut!
aber ist das wirklich der code für VB6 ???

#6

Hallo Christopher,

du machst dich einfach dem Mousedown Event zu nutze.
Da du recht sparlich warst mit deinen Info’s, so kann man auch nur raten!
In VB kannst du Bilder einmal in einer ImageBox darstellen oder in einer PictureBox!

Anbei 2 Demo’s, einmal für eine PictureBox und einmal für eine Imagebox.

Option Explicit

Private Sub Image1\_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If Button = 2 Then
 'Dein Source
 End If
End Sub

Private Sub Picture1\_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
 'dein Source
End If
End Sub

MfG Alex

#7

naja, daran liegts nciht, hab schon geschaut!
aber ist das wirklich der code für VB6 ???

Hi Christopher,

was kann ich verbessern an der Kommunikation, ich schrieb doch „Vba“, soll ich es kursiv, fett, blinkend schreiben? :smile:

mfG
Reinhard