von eBayer » Mo, 05.10.2009 22:06
Ich habs geschafft......
Dynamisches Menu per Makro ist möglich. Ich werde mich allerdings nur um Base-Formulare kümmern!
Bei mir läuft bereits ein Testprogramm stabil.
Ich werde das Modul so gestalten, daß Du in der Main-Routine jedes Formulars das jeweils benötigte Menu selbst konfigurieren kannst.
Etwa in der Form:
Dim aMenus (3)
aMenus(0) = "TestMenu0"
aMenus(1) = "TestMenu1"
aMenus(2) = "TestMenu2"
Dim aSubMenus(2,5)
aSubMenus(0,0) = "TestForm0-0:SubName00"
aSubMenus(0,1) = "TestForm0-1:SubName01"
aSubMenus(0,2) = "TestForm0-2:SubName02"
aSubMenus(0,3) = "TestForm0-3:SubName03"
aSubMenus(0,4) = "TestForm0-4:SubName04"
aSubMenus(1,0) = "TestForm1-0:SubName10"
aSubMenus(1,1) = "TestForm1-1:SubName11"
aSubMenus(1,2) = "TestForm1-2:SubName12"
aSubMenus(1,3) = "TestForm1-3:SubName13"
aSubMenus(1,4) = "TestForm1-4:SubName14"
setFormMenu(aMenus, aSubMenus)
Das erzeugt 3 MenuEinträge, bei denen der 1. und 2. jeweils 5 Formulare etc. aufruft.
Der 3 Eintrag hat keine Submenus.
Mehr wird nicht zu tun sein,
In 2-3 Tagen werde ich damit fertig sein.
In einem nächsten Schritt werde ich das Menu über eine Datenbank-Tabelle oder eine externe INI-Datei konfigurierbar gestalten.
Einverstanden?
Gruß eBayer
Ich habs geschafft......
Dynamisches Menu per Makro ist möglich. Ich werde mich allerdings nur um Base-Formulare kümmern!
Bei mir läuft bereits ein Testprogramm stabil.
Ich werde das Modul so gestalten, daß Du in der Main-Routine jedes Formulars das jeweils benötigte Menu selbst konfigurieren kannst.
Etwa in der Form:
Dim aMenus (3)
aMenus(0) = "TestMenu0"
aMenus(1) = "TestMenu1"
aMenus(2) = "TestMenu2"
Dim aSubMenus(2,5)
aSubMenus(0,0) = "TestForm0-0:SubName00"
aSubMenus(0,1) = "TestForm0-1:SubName01"
aSubMenus(0,2) = "TestForm0-2:SubName02"
aSubMenus(0,3) = "TestForm0-3:SubName03"
aSubMenus(0,4) = "TestForm0-4:SubName04"
aSubMenus(1,0) = "TestForm1-0:SubName10"
aSubMenus(1,1) = "TestForm1-1:SubName11"
aSubMenus(1,2) = "TestForm1-2:SubName12"
aSubMenus(1,3) = "TestForm1-3:SubName13"
aSubMenus(1,4) = "TestForm1-4:SubName14"
setFormMenu(aMenus, aSubMenus)
Das erzeugt 3 MenuEinträge, bei denen der 1. und 2. jeweils 5 Formulare etc. aufruft.
Der 3 Eintrag hat keine Submenus.
Mehr wird nicht zu tun sein,
In 2-3 Tagen werde ich damit fertig sein.
In einem nächsten Schritt werde ich das Menu über eine Datenbank-Tabelle oder eine externe INI-Datei konfigurierbar gestalten.
Einverstanden?
Gruß eBayer