(Hoffentlich schaut hier noch gelegentlich jemand vorbei, sieht so still aus im Board.)
Habe ein Prgramm geschrieben, welches eine ganze Reihe von Gadgets verwendet. Allerdings nicht linear numeriert sondern im Nummernbereich von 100 bis 600 verteilt. Hat sich so ergeben, weil ich die Gadgets mit errechneten x- und y-Positionen plaziert habe und das auf verschiedene Panelgadget-Panels verteilt.
Jetzt geht es darum, die eingetragenen Werte zu speichern bzw. wieder zu laden. Da hatte ich folgende Idee:
Code: Alles auswählen
For i = 100 To 600
Select GadgetType(i)
Case #PB_GadgetType_ComboBox
speichere die Gadgetnummer und Gadgetwert
Case #PB_GadgetType_Date
speichere die Gadgetnummer und Gadgetwert
Case #PB_GadgetType_String
speichere die Gadgetnummer und Gadgetwert
EndSelect
Next
Aber: Programm zeigt in der "select case" Schleife einen Fehler, sobald eine Nummer aufgerufen wird, für die offenbar gar kein Gadget erzeugt wurde. Gibt es eine Abfrage, die feststellt "es gibt gar kein Gadget mit Nummer soundso"?while "so lange daten vorliegen"
lese gadgetnummer
lese gadgetwert
speichere gadgetwert in gadget(gadgetnummer)
wend