Seite 1 von 1
Eigenschaften von Kombinationsfeldern
Verfasst: Do, 22.03.2012 09:06
von dofbi82
Hallo Basic-Gemeinde!
Ich habe ein Dialogfenster mit Kombinationsfeldern über die IDE erstellt und diese per Makro manipuliert. Bis jetzt hat auch alles funktioniert bis auf die Tatsache, dass die ausgewählten Inhalten beim nächsten Makro-Aufruf nicht gespeichert werden können.
Folgender Code ändert zwar die Eigenschaft während der Laufzeit, jedoch nicht dauerhaft.
Code: Alles auswählen
oMod=oDlg.getControl("Drucker")
oMod = oCB.getModel()
oMod.setPropertyValue("Text", "Text hier") ' Eigenschaft setzen
oCB.setDesignMode(true) 'Nur im Designmode kannst du malen
oCB.setModel(oMod) ' Box vom Modell ableiten
oCB.setDesignMode(false) ' Box wird wieder sichtbar
Vielen Dank im Voraus.
dofbi82
Re: Eigenschaften von Kombinationsfeldern
Verfasst: Do, 22.03.2012 18:13
von komma4
Willkommen im Forum.
Und... Deine Frage?
Wenn Du "Text hier" dauerhaft im Control haben willst: dann schreibe es in der IDE rein...
Re: Eigenschaften von Kombinationsfeldern
Verfasst: Fr, 23.03.2012 04:48
von komma4
Suchbegriff: persistente Speicherung.
Geht über die OOo Registry - einfacher aber über eine Textdatei, die nach der Auswahl erstellt und geschrieben wird.
Re: Eigenschaften von Kombinationsfeldern
Verfasst: Do, 29.03.2012 22:34
von F3K Total
Hallo,
so z.B
Code: Alles auswählen
Dim sFileNo As Integer
Dim CurrentLine As String
Dim sFilename As String
'Dim sListe (0)
Dim sListe ()
sFilename = "c:\test.txt" ' Define file name
sFileNo = FreeFile ' free file handle
Open sFilename For Input As #sFileNo ' Open file (reading mode)
i=0
Do While not eof(sFileNo)
Line Input #sFileNo, CurrentLine
redim preserve sListe(i)
sVergleich = CurrentLine
sListe(i) = svergleich
i=i+1
Loop
Close #sFileNo ' Close file
'Erste ComboBox
oMod=oDlg.getControl("Drucker")
oMod = oCB.getModel()
oCB.setDesignMode(true) 'Nur im Designmode kannst du malen
oMod.setPropertyValue("Text",sListe(0)) ' Eigenschaft setzen
oCB.setModel(oMod) ' Box vom Modell ableiten
oCB.setDesignMode(false) ' Box wird wieder sichtbar
'Zweite ComboBox
'Hier soll Currentline den Wert der zweiten Zeile übernehmen
oMod.setPropertyValue("Text",sListe(1))
'Dritte ComboBox
'Hier soll Currentline den Wert der dritten Zeile übernehmen
oMod.setPropertyValue("Text",sListe(2))
Hiermit liest Du in der Schleife zunächst alle Zeilen deines Textfiles in die Variable sListe() ein und fragst sie später anhand des Indexes (0,1,2) wieder ab.
Gruß R
Edit: Wenn Du die drei Eigenschaften einem Dokument zuordnen willst, kannst du sie auch in den
Dokumenteigenschaften ablegen, bis auf Base, da könntest du sie in eine Tabelle abspeichern.
Re: Eigenschaften von Kombinationsfeldern
Verfasst: Fr, 30.03.2012 12:29
von dofbi82
Alles funktioniert wie geschmiert
Danke Euch Beiden für die Hilfe.
dofbi82