Grundlegendes Listbox-Problem

Übersicht

BlitzBasic

BlitzPlus

	Gast Betreff: Grundlegendes Listbox-Problem	Do, März 18, 2004 21:42 Antworten mit Zitat
hiho, ich habe ein kleines problem mit einem noch kleineren programm. obwohl ich beispielscodes studiert habe, verstehe ich den zusammenhang zwischen den rückgabewerten der listbox und den ereignissen nicht. habt nachsicht mit mir: ich habe b+ weniger als 48 stunden... danke im voraus! mein code: Code: [AUSKLAPPEN] [EINKLAPPEN] hauptfenster = CreateWindow ("Der Saftladen",100,100,800,600,0,1) spielmenu=CreateTabber(0,0,ClientWidth(hauptfenster),ClientHeight(hauptfenster),hauptfenster) SetGadgetLayout spielmenu,1,1,1,1 AddGadgetItem spielmenu,"Status" AddGadgetItem spielmenu,"Waren einkaufen" AddGadgetItem spielmenu,"Preise festlegen" AddGadgetItem spielmenu,"Forschung und Entwicklung" AddGadgetItem spielmenu,"Verkaufsstandort" AddGadgetItem spielmenu,"Laden aufrüsten" AddGadgetItem spielmenu,"Marketing" AddGadgetItem spielmenu," RUNDE BEENDEN " panel=CreatePanel (0,0,ClientWidth(spielmenu),ClientHeight(spielmenu),spielmenu) SetGadgetLayout panel,1,1,1,1 While WaitEvent ()<>$803 If EventID()=$401 If EventSource()=spielmenu Select SelectedGadgetItem (spielmenu) Case 1 WARENEINKAUFEN (hauptfenster,panel) ;Funktion zum Waren einkaufen aufrufen Case 7 End End Select EndIf EndIf Wend Function WARENEINKAUFEN (hauptfenster,panel) Text1=CreateLabel ("Hier können Sie ihr Lager mit dem Stoff füllen, den Sie in der kommenden Woche unter's Volk bringen wollen..." ,90,80,700,100,hauptfenster) warenliste=CreateListBox(50,150,100,200,hauptfenster) AddGadgetItem warenliste,"Saft" AddGadgetItem warenliste,"Cola" If EventID()=$401 If EventSource()=warenliste selected=SelectedGadgetItem(warenliste) If selected >=0 Then End ; Hier soll das später ein ereignis (beschreibungstext anzeigen etc) hinzugefügt werden EndIf EndIf End Function nachtrag: danke für den [ code ] tipp

Gast

Betreff: Grundlegendes Listbox-Problem

Do, März 18, 2004 21:42
Antworten mit Zitat

hiho,

ich habe ein kleines problem mit einem noch kleineren programm. obwohl ich beispielscodes studiert habe, verstehe ich den zusammenhang zwischen den rückgabewerten der listbox und den ereignissen nicht.

habt nachsicht mit mir: ich habe b+ weniger als 48 stunden... Smile

danke im voraus!

mein code:
Code: [AUSKLAPPEN]

hauptfenster = CreateWindow ("Der Saftladen",100,100,800,600,0,1)

spielmenu=CreateTabber(0,0,ClientWidth(hauptfenster),ClientHeight(hauptfenster),hauptfenster)

SetGadgetLayout spielmenu,1,1,1,1

AddGadgetItem spielmenu,"Status"
AddGadgetItem spielmenu,"Waren einkaufen"
AddGadgetItem spielmenu,"Preise festlegen"
AddGadgetItem spielmenu,"Forschung und Entwicklung"
AddGadgetItem spielmenu,"Verkaufsstandort"
AddGadgetItem spielmenu,"Laden aufrüsten"
AddGadgetItem spielmenu,"Marketing"
AddGadgetItem spielmenu," RUNDE BEENDEN "

panel=CreatePanel (0,0,ClientWidth(spielmenu),ClientHeight(spielmenu),spielmenu)
SetGadgetLayout panel,1,1,1,1

While WaitEvent ()<>$803

If EventID()=$401
   If EventSource()=spielmenu
      Select SelectedGadgetItem (spielmenu)
         Case 1
         WARENEINKAUFEN (hauptfenster,panel) ;Funktion zum Waren einkaufen aufrufen
         Case 7
         End
      End Select
   EndIf
EndIf

Wend

Function WARENEINKAUFEN (hauptfenster,panel)

Text1=CreateLabel ("Hier können Sie ihr Lager mit dem Stoff füllen, den Sie in der kommenden Woche unter's Volk bringen wollen..." ,90,80,700,100,hauptfenster)
warenliste=CreateListBox(50,150,100,200,hauptfenster)
   AddGadgetItem warenliste,"Saft"
   AddGadgetItem warenliste,"Cola"

   If EventID()=$401
   If EventSource()=warenliste
      selected=SelectedGadgetItem(warenliste)
   If selected >=0 Then End ; Hier soll das später ein ereignis (beschreibungstext anzeigen etc) hinzugefügt werden
   EndIf
EndIf

End Function

nachtrag: danke für den [ code ] tipp

Zuletzt bearbeitet von Gast am Do, März 18, 2004 22:39, insgesamt einmal bearbeitet

	D2006 Administrator Betreff: Re: Grundlegendes Listbox-Problem	Do, März 18, 2004 22:35 Antworten mit Zitat
User667 hat Folgendes geschrieben: hiho, Function WARENEINKAUFEN (hauptfenster,panel) Text1=CreateLabel ("Hier können Sie ihr Lager mit dem Stoff füllen, den Sie in der kommenden Woche unter's Volk bringen wollen..." ,90,80,700,100,hauptfenster) warenliste=CreateListBox(50,150,100,200,hauptfenster) AddGadgetItem warenliste,"Saft" AddGadgetItem warenliste,"Cola" Willkommen im BlitzForum. Zu deinem Problem du erstellst die ListBox bei jedem Schleifendurchlauf neu. Du musst sie von oder nach dem erstellen des Tabbers erstellen (mist! WW). Des weiteren musst du dann warenliste global setzen. MfG PS: zwischen [ code ] und [ /code ] wird der Text besondert dargstellt. Das benutzen wir hier im Forum zum Anzeigen von Code-Schnipseln.

D2006

Administrator

Betreff: Re: Grundlegendes Listbox-Problem

Do, März 18, 2004 22:35
Antworten mit Zitat

User667 hat Folgendes geschrieben:

hiho,
Function WARENEINKAUFEN (hauptfenster,panel)

Text1=CreateLabel ("Hier können Sie ihr Lager mit dem Stoff füllen, den Sie in der kommenden Woche unter's Volk bringen wollen..." ,90,80,700,100,hauptfenster)
warenliste=CreateListBox(50,150,100,200,hauptfenster)
AddGadgetItem warenliste,"Saft"
AddGadgetItem warenliste,"Cola"

Willkommen im BlitzForum.

Zu deinem Problem

du erstellst die ListBox bei jedem Schleifendurchlauf neu.
Du musst sie von oder nach dem erstellen des Tabbers erstellen (mist! WW). Des weiteren musst du dann warenliste global setzen.

MfG

PS:
zwischen [ code ] und [ /code ] wird der Text besondert dargstellt. Das benutzen wir hier im Forum zum Anzeigen von Code-Schnipseln.