overfør menu til anden frm i forms

Så vidt jeg kan se skal man oprette den i hver form......

Men tester lige noget vender lige tilbage.....

Hvis du åbner din form i Notepad eller en anden text editor, så kan du finde noget kode, der ligner dette :

Begin VB.Menu Tester
Caption        =  "Tester"
  Begin VB.Menu Tester1
      Caption        =  "Tester1"
  End
End

Og det kopiere du, og åbner din anden form i text editor og paster det ind i den samme sted som du tog det fra i første form og så vupti....

/Tubber

Det kan sikkert også gøres med noget kode så man slipper for at skulle vedligeholde en menu i alle forms..

Hej tubber. Fræk metode, men det det er kodedelen jeg er interesseret i, da jeg ellers med mange frm kan få et være hus med at holde styr på menuen samt den subs.

mvh
Brock

Når jeg kigger igennem VB kan jeg ikke få koden frem for selve Menu'en i den enkelte form så jeg kan ikke se at det skulle kunne lade sig gøre sådan...:O(

:(
Selvom svaret ikke er det jeg er på jagt efter, vil jeg under alle omstændigheder give dig 50 point for dit bud, da det letter arbejdet med menuerne noget. Hvis du imellemtiden finder en løsning er jeg selvsagt lutter øre :)

mvh
brock

Ellers kan du kode dig ud af det med en macro der går ind og åbner alle forms i dit projekt som txt og læser menuen fra din form1 og sætter den ind i de resterende forms...???

Tak skæbne ;)
Det er som sagt loading kode jeg er ude efter, hvis det da eksisterer ?

mvh
Brock

Du kan også overveje at anvende et alternativ til VB's menueditor, som også giver dig det nye XP look. Med den kan du smide koden til at generere menupunkter på module level og genbruge det i de forskellige forms.

Udover at det fungerer godt, er det også gratis.

Se http://www.vbsmart.com

Hej Olet.

Det ser spændende ud :) - hvis du vil være venlig at vise, hvordan modul.bas koden skal se ud og loades i formen er jeg vist kommet i mål !!!

mvh

Brock

Jo, men du må jo følge vejledningen til komponenten og bygge dine menukald efter dit behov.

Når denne del af koden er klar, så laver du en Public Sub i modul.bas og kalder den fra din Form's Load event, fx

modul.bas

Public Sub MakeMenu(objMenu)

  With objMenu
    .
    . objMenumenu code goes here
  End With

End Sub

form1.frm:

Private Sub Form_Load()

  Call MakeMenu(objMenu) 'objMenu er en ref til din form's menu OCX

End Sub

Ja, så fik jeg den... stirrede mig lige blind på objMenu :)

Tak til alle

til dig tubber er der 50 point her for indsatsen
http://www.eksperten.dk/spm/319317