Højre-klik menu

jeg har sQ ikke Ret meget forstand på VB så du skal ikke Spørge mig!

!

Eh?

lytter!

men jeg kan lave det På en webside!

Public Sub Object_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu objMenu
End Sub
-
Så skal du bare lave menuen som en alm. menu og skjule den.
(objMenu er menuens navn)

jeg kan ikke få det til at virke... men det er jo heller ikke mig der har et spm. ude... :-)

har du oprettet menuen objMenu ?

Denne menu er det bare en alm. menu i menu editor?

Ja, du laver bare en menu lissom du vil lave en normal een, og så sætter du bare Visible = False

Her er alt hvad der står in min kode, og der findes en mnuTest:

Option Explicit
Public Sub Object_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbRightButton Then PopupMenu mnuTest

End Sub

Private Sub Command1_Click()

End

End Sub

Der sker intet når jeg h-klikker!

heh: ...lic Sub Object_MouseUp(Butto... du skal selvfølgelig udskifte Object med din COmmandButton's navn dvs Public Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

OK!

Du skal lave det øverste niveau af menuen til "Visible=false"
I dette eksempel vises menuen i en listboks:

Private Sub lstSted_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        PopupMenu mnuSted
    End If
End Sub

Perfekt - også tak til bccinlove for at stille de spørgsmål jeg ellers havde stillet ;-)

Det var da så lidt :)