Eigenschaften von Kombinationsfeldern

[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

[komma4]

Willkommen im Forum.

Und... Deine Frage?


Wenn Du "Text hier" dauerhaft im Control haben willst: dann schreibe es in der IDE rein...

[komma4]

Suchbegriff: persistente Speicherung.

Geht über die OOo Registry - einfacher aber über eine Textdatei, die nach der Auswahl erstellt und geschrieben wird.

[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.

[dofbi82]

Alles funktioniert wie geschmiert

Danke Euch Beiden für die Hilfe.

dofbi82