OpenOffice.info

Sub Main
Dim sPath as String    'Path weil es der Pfad ist. s weil es ein String ist. Deshalb zusammengesetzt   sPath
Dim oForm as Object    'o = Object   Form = Formular    Deshalb oForm
Dim sPathField as String  'Das ist der Name des Feldes, wo der String drinsteht. Könnte man auch fest verdrahten.
        
   oDoc = ThisComponent  'Das ist immer so eine Muss-Zeile
   oForm = oDoc.drawpage.forms.getbyindex(0)  'Drawpage des Formulars. Auch immer so eine Musszeile.
   sPathField = "FolderName" 'Feldname des Feldes wo der Folder drinsteht. Könnte genauso "test123" heißen
                                           'Muss halt im Formular entsprechend angepasst sein
   
   	'Das Feld auslesen + zur Kontrolle anzeigen
	sPath = oForm.getByName(sPathField).text
	MsgBox "Der Pfad ist " + sPath

	'Jetzt den Explorer öffnen:
   shell "explorer /e," & sPath, 1
End Sub

Also, ich habe es letztlich alles zum Laufen gebracht:


[code]Sub Main
Dim sPath as String 'Path weil es der Pfad ist. s weil es ein String ist. Deshalb zusammengesetzt sPath
Dim oForm as Object 'o = Object Form = Formular Deshalb oForm
Dim sPathField as String 'Das ist der Name des Feldes, wo der String drinsteht. Könnte man auch fest verdrahten.

oDoc = ThisComponent 'Das ist immer so eine Muss-Zeile
oForm = oDoc.drawpage.forms.getbyindex(0) 'Drawpage des Formulars. Auch immer so eine Musszeile.
sPathField = "FolderName" 'Feldname des Feldes wo der Folder drinsteht. Könnte genauso "test123" heißen
'Muss halt im Formular entsprechend angepasst sein

'Das Feld auslesen + zur Kontrolle anzeigen
sPath = oForm.getByName(sPathField).text
MsgBox "Der Pfad ist " + sPath

'Jetzt den Explorer öffnen:
shell "explorer /e," & sPath, 1
End Sub[/code]


Danke an alle, die geholfen haben!

Grüße
Reginald

[quote="Reginald"]ist drawpage eine Funktion in OO Calc, nicht Base. Dein GetByName scheint aber der richtige Ansatz zu sein. Wo findet man denn Erläuterungen zu diesen Funktionen?[/quote]

[color=#008000].DrawPage[/color] ist eine Eigenschaft eines Base-Formulars (in Calc sind mehrere, [color=#008000]oCalc.Drawpages()[/color] möglich)
[Funktionen "machen" etwas, z.B. Eigenschaften ändern]

Sieh Dir mal das erste Posting im Basic-Bereich an - da stehen diverse Quellen. Besonders ans Herz gelegt seinen Dir [url=http://www.pitonyak.org]Andrews Makro-Dokument[/url] und http://api.openoffice.org/

Und hole Dir [url=http://ooomacros.org/dev.php#101416]X-Ray[/url], installiere es und verwende es


[quote="Reginald"]Der auszulesende Wert steht bei mir in dem Textfeld namens "txtFolder" und das Formular heißt "Customers".[/quote]
Der angezeigte Name des Formulars ist nicht der interne Name!
Hast Du diesen nicht geändert (re. Maustaste>Formular...) so heisst dieser "[color=#0040FF]MainForm[/color]".
Setze im gegebenen Beispiel mal [color=#0040FF]txtFolder[/color] ein, für die Funktion [color=#008000].getByName[/color]


[quote="Reginald"]Wo finde ich die Syntax für GetByName ordentlich erläutert?[/quote]
Sowas findest Du hier:
http://api.openoffice.org/docs/common/ref/index-files/index-1.html

Viel Erfolg!

Hallo Winfried,
danke für die Links! Also das pdf-Buch ist an sich schon hilfreich.

Bzgl der Syntax in deinem Beispiel: So wie ich das verstehe, ist drawpage eine Funktion in OO Calc, nicht Base. Dein GetByName scheint aber der richtige Ansatz zu sein. Wo findet man denn Erläuterungen zu diesen Funktionen? http://www.dannenhoefer.de bezieht sich auch nur auf Calc - nicht Base.

Schau mal bitte unter
[url]http://de.openoffice.info/viewtopic.php?f=18&t=19988[/url]

Da gibt es auch ein ähnliches Beispiel, aber irgendwie verstehe ich das alles noch nicht. Der auszulesende Wert steht bei mir in dem Textfeld namens "txtFolder" und das Formular heißt "Customers". Kannst du oder sonstjemand mir bei der Syntax für den Befehl helfen? Oder: Wo finde ich die Syntax für GetByName ordentlich erläutert?

Danke schonmal,
Reginald

oDok = ThisComponent
oForm = oDok.Drawpage.Forms.getByName( "MainForm" )
oFeld = oForm.getByName( "Ordnername" )
sPfad = oFeld.getString()

Willkommen im Forum.

Folgendes könnte funktionieren (ungetestet)
[code]
oDok = ThisComponent
oForm = oDok.Drawpage.Forms.getByName( "MainForm" )
oFeld = oForm.getByName( "Ordnername" )
sPfad = oFeld.getString()[/code]

Auch für Dich der Hinweis:

[url=http://ooomacros.org/dev.php#101416]X-RAY[/url] ist Dein Freund.

Bei [url=http://www.pitonyak.org]Andrew[/url] findest Du zwei Dokumente -seine Makrosammlung und eines zur Datenbank-Programmierung- auch die helfen bestimmt, Deine Kenntnisse aufzufrischen.

Und: irgendwo habe ich Code gesehen, um ein solches Textfeld mit einer Hyperlink-Funktion zu versehen (klicken im Textfeld öffnet das Ziel). [Suchbegriffe: FORM+HYPERLINK+OPEN]



Viel Erfolg!

Sub Main
Dim sPath as String
	sPath = "X:\Kunden\BMW"
	shell "explorer /e," & sPath, 1
End Sub

Hallo zusammen, ich habe vor 20 Jahren einiges mit Turbopascal und Basic programmiert, seitdem aber nie wieder. Jetzt will und muss ich mich ein wenig mit OO befassen und habe eine Frage.

Ich habe in einem OO Base Formular ein Feld mit dem Namen ORDNER, wo pro Kunde ein kompletter Ordner angegeben ist, also z. B. X:\Kunden\BMW Jetzt bräuchte ich den Code, um per Buttonklick das Feld auszulesen, den Wert in einer Variablen zu speichern und dann den entsprechenden Ordner zu öffnen.

Also manuell funktioniert das hier:
[code]Sub Main
Dim sPath as String
sPath = "X:\Kunden\BMW"
shell "explorer /e," & sPath, 1
End Sub
[/code]
Aber wie lese ich das Feld ORDNER aus und speicher den Wert in sPath ab?

Danke schonmal,
Reginald