Seite 1 von 1
Warte Bis Aktion
Verfasst: 27.08.2005 11:08
von LeoS#PUpDock
Wäre es möglich, diesen Cod-Text irgendwie in PureBasic zum laufen zu bringen?
Code: Alles auswählen
Gosub.s = "Window_"+EventWindowID()+"_Menue_"+EventMenuID()
Gosub Gosub.s
Damit könnte ich mir eine mänge Codtext erleichern...
Verfasst: 27.08.2005 11:14
von Deeem2031
Du könntest das so machen:
Code: Alles auswählen
Windows = 1 ;1 Fenster
Menus = 2 ;2 Menüs
Dim MenuEvents(Windows-1,Menus-1)
MenuEvents(0,0) = ?Window_0_Menue_0
MenuEvents(0,1) = ?Window_0_Menue_1
;...
CallFunctionFast(MenuEvents(EventWindowID(),EventMenuID())) ;Das selbe wie Gosub MenuEvents(EventWindowID(),EventMenuID())
;...
End
Window_0_Menue_0:
;...
Return
Window_0_Menue_1:
;...
Return
Mit Strings wird das nicht funktionieren.
[EDIT] "Gosub MenuEvents(EventWindowID(),EventMenuID())" funktioniert ja garnicht... Naja, dann nimmste halt "CallFunctionFast(MenuEvents(EventWindowID(),EventMenuID()))" funktioniert genauso.