Menüaktion funktioniert nicht

Übersicht

BlitzBasic

BlitzPlus

	bear1 Betreff: Menüaktion funktioniert nicht	Sa, Mai 29, 2004 19:35 Antworten mit Zitat
Hallo, also, ich hab folgendes Problem und weiß nicht, woran es liegt: Ich habe hier ein Testprogramm geschrieben, weil ich mit GUI noch nicht so erfahren bin. Bei diesem Testprogramm geht es darum, dass das Programm sich beendet, wenn man im Dateimenü auf Beenden klickt. Aber das funktioniert nicht. Liegt das jetzt am Code, an der Event-Nummer oder an was? Hier ist der Code: Code: [AUSKLAPPEN] [EINKLAPPEN] mainwin=CreateWindow("Testprogramm",40,40,800,600,0,9) datei=CreateMenu("Datei",1,WindowMenu(mainwin)) beenden=CreateMenu("Beenden",2,datei) UpdateWindowMenu mainwin Repeat ergebnis=WaitEvent() Select ergebnis Case $1001 End End Select Forever Danke für Hilfe im Voraus. bear1[/code]
Ja, ne... Zum virtuellen Staat Eranien: http://www.eranien.de Zu meinem Blog: http://www.erixpage.de

bear1

Betreff: Menüaktion funktioniert nicht

Sa, Mai 29, 2004 19:35
Antworten mit Zitat

Hallo,

also, ich hab folgendes Problem und weiß nicht, woran es liegt: Ich habe hier ein Testprogramm geschrieben, weil ich mit GUI noch nicht so erfahren bin. Bei diesem Testprogramm geht es darum, dass das Programm sich beendet, wenn man im Dateimenü auf Beenden klickt. Aber das funktioniert nicht. Liegt das jetzt am Code, an der Event-Nummer oder an was? Hier ist der Code:

Code: [AUSKLAPPEN]

mainwin=CreateWindow("Testprogramm",40,40,800,600,0,9)
datei=CreateMenu("Datei",1,WindowMenu(mainwin))
beenden=CreateMenu("Beenden",2,datei)
UpdateWindowMenu mainwin
Repeat
ergebnis=WaitEvent()
Select ergebnis
Case $1001
End
End Select
Forever

Danke für Hilfe im Voraus.

bear1[/code]

Ja, ne...

Zum virtuellen Staat Eranien:
http://www.eranien.de
Zu meinem Blog:
http://www.erixpage.de

	Rallimen Sieger des 30-EUR-Wettbewerbs	Sa, Mai 29, 2004 19:59 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] mainwin=CreateWindow("Testprogramm",40,40,800,600,0) datei=CreateMenu("Datei",1,WindowMenu(mainwin)) beenden=CreateMenu("Beenden",2,datei) UpdateWindowMenu mainwin Repeat ergebnis=WaitEvent() AuswahlPunkt = EventData();<<<<<<<<<<<<<<< Select ergebnis Case $1001 If AuswahlPunkt = 2 Then End;<<<<<<<<<<<<<<< Case $803;<<<<obenrechts schliesen End End Select Forever
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Sa, Mai 29, 2004 19:59
Antworten mit Zitat

Code: [AUSKLAPPEN]

mainwin=CreateWindow("Testprogramm",40,40,800,600,0)
datei=CreateMenu("Datei",1,WindowMenu(mainwin))
beenden=CreateMenu("Beenden",2,datei)
UpdateWindowMenu mainwin
Repeat
ergebnis=WaitEvent()
AuswahlPunkt = EventData();<<<<<<<<<<<<<<<
Select ergebnis
Case $1001
If AuswahlPunkt = 2 Then End;<<<<<<<<<<<<<<<
Case $803;<<<<obenrechts schliesen
End
End Select
Forever

[BB2D | BB3D | BB+]

	Kekskiller	Mi, Jun 02, 2004 19:08 Antworten mit Zitat
Dum musst vorher mit EventData() die Nummer des Menus abfragen. Müsste beim Menuerstellen angegeben haben.

Kekskiller

Mi, Jun 02, 2004 19:08
Antworten mit Zitat

Dum musst vorher mit EventData() die Nummer des Menus abfragen.
Müsste beim Menuerstellen angegeben haben.