Es soll ein Programm zum verleihen von Büchern sein.
Mit "Neu" soll man einen Eintrag in das ListIconGadget hinzufügen konnen, und mit "Löschen" wieder aus dem Gadget löschen.
Mit Doppelklick auf einen Eintrag soll man den Eintrag in einem extra Fenster bearbeiten können.
Das Hinzufügen und Ändern eines Eintrags in das ListIconGadget sollte in einem anderem Fenster erfolgen.
(Bei Hinzufügen hab ich mal so ein Fenster erstellt)
Mein Problem war bis jetzt immer, dass meine Codes so lang waren
und das mit dem Speichern in einer Datei funktionierte nicht ganz.
Der Name des Buches oder des Ausleihers sollte nicht als Dateiname zum speichern verwendet werden. Weil wenn jemand das Buch
ein zweites mal ausleiht, dann wird die alte Datei überschrieben.
Ich habs mit Zahlen versucht (1, 2, 3, 4, ...) hab ich aber nicht hingekrigt.
Das mit dem "Überzogen" in dem ListIconGadget könnt ihr ignorieren.
Code: Alles auswählen
If OpenWindow(1, 100, 100, 600, 450, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget, "Fenstertitel")
If CreateToolBar(0, WindowID())
ToolBarStandardButton(1, #PB_ToolBarIcon_New )
ToolBarToolTip(1, "Neu" )
ToolBarStandardButton(2, #PB_ToolBarIcon_Delete)
ToolBarToolTip(2, "Löschen" )
EndIf
If CreateMenu(0, WindowID())
MenuTitle("Datei" )
MenuItem(1, "Neu" )
MenuItem(2, "Löschen" )
MenuItem(10, "Beenden" )
EndIf
If CreateGadgetList(WindowID())
ListIconGadget(50, 20, 50, 560, 360, "Buch", 110, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect)
AddGadgetColumn(50, 2, "Name des Ausleihers", 121)
AddGadgetColumn(50, 3, "Klasse", 45)
AddGadgetColumn(50, 4, "Datum Ausgabe", 100)
AddGadgetColumn(50, 5, "Datum Rückgabe", 100)
AddGadgetColumn(50, 6, "Überzogen", 80)
EndIf
Repeat
EventID.l = WaitWindowEvent()
If EventID = #PB_EventGadget
Select EventGadgetID()
Case 50
EndSelect
EndIf
If EventID = #PB_EventMenu
Select EventMenuID()
Case 1
Case 2
Case 10
EventID = #PB_EventCloseWindow
EndSelect
EndIf
Until EventID = #PB_EventCloseWindow
EndIf
End
Hinzufuegen:
If OpenWindow(2, 200, 150, 300, 210, #PB_Window_SystemMenu, "Neu")
If CreateToolBar(1, WindowID())
ToolBarStandardButton(20, #PB_ToolBarIcon_Paste )
ToolBarToolTip(20, "Übernehmen" )
ToolBarStandardButton(21, #PB_ToolBarIcon_Delete )
ToolBarToolTip(21, "Abbrechen" )
EndIf
If CreateGadgetList(WindowID())
TextGadget(80, 20, 40, 100, 15, "Buch:", #PB_Text_Right)
StringGadget(81, 140, 40, 120, 20, "")
TextGadget(82, 20, 70, 100, 15, "Name:", #PB_Text_Right)
StringGadget(83, 140, 70, 120, 20, "")
TextGadget(84, 20, 100, 100, 15, "Klasse:", #PB_Text_Right)
StringGadget(85, 140, 100, 120, 20, "")
TextGadget(86, 20, 130, 100, 15, "Datum Ausgabe:", #PB_Text_Right)
StringGadget(87, 140, 130, 120, 20, "")
TextGadget(88, 20, 160, 100, 15, "Datum Rückgabe:", #PB_Text_Right)
StringGadget(89, 140, 160, 120, 20, "")
EndIf
Quit = 0
Repeat
EventID.l = WaitWindowEvent()
If EventID = #PB_EventMenu
Select EventMenuID()
Case 20
Buchin$ = GetGadgetText(81)
Namein$ = GetGadgetText(83)
Klassein$ = GetGadgetText(85)
DatumAin$ = GetGadgetText(87)
DatumRin$ = GetGadgetText(89)
Quit = 1
Case 21
Quit = 1
EndSelect
EndIf
Until Quit > 0
CloseWindow(2)
EndIf
Return
