ok, bin so vorgegangen wie du vorgeschlagen hast und hab denk ich mal einen Anfang geschafft. Doch jetzt bin ich wieder an einem Punkt an dem ich nicht weiter komme. Versuche schon ganzen Nachmittag anhand Hilfe und PB-Buch mein Problem zu lösen, aber irgendwie soll mir das nicht gelingen.
Code: Alles auswählen
#SS_CENTERIMAGE = 512
Enumeration
#FENSTER_HAUPT
#FENSTER_neue_Farbe
#KNOPF_neue_Farbe
#KNOPF_Farbregister
#KNOPF_SCHLIESSEN
EndEnumeration
Enumeration
#KNOPF_Speichern
#MainWindow_lblFarbe
#MainWindow_txtFarbe
#MainWindow_lblStoff1_Titel
#MainWindow_txtStoff1_Titel
#MainWindow_lblStoff1_Menge
#MainWindow_txtStoff1_Menge
#MainWindow_lblStoff2_Titel
#MainWindow_txtStoff2_Titel
#MainWindow_lblStoff2_Menge
#MainWindow_txtStoff2_Menge
#MainWindow_lblStoff3_Titel
#MainWindow_txtStoff3_Titel
#MainWindow_lblStoff3_Menge
#MainWindow_txtStoff3_Menge
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 400, 400, "Interaktion", #FLAGS)
ButtonGadget(#KNOPF_neue_Farbe, 100, 100, 200, 40, "Neue Farbe eintragen")
ButtonGadget(#KNOPF_Farbregister, 100, 150, 200, 40, "Farbregister")
ButtonGadget(#KNOPF_SCHLIESSEN, 100, 350, 200, 40, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()
Case #KNOPF_neue_Farbe
OpenWindow(#FENSTER_neue_Farbe, 200, 200, 600, 400, "Farbe eintragen", #PB_Window_SystemMenu)
ButtonGadget(#KNOPF_Speichern, 10, 500, 50, 40, "Speichern")
TextGadget(#MainWindow_lblFarbe, 10, 30, 275, 20, "Hier den Namen der neuen Farbe eintragen :", #SS_CENTERIMAGE)
StringGadget(#MainWindow_txtFarbe, 10, 60, 135, 20, "")
TextGadget(#MainWindow_lblStoff1_Titel, 10, 100, 175, 20, "1. Inhaltsstoff (Name) :", #SS_CENTERIMAGE)
StringGadget(#MainWindow_txtStoff1_Titel, 140, 100, 135, 20, "")
TextGadget(#MainWindow_lblStoff1_Menge, 290, 100, 175, 20, "Menge (g pro Kg):", #SS_CENTERIMAGE)
StringGadget(#MainWindow_txtStoff1_Menge, 390, 100, 135, 20, "")
TextGadget(#MainWindow_lblStoff2_Titel, 10, 140, 175, 20, "2. Inhaltsstoff (Name) :", #SS_CENTERIMAGE)
StringGadget(#MainWindow_txtStoff2_Titel, 140, 140, 135, 20, "")
TextGadget(#MainWindow_lblStoff2_Menge, 290, 140, 175, 20, "Menge (g pro Kg):", #SS_CENTERIMAGE)
StringGadget(#MainWindow_txtStoff2_Menge, 390, 140, 135, 20, "")
TextGadget(#MainWindow_lblStoff3_Titel, 10, 180, 175, 20, "3. Inhaltsstoff (Name) :", #SS_CENTERIMAGE)
StringGadget(#MainWindow_txtStoff3_Titel, 140, 180, 135, 20, "")
TextGadget(#MainWindow_lblStoff3_Menge, 290, 180, 175, 20, "Menge (g pro Kg):", #SS_CENTERIMAGE)
StringGadget(#MainWindow_txtStoff3_Menge, 390, 180, 135, 20, "")
Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
1.) Habe versucht in dem neuen Fenster ein ButtonGadget (Speichern) einzubauen, doch er erscheint nicht im Fenster. Ich denke ich habe den generellen Aufbau nicht verstanden.
2.) Im neuen Fenster (neue Farbe) habe ich eine Abfrage erstellt, der Benutzer soll dort eine neue Farbe eintragen die dann automatisch in einem weiteren Fenster (Farbregister) aufgelistet werden soll. Wie muss ich da was deklarieren?