Menü abfrage [gelöst]

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

Pummelie

Betreff: Menü abfrage [gelöst]

BeitragSa, Aug 30, 2008 21:59
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi,
ich suche schon ewigkeiten in der hilfe, und versuche mir selbst was zu reimen, aber es nutzt nix.
Ich möchte ein Windows Menü abfragen, um festzustellen, ob es betätigt wurde.

Mein Code:
Code: [AUSKLAPPEN]

menu1 = CreateMenu("Datei", 1, WindowMenu(window))
menu3 = CreateMenu("Update", 3, menu1)
menu4 = CreateMenu("Einstellungen", 4, menu1)
menu6 = CreateMenu("", 6, menu1)
menu5 = CreateMenu("Beenden", 5, menu1)
UpdateWindowMenu window

Repead
If GetKey()=27 Then End
If WaitEvent()=$1001 Then
   Select EventSource()                
          Case "5"
           Gosub ben
        End Select
EndIf
Forever

Wenn ich irrgend ein menü eintrag anklicke,
kommt er zwar auf das select, aber er erkennt er den eintrag nicht.
Weiß nicht was daran falsch sein soll?

Danke schonmal
  • Zuletzt bearbeitet von Pummelie am So, Aug 31, 2008 12:45, insgesamt einmal bearbeitet
 

buja

BeitragSo, Aug 31, 2008 8:35
Antworten mit Zitat
Benutzer-Profile anzeigen
Vielleicht solltest du 'Repead' durch 'RepeaT' ersetzen Wink
...

Pummelie

BeitragSo, Aug 31, 2008 9:21
Antworten mit Zitat
Benutzer-Profile anzeigen
sry, hab ich wohl einen kopierfehler gemacht, repeat steht so da

Eingeproggt

BeitragSo, Aug 31, 2008 12:30
Antworten mit Zitat
Benutzer-Profile anzeigen
EDIT:
Habe in einem alten Code von mir nachgeschaut...
Du musst EventData, nicht EventSource abfragen. (Und auf Integer, nicht auf String)

mfG, Christoph.
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9

Pummelie

BeitragSo, Aug 31, 2008 12:45
Antworten mit Zitat
Benutzer-Profile anzeigen
Vielen dank, es klappt

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group