En slags menu-editor

Se http://www.eksperten.dk/spm/197544 - der står alt hvad du har brug for, selvom spørgsmålet drejer sig om noget lidt andet... /Martin

PS. se svaret fra answarmaster i ovennævnte, hvor der står noget om PopupMenu

Hmm... den forstår jeg ikke helt.

Hvis du kan se ideen i det eksempel:


Private Sub File1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Form2.Visible = True Then
Form2.Hide
Else
Form2.Show
End If

End Sub

jeg ved så ikke hvordan du tager højrekliks på mussen, så må du ud og researche :)


Casper // http://ildstorm.dk

Jeg tror i har misforstået mig. Jeg skal ikke lave nogen popup.

Ligesom i windows når man f.eks. vil slette en fil højreklikker man med mussen og så står der:

Åbn
Overfører til
Klip
Kopier
Sæt ind
Opret genvej
Slet
Omdøb
Egenskaber

På samme måde vil jeg også have at der kommer sådan en felt.

Prøv at se på:

[object.]PopupMenu menuname [, flags [,x [, y [, boldcommand ]]]]

Eksempel på kode:
Private Sub Form_MouseUp (Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
  If Button = 2 Then  ' Check if right mouse button
                        ' was clicked.
      PopupMenu mnuFile  ' Display the File menu as a
                        ' pop-up menu.
  End If
End Sub

Menuen laves med Menu Editor

/Sten Linnel

slebcsysdk

jeg forstår ikke helt hvordan jeg skal bruge din kode.

det her text bliver rødt

[object.]PopupMenu menuname [, flags [,x [, y [, boldcommand ]]]]

Og hvordan laves menuen med menueditor

Hvis det ikke er for meget forlangt kan du ikke bare lave et eksempel og sende den til farhad_waziri@hotmail.com

Det er det her du mener:
http://www.mvps.org/btmtz/shellmenu/

Du skal også bruge dette her for at få det til at funke.

(Visual Basic Dbgwproc.dll)
http://msdn.microsoft.com/vbasic/downloads/components/controls.asp

(Download Dbgwproc.dll)
http://download.microsoft.com/download/vb60pro/Update/6.0/W9X2K/EN-US/DbgWProc.exe

sjh

Jeg har læst lidt i en visual basic bog, og det har noget med pop up at gøre, men jeg forstår det stadig ikke og de links du gav mig virkede ikke.

Ligesom i windows når man f.eks. vil slette en fil højreklikker man med mussen og så står der:

Åbn
Overfører til
Klip
Kopier
Sæt ind
Opret genvej
Slet
Omdøb
Egenskaber

Jeg ved ikke hvordan man laver sådan EN. Hvis det ikke er til meget besvær kan du ikke lave en sådan TING og sende den til min e-mail
farhad_waziri@hotmail.com

Prøv at hente den her:
http://home.get2net.dk/sjh/eksperten/201251/shellmenuv13.zip

sjh

Det er jo det samme fil som før, men jeg siger jo at den ikke virker på min computer. Den downloader, det er ikke det, men ind i programmet når jeg højre klikker så hopper den ud.

hvad er det præcis den program gør, som du sendte mig.

sjh

kig på slebcsysdk svar, jeg tror det er noget i den retning men jeg kan ikke få den til at fungerer

Kan du ikke se det?

Højerklik på File1 og der kommer en menu frem.

nej jeg er ikke så god til vb

når jeg trykker på file1 så hopper den ud

har du set slebcsysdk's forslag

hvordan laver man en popupmenu

Kommer der så ikke en fejl?

jo

jeg har set slebcsysdk's forslag, men det kan man ikke lave den menu du vil have.


Hvad er den fejl så den må have et nummer og en tekst.

mener du fejl på den du sendte mig???

Private Sub ShellContextMenu(objLB As Control, _
                                                x As Single, _
                                                y As Single, _
                                                Shift As Integer)
 
  Dim pt As POINTAPI

det er den fejl den markerer

Åben din form i design mode. (Dobbeltklik på din form)

Gå hen under Tools -> Menu Editor

Tryk F1 for at få hjælp til at oprette en menu.

Opret en menu som f.eks hedder mnuFile

Prøv så min kode fra tidligere.

Tilføj kode for de enkelte menuvalg ved at vælge menuen fra Form vinduet

du kan lave din egen menu hvis du trykker [CTRL] + [E]
det er slebcsysdk's forslag.

fejl på den du sendte mig??? JA

jeg har sendt dig din fejl

Private Sub ShellContextMenu(objLB As Control, _
                                                x As Single, _
                                                y As Single, _
                                                Shift As Integer)
 
  Dim pt As POINTAPI

Så virker slebcsysdk's forslag alligevel ikke, for menueditor er vist kun til menuer.

nu siger den det her fejl

Private Function GetFileLBItemPath(objFLB As FileListBox, iItem As Integer) As String

Right$

Ja du skal registrere den dll file (Dbgwproc.dll) som er med.

1. Luk vb
2. Registrere dll
3. Open vb igen og så skulle det funke

Registrere: start menu kør
regsvr32.exe C:\xxx\xxx\Dbgwproc.dll

Jeg kan umiddelbart ikke finde ud af hvordan man laver det, og da sjh har prøvet at hjælpe mig så meget han kunne, vil jeg gerne give ham pointerne