menu macht probleme

Übersicht BlitzBasic BlitzPlus

Neue Antwort erstellen

dominik

Betreff: menu macht probleme

BeitragDi, Jul 13, 2004 19:02
Antworten mit Zitat
Benutzer-Profile anzeigen
also eigentlich functionnierts ja aber es hat immer wieder aussetzer wie nen wackelkontakt. aber an meinem code stimmt doch alles oder?

Code: [AUSKLAPPEN]
Global menue1 = CreateMenu("Datei",1,WindowMenu(window))
Global menue2 = CreateMenu("Optionen",2,menue1)
Global menue3 = CreateMenu("Einstellungen",3,menue1)
Global menue4 = CreateMenu("Beenden",4,menue1)
Global menue5 = CreateMenu("About",5, menue1)
UpdateWindowMenu window

  If WaitEvent() = $1001 Then
    If EventData() = 2 Then CheckMenu(menue2)
    If EventData() = 3 Then CheckMenu(menue3)
    If EventData() = 4 Then CheckMenu(menue4)
    If EventData() = 5 Then CheckMenu(menue5)
  EndIf

  If MenuChecked(menue2) Then optionen()
  If MenuChecked(menue3) Then einstellungen()
  If MenuChecked(menue4) Then End
  If MenuChecked(menue5) Then about()
  UpdateWindowMenu window


also ich wil nur wissen ob man da irgentwas besser machen kann.

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragDi, Jul 13, 2004 19:24
Antworten mit Zitat
Benutzer-Profile anzeigen
hier könnte das prob gelegen haben , da du immer wieder Eventdata aufrufst, weis es aber nicht genau
versuchs mal so...
Code: [AUSKLAPPEN]
  If WaitEvent() = $1001 Then
    Select  EventData()
    ::Case 2 CheckMenu(menue2)
    ::Case 3 CheckMenu(menue3)
    ::Case 4 CheckMenu(menue4)
    ::Case 5 CheckMenu(menue5)
    End Select
[BB2D | BB3D | BB+]

dominik

BeitragDi, Jul 13, 2004 19:28
Antworten mit Zitat
Benutzer-Profile anzeigen
danke jetzt is perfekt.

Neue Antwort erstellen


Übersicht BlitzBasic BlitzPlus

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group