Seite 1 von 1

PB_Event_Menu

Verfasst: 14.07.2006 14:10
von Martin66119
Noch eine Frage vor dem Wochenende!
In dem folgendem Code, wo muss ich denn da

Select EventMenueID

und dann

#PB_Event_Menu

einbinden, so dass alles geht.

Code: Alles auswählen

Repeat                
  EventID=WaitWindowEvent() 
  EventWindowID = EventWindow() 
  EventGadgetID= EventGadget()
  EventMenuID = EventMenu()  

  Select EventWindowID   
    Case #Window_1      ; Handling #Window_1 
      Select EventID       
        Case #WM_MOUSEMOVE 
        Case #PB_Event_Gadget
       
          Select EventGadgetID 
            Case #Button_1
              OpenWindow_2()
            Case #Button_2              
            Case #Button_9
              KillThread(Thread1)
              KillThread(Thread2)
              ComClose(HCom) 
              End
          EndSelect
          Case #PB_Event_CloseWindow 
          CloseWindow(#Window_1) 
          Window_1_IsClosed = #True 
      EndSelect 
      
    Case #Window_2    ; Handling #Window_2 
      Select EventID 
        Case #PB_Event_Gadget 
        Case #PB_Event_CloseWindow 
          CloseWindow(#Window_2) 
          Window_2_IsClosed = #True 
      EndSelect          
  EndSelect 
  Delay(0)
Until Window_1_IsClosed = #True And Window_2_IsClosed = #True 

End 

Verfasst: 14.07.2006 14:12
von bobobo
vor oder nach oder innerhalb der anderen Select -Schleife

je nachdem


Ich vermute mal das Du mit vor gut zurechtkommen wirst

Verfasst: 14.07.2006 14:20
von Martin66119
ist es egal vor welcher select schleife

Verfasst: 14.07.2006 14:21
von Martin66119
kannst dus was du meinst mal reinschreiben!

Verfasst: 14.07.2006 14:47
von bobobo
ich scheitere weil Das Stück Code etwas wenig ist

Ich seh kein Menu oder alternativ ein AddKeyBoardshortcut

(ich hatte auch im ersten Angucken übersehen dass das ja schon
eine ganz schön verknotete Select-Abfrage ist)

Du kannst aber die Verschiedenen Events vermutlich koppeln indem
Du auf das SelectKonstrukt verzichtest und dafür If-Abfragen
einsetzt

Code: Alles auswählen

IF EventGadgetID=Irgendwas  OR EventMenuID=wasanderes 
ist durchaus möglich (wenn auch eventuell nicht so übersichtlich)