OpenOffice.info

Verfasst: **Sa, 06.10.2007 20:25**

Hallo Zusammen,

mit folgendem Code weise ich einem Label mit einer Listbox, deren Einträge manuell eingefügt sind, einen Text zu:

Code: Alles auswählen

sub Change_Text
	dim ibereich1 as Variant
 	ibereich1()= array( "Hund","Katze,"Maus) ' Texte für Label
	inhalt = Dialog1.GetControl("ListBox1")
	Text_LB = inhalt.selecteditempos
	Dialog1.getControl("Label1").Text = ibereich1(Text_LB)
End Sub

Die Standardauswahl der LB steht auf 1 = (Tier1), also wird in dem Label bei starten des Dialoges "Hund" angezeigt.

Jetzt kommt es aber. Wenn ich z.B. "Tier 3 " in der LB ausgewählt habe, den Dialog schliesse und dann wieder öffne,
möchte ich, dass dann in dem Label direkt wieder "Hund" steht, also die jeweils letzte Auswahl , in diesem Fall "Tier3".

Ich habe mir schon mal die Tolls für die Listbox in OO.o angesehen, aber irgendwie steige ich da nicht so richtig durch.

Wer weis Rat.

Jakob

Verfasst: **So, 07.10.2007 17:16**

Hey Jacob,

da musst du schon selbst für Sorge tragen. Also im Klartext:
Speichern, welcher Eintrag ausgewählt wurde - und ebim Wiederstart der LB eben genau diesen Eintrag auswählen. Dafür gibt es die Methoden "selectItemPos()" - für die Position oder "SelectItem()" für den String.
Ohne weitere Kenntnisse deines Codes und der Anwendung kann ich dir aber wenig weiterhelfen. Evt. musst du die Daten in einer Konfigurationsdatei zwischenspeichern, soll der zuletzt gewählte Ausdruck auch beim nächsten Öffnen der Datei wieder verfügbar sein. Sonst reicht meist das Speichern in einer globalen Variablen.

Viele Grüße
Thomas

Verfasst: **So, 07.10.2007 22:51**

Hallo Thomas,

schon mal Danke für die Hinweise.

Toxitom hat geschrieben:Sonst reicht meist das Speichern in einer globalen Variablen.

Das funktioniert auch schon wunderbar und die Variable ist auch nach erneutem öffnen des Dialogs noch vorhanden.

Da hatte ich überhaupt nicht dran gedacht. Aber gut das wir darüber gesprochen haben.

Ich habe das als Beispiel jetzt mal folgendermaßen gemacht:

Code: Alles auswählen

Global My_Selection
Sub Change_Text as integer
	dim ibereich1 as Variant
 	ibereich1()= array( "Hund", "Katze","Maus")
 	inhalt = Dialog1.GetControl("ListBox1")
	Text_LB = inhalt.selecteditempos
	Dialog1.getControl("Label1").Text = ibereich1(Text_LB)
End Sub

Sub Read_Selection
	inhalt = Dialog1.GetControl("ListBox1")
	My_Selection = inhalt.getSelectedItemPos ()'SelectedItemPos
End Sub

Sub Last_Selektion
	position = Dialog1.GetControl("ListBox1")
	position.SelectItemPos(My_Selection, True)
End Sub

Jetzt hatte ich mir überlegt ein neues Modul mittels Makro zu erzeugen und dort die Variablen abzuspeichern.
Wenn das Makro innerhalb eines Dokumentes gespeichert ist habe ich das auch hinbekommen.

Das Makro ist aber nicht im Dokument gespeichert sondern liegt unter Meine Makros & Dialoge.
Da ist es mir aber leider nicht gelungen die entsprechende Library anzusprechen und das Modul zu erzeugen.

Hier erst mal der Code um Das Modul zu erzeugen:

Code: Alles auswählen

Dim ContainerLocationName as String
Sub Create_Modul()
	Dim oLib     
	Dim oLibs
	Dim s$
	Dim sL_Name$
	Dim sM_Name$
	sL_Name = "Library1"
	sM_Name = "Save_Variable"
	oLibs = BasicLibraries
	oLibs.loadLibrary(sL_Name)
	oDoc = ThisComponent
	oLibs = oDoc.BasicLibraries
	oLib = oLibs.Getbyname(sL_Name)
	s = "Option Explicit" & CHR$(10) & _
      	"Sub My_Variables()" & CHR$(10) & _
      	"MsgBox """&"Meine Variable 1"&"""" & CHR$(10) & _
      	"End Sub"
	oLib.insertByName(sM_Name,s)
End Sub

Die Library1 ist natürlich unter Meine Makros und Dialoge vorhanden kann aber nicht "beschrieben" werden.

Wenn man

Code: Alles auswählen

sL_Name = "Library1"

durch

Code: Alles auswählen

sL_Name = "Standard"

ersetzt wird das neue Modul direkt in die Standardbibliothek des zu dem Zeitpunk geöffneten Dokumentes gespeichert. Das ist aber ja nicht der Sinn der Sache.

Wie bekomme ich den Zugriff auf "Meine Makros und Dialoge" und die Library1 um dort das Modul zu erzeugen?

Bringt mich das hier weiter:

Code: Alles auswählen

com.sun.star.comp.sfx2.ScriptLibraryContainer

???

Toxitom hat geschrieben:Ohne weitere Kenntnisse deines Codes und der Anwendung kann ich dir aber wenig weiterhelfen

Welche weiteren Informationen brauchst Du?

Nochmals Danke für die Hilfe.

Jakob

Verfasst: **Mo, 08.10.2007 18:14**

Hey Jacob,

was soll das ganze denn werden? Warum willst du aus einem Dokumentenmakro eine Routine in das System schreiben?
Nein, das geht so sicher nicht - wäre ja sonst eine riesige Sicherheitslücke- wenn ein Dokument direkt Code ins system schreiben könnte...

Wie gesagt - was willst du denn erreichen? Wenn ich das richtig sehe, möchtest du die Selektion zentral speichern - woarum? Sollen andere Dateien auch darauf zugreifen können? Dann kannst du das nur in einer extra Datei machen - einer einfachen Textdatei zum Beispiel.

Wie gesagt, mir ist noch nicht ganz klar, was du erreichen willst.

Gruss
Thomas

Verfasst: **Mo, 08.10.2007 22:32**

Hi Thomas,

vielen Dank für Deine Geduld.

Toxitom hat geschrieben:Nein, das geht so sicher nicht - wäre ja sonst eine riesige Sicherheitslücke- wenn ein Dokument direkt Code ins system schreiben könnte...

Sind Makros das nicht immer?

Toxitom hat geschrieben:möchtest du die Selektion zentral speichern

Ja.

Toxitom hat geschrieben:Sollen andere Dateien auch darauf zugreifen können

Nein.

Toxitom hat geschrieben: Wie gesagt, mir ist noch nicht ganz klar, was du erreichen willst.

Das Makro wird über eine oxt-Datei verteilt. In diesem Makro gibt es einem Dialog mit drei Listboxen, die jede bis zu 100 Einträge enthält. Der User braucht zu ca. 80% den gleichen Eintrag in der Listbox, den ich vorher aber nicht weis und einstellen kann.
Der User soll die Möglichkeit haben seinen, sagen wir mal "Favoriten" abzuspeichern um diesen nicht immer aus der Liste neu auswählen zu müssen.

Toxitom hat geschrieben:Dann kannst du das nur in einer extra Datei machen - einer einfachen Textdatei zum Beispiel.

... und da habe ich keinen blassen Schimmer wie das geht.
Normalerweise gebe ich so schnell nicht auf, aber ich glaube ich werde es bei der globalen Variablen belassen.
Das Ganze wird mir zu kompliziert. Im Internet habe ich auch noch nicht das richtige gefunden.
Es bleiben derzeit halt zu viele Fragen für mich offen.

Aber man wächst ja mit seine Aufgaben.

Viel Grüsse

Jakob

Verfasst: **Di, 09.10.2007 01:08**

Ja: Code kann dynamisch erstellt und ausgewertet werden, das ist eine Sicherheitslücke, wenn mensch solchen Code (seine Ausführung) zulässt. Beispiel? Xray macht das mit seinen Konfigurationsdateien.

ghostwriter hat geschrieben:
Toxitom hat geschrieben:Dann kannst du das nur in einer extra Datei machen - einer einfachen Textdatei zum Beispiel.
... und da habe ich keinen blassen Schimmer wie das geht.
Normalerweise gebe ich so schnell nicht auf, aber ich glaube ich werde es bei der globalen Variablen belassen.

Du nimmst die Favoriten Deines Benutzers aus der Liste und schreibst den/die Werte in eine Textdatei (bspw. im OOo-Benutzerverzeichnis). Ist diese Datei vorhanden, dann liesst Du sie aus und bestückst Deine Listbox damit.
Schreiben und Lesen mit Line Input und Write Anweisungen; Beispiele in der Online-Hilfe oder im Code von Füllwort-Liste. Schimmert's nun?

Nite'

Verfasst: **Di, 09.10.2007 16:31**

Hallo Winfried und natürlich Thomas,

danke für den Downloadlink für die Fülliste. Ich werde das am Wochenende mal versuchen.
Wenn ich das richtig sehe muss der Anwender aber noch Hand anlegen in Bezug auf den Speicherort.

Ich weis, ich komme jetzt von Stöckchen auf´s Hölzchen aber hast es selber angesprochen mit:

komma4 hat geschrieben:Xray macht das mit seinen Konfigurationsdateien

Genau, Xray speichert ja auch irgendwo den Pfad zum Browser und zum SKD.
Mir geht es zum einen darum wo die Dateien liegen und wie Xray die Informationen darin
abspeichert um diese später wieder abzurufen. Denn die Pfade werden ja nur einmalig ausgewählt
und sind präsent wenn Xray gestartet wird. Ich bin nur zu doof herauszufinden wie Xray das macht.

Danke für die Hilfe.

Jakob

Verfasst: **Mi, 10.10.2007 00:43**

Du kannst mit Basic das Benutzerverzeichnis von OOo ermitteln, oder das home-Verzeichnis oder eine andere Environment-Variable auslesen und dort speichern.

Code: Alles auswählen

Sub x_OSversion
' Operating System
' Betriebssystem anhand des verwendeten Fenster-Managers ermitteln

l_OS_Index = GetGUIType()

Select Case l_OS_Index
	Case 1
		s_OS = "Windows"
		s_rechnername = Environ("COMPUTERNAME")
		s_benutzername = Environ("USERNAME")
		s_benutzerdomain = Environ("USERDOMAIN")

	Case 3
		s_OS = "MacOS"
	
	Case 4
		s_OS = "Linux"
		s_benutzerhome = Environ("HOME")
 		msgbox s_benutzerhome
....

Xray legt mit der Installation eine Bibliothek XrayDyn an und ändert dessen Inhalt dynamisch durch die vorgenommenen Änderungen im Konfigurationsdialog.
Ist für Deinen Bedarf zu aufwändig

Verfasst: **Mo, 15.10.2007 22:25**

Hallo Winfried,

komma4 hat geschrieben:Schimmert's nun?

Und ob.

Ich möchte mich für Deine ausführliche Hilfe hiermit bedanken.
Es funktioniert jetzt alles wie gewünscht.

Schöne Grüße.

Jakob

OpenOffice.info

Auswahl in Listbox merken

Auswahl in Listbox merken

Re: Auswahl in Listbox merken

Re: Auswahl in Listbox merken

Re: Auswahl in Listbox merken

Re: Auswahl in Listbox merken

Re: Auswahl in Listbox merken

Re: Auswahl in Listbox merken

Re: Auswahl in Listbox merken

Re: Auswahl in Listbox merken