menubar probleme

[captain third]

ich habe jetzt hier so ein menübar dingsi aufgebaut,und will das er eine bestimmte datei öffnet,aber irgendwie will das net,hier ist der code

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration

;- MenuBar Constants
;
Enumeration
  #MenuBar_0
EndEnumeration

Enumeration
  #MENU_2
EndEnumeration



  If OpenWindow(#Window_0, 47, 125, 257, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "written by Third")
    If CreateMenu(#MenuBar_0, WindowID())
      MenuTitle("test")
      MenuItem(#MENU_2, "txt datei öffnen")
    EndIf
    
    If CreateGadgetList(WindowID())

  Repeat 
     EventID = WaitWindowEvent() 


      If EventID=#MENU_2 
        RunProgram("C:\Eigene Dateien\ZEICHEN.TXT")
      EndIf 
     

  Until WaitWindowEvent()=#PB_Event_CloseWindow       
    EndIf
  EndIf

warum will sich das programm sich net öffnen lassen?

danke schoinmal im vorraus

[Danilo]

warum will sich das programm sich net öffnen lassen?

Weil keine Nachricht '#MENU_2' ankommt. Die 'EventID' ist hier
'#PB_Event_Menu', und danach kannst Du mit EventMenuID()
die Menünummer abfragen. Siehe dazu bitte noch einmal beim
PB-Beispiel für Menüs, sowie auch in der Referenz zu PB.

Da der Pfad zu Deiner Textdatei ein Leerzeichen enthält, *kann*
es sein das Du es noch in Anführungszeichen setzen mußt:

Code: Alles auswählen

RunProgram(#DQUOTE$+"C:\Eigene Dateien\ZEICHEN.TXT"+#DQUOTE$)

[captain third]

ai...jetz habschs,danke