Warte Bis Aktion

[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...

[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.