Textfeld mit Basic einlesen

[spencer]

Hallo bin neu hier und hoffe gleich auf Eure Hilfe

ich versuche gerade ein Makro anzulegen. Diese Makro soll Daten aus einem Textfeld raus lesen, die wiederum an eine serielle Schnittstelle gesendet werden. Das senden klappt auch wunderbar. Nur bekomme ich die Daten nicht aus dem Textfeld raus, die dann mit gesendet werden sollen. Ich habe ein Formular erstellt und dieses mit meiner Tabelle verknüpft.
Wie heist das Textfeld oder wie kann ich es in Basic einbinden?
Hat jemand eine Idee

Danke im Voraus

MfG

[komma4]

Willkommen im Forum.


Diese Standardfrage wurde schon oft beantwortet: bemühe bitte die Suchfunktion.


Tipp: in Andrew Pitonyaks Makro Dokument wird das Thema auch behandelt.

[spencer]

ja habe ich nur leider geht es nicht

habe das versucht:
oForm = ThisComponent.drawpage.forms.getbyname("Name") ' Name des Formulars
oText = oForm.getbyname("Textfeld") ' für ein Textfeld innerhalb deines Formulars
oUnterFormular = oForm.getbyname("Unterformularname") ' Für Unterformulare

[komma4]

ja habe ich nur leider geht es nicht

Was hast Du versucht - was geht nicht?

oText = oForm.getbyname("Textfeld") ' für ein Textfeld innerhalb deines Formulars

Damit hast Du ein Textfeld....

Code: Alles auswählen

msgbox oText.getString()

[spencer]

so sieht mein quellcode aus. ich habe viele bespiele probiert, aber bis jetzt hat OO basic den code nie erkannt. wie muss ich wo, was einfügen
bin absoluter neuling, deshalb ein bischen verständnis ...

Sub main
Dim s As string
Dim sendstr as string

oObj = createUnoService("org.openoffice.comp.rsapi")
oObj.setdevice("COM1")

sendstr = ("*G1$C1$T") 'vorbelegung
sendstr = sendstr & TextBox 'hier soll der erste Datensatz aus der Box gesendet werden
sendstr = sendstr & ("$F")
'sendstr = sendstr & TextBox1 'hier soll der zweite Datensatz aus der Box gesendet werden
sendstr = sendstr & chr(10)&chr(13)

oObj.opencom("9600,8,2")
a = oObj.rts(1)

oObj.sendstring(sendstr)

oObj.closecom()


MfG