wie kann man Text eines Textfeldes

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: wie kann man Text eines Textfeldes

von der.milco » Do, 24.11.2005 01:36

klasse, das klappt.

Danke

von Toxitom » Di, 22.11.2005 08:00

Hallo Milco,
Oder muss ich die Funktionen anders in den Code schreiben?
Vielleicht gehts auch viel einfacher??
Geht es :D
Einfach die Varaiblen in Basic verketten!

Code: Alles auswählen

myCell.string =lese1 & " und " & lese2
Vergiss die Leerzeichen nicht, sonst sieht die Ausgabe nicht gut aus.

Gruss
Thomas

wie kann man Text eines Textfeldes

von der.milco » Mo, 21.11.2005 22:50

Hallo an alle, die sich an folgendem Problem probieren möchten:

Ich habe ein Formular auf einem StarOffice Tabellenblatt (Calc) erstellt.
Unter anderem soll der Inhalt eines Textfeldes in eine Zelle geschrieben werden.
Er soll aber gleichzeitig mit einem weiteren Textfeld-Inhalt und einem Wort (als Verbindung) geschrieben werden.

Also, in der Zelle soll dann stehen:
Textfeld1 "und" Textfeld2

Habs mit diesem Code probiert:

Code: Alles auswählen

Sub Texte
  myDoc   = thisComponent
  mySheet = myDoc.sheets(0)
  myForm  = mySheet.drawpage.forms(0)
  myCell  = mySheet.getCellRangeByName("$B$7")
  myCtl1  = myForm.getByName("Text1")
  myCtl2  = myForm.getByName("Text2")

  lese1 = myCtl1.Text
  lese2 = myCtl2.Text
  myCell.string = lese1;"und";lese2
End Sub
Das funktioniert aber nicht: "und" unerwartet.

Dann wollte ich die Tabellenfunktion VERKETTEN benutzen, geht aber nicht. Der englische Begriff CONCATENATE geht auch nicht.

Habe den Code hier getestet:

Code: Alles auswählen

Sub Texte
  myDoc   = thisComponent
  mySheet = myDoc.sheets(0)
  myForm  = mySheet.drawpage.forms(0)
  myCell  = mySheet.getCellRangeByName("$B$7")
  myCtl1  = myForm.getByName("Text1")
  myCtl2  = myForm.getByName("Text2")

  lese1 = myCtl1.Text
  lese2 = myCtl2.Text
  myCell.string = concatenate(lese1;"und";lese2)
End Sub
Oder muss ich die Funktionen anders in den Code schreiben?
Vielleicht gehts auch viel einfacher??

Nach oben