Menüpunkt auswählen

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

Blitzfreak

Betreff: Menüpunkt auswählen

 BeitragMo, Mai 16, 2005 11:12
Antworten mit Zitat
Benutzer-Profile anzeigen
hi leute,

ich weiß ich hab die frage vor ein paar tagen schon mal gestellt aber das thema is irgendwie nicht mehr da....
Wie mach ich das, dass wenn ich in b+ nen menüpunkt auswähle, was passiert wenn ich darauf klicke?

Hier mal der code:
BlitzBasic: [AUSKLAPPEN] 

AppTitle \"B+ Mediaplayer\"

Mediafenster=CreateWindow (\"B+ Mediaplayer\", 100, 100, 750, 600 )


;-------------------\"Datei\"- Menü--------------------------------------


menu1=CreateMenu(\"Datei\",1,WindowMenu (Mediafenster) )
menu2=CreateMenu(\"Mediendatei öffnen\",2,menu1)
menu3=CreateMenu(\"\",3,menu1)
menu4=CreateMenu(\"Beenden\",4,menu1)

;------------------\"Hilfe\" - Menü-----------------------------------

menu5=CreateMenu(\"Hilfe\",5,WindowMenu(Mediafenster) )
menu6=CreateMenu(\"Hilfe\",6,menu5)
UpdateWindowMenu Mediafenster

Repeat
If KeyHit(1)=1 Then End

Forever

ich weiß er ist noch seehhhhhhrrr kurz aber ich habe erst angefangen


ps: danke für antworten

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragMo, Mai 16, 2005 11:15
Antworten mit Zitat
Benutzer-Profile anzeigen
Hier nochmal das Beispiel:BlitzBasic: [AUSKLAPPEN] 
window = CreateWindow (\"Window\",500,500,300,100,0,15)
    menue10=  CreateMenu (\"Menue10\",10,WindowMenu(window))
        menue11= CreateMenu (\"Menue11\",11,menue10)
        menue12= CreateMenu (\"Menue12\",12,menue10)
    menue20=  CreateMenu (\"Menue20\",20,WindowMenu(window))
        menue21= CreateMenu (\"Menue21\",21,menue20)
        menue22= CreateMenu (\"Menue22\",22,menue20)
UpdateWindowMenu window
Repeat 
    Select WaitEvent ()
     Case $803 
        End
     Case $1001
         Select EventData ()
            Case 11
                SetStatusText  window , \"Menue 11 gewählt\"
            Case 12
                SetStatusText  window , \"Menue 12 gewählt\"
            Case 21
                SetStatusText  window , \"Menue 21 gewählt\"
            Case 22
                SetStatusText  window , \"Menue 22 gewählt\"
         End Select 
    End Select
Forever
[BB2D | BB3D | BB+]
 

Blitzfreak

 BeitragMo, Mai 16, 2005 11:15
Antworten mit Zitat
Benutzer-Profile anzeigen
danke

simi

 BeitragMo, Mai 16, 2005 11:16
Antworten mit Zitat
Benutzer-Profile anzeigen
hi,

dafür gibts in B+ Events.... ( http://www.blitzbase.de/tabellen/ereignisse.htm )

Wenn ein Menüpunkt angewählt wird, wird der Event $1001 ausgelöst....
In EventData hast du dann die Menünummer:

Code: [AUSKLAPPEN]

select WaitEvent()     ;Auf einen Event warten
  case $1001          ;Wenn Menü-Event...
    Select EventData()        ;EventData auswerten
      case 2
        Notify "Mediendatei öffnen"
      case 4
        end
    end select
end select


//edit: zu langsa, Rolling Eyes
 

Blitzfreak

 BeitragMo, Mai 16, 2005 14:32
Antworten mit Zitat
Benutzer-Profile anzeigen
tut mir echt leid für die blöde frage, aber kann man das mit "select....case" nicht irgendwie auch mit "if" machen, denn mit select kenn ich mich nicht so gut aus

DA

 BeitragMo, Mai 16, 2005 14:36
Antworten mit Zitat
Benutzer-Profile anzeigen
Moin,

Wen du dich mit Select und Case nicht so gut auskennst, dann lern es doch schnell. Wink
So schwer ist das auch wieder nicht.

Thx
DarkAngel
Deutscher Blitz Basic Chat
 

Blitzfreak

 BeitragMo, Mai 16, 2005 14:39
Antworten mit Zitat
Benutzer-Profile anzeigen
ok ich versuchs
 

Blitzfreak

 BeitragMo, Mai 16, 2005 14:56
Antworten mit Zitat
Benutzer-Profile anzeigen
ich habs zwar jetz kappiert aber es passiert NIX wen ich auf ein menü klicke

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragMo, Mai 16, 2005 15:05
Antworten mit Zitat
Benutzer-Profile anzeigen
dann zeig mal deinen jetzigen Code!
[BB2D | BB3D | BB+]
 

Blitzfreak

 BeitragMo, Mai 16, 2005 15:18
Antworten mit Zitat
Benutzer-Profile anzeigen
ok hier:
BlitzBasic: [AUSKLAPPEN] 

AppTitle \"B+ Mediaplayer\"

Mediafenster=CreateWindow (\"B+ Mediaplayer\", 100, 100, 750, 600 )


;-------------------\"Datei\"- Menü--------------------------------------


menu1=CreateMenu(\"Datei\",1,WindowMenu (Mediafenster) )
menu2=CreateMenu(\"Mediendatei öffnen\",2,menu1)
menu3=CreateMenu(\"\",3,menu1)
menu4=CreateMenu(\"Beenden\",4,menu1)

Select WaitEvent(-1)     ;Auf einen Event warten 
  Case $1001          ;Wenn Menü-Event... 
    Select EventData( )        ;EventData auswerten 
      Case 2 
        Notify \"Mediendatei öffnen\" 
      Case 4 
         End
    End Select 
End Select 
UpdateWindowMenu mediafenster

;------------------\"Hilfe\" - Menü-----------------------------------

menu5=CreateMenu(\"Hilfe\",5,WindowMenu(Mediafenster) )
menu6=CreateMenu(\"Hilfe\",6,menu5)
UpdateWindowMenu Mediafenster

Repeat
If KeyHit(1)=1 Then End

Forever

Artemis

 BeitragMo, Mai 16, 2005 15:37
Antworten mit Zitat
Benutzer-Profile anzeigen
*g*
du musst die abfrage natürlich in deine schleife tuen!
soBlitzBasic: [AUSKLAPPEN] 
Mediafenster=CreateWindow (\"B+ Mediaplayer\", 100, 100, 750, 600 ) 
;-------------------\"Datei\"- Menü-------------------------------------- 
menu1=CreateMenu(\"Datei\",1,WindowMenu (Mediafenster) )
menu2=CreateMenu(\"Mediendatei öffnen\",2,menu1)
menu3=CreateMenu(\"\",3,menu1)
menu4=CreateMenu(\"Beenden\",4,menu1) 
;------------------\"Hilfe\" - Menü-----------------------------------
menu5=CreateMenu(\"Hilfe\",5,WindowMenu(Mediafenster) )
menu6=CreateMenu(\"Hilfe\",6,menu5)
UpdateWindowMenu Mediafenster
Repeat
Select WaitEvent(1)     ;Auf einen Event warten
  Case $1001          ;Wenn Menü-Event...
    Select EventData( )        ;EventData auswerten
      Case 2
        Notify \"Mediendatei öffnen\"
      Case 4
         End
    End Select
End Select
If KeyHit(1)=1 Then End
Forever
 

Blitzfreak

 BeitragMo, Mai 16, 2005 15:41
Antworten mit Zitat
Benutzer-Profile anzeigen
danke da wär ich echt nich drauf gekommen jetzt funzt es

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group