Seite 1 von 1

Re: Inhalt eines Textfeldes automatisch in ein andres übernehmen

Verfasst: Do, 07.02.2008 12:08
von gschuckar
Hallo martin,
versuchs mal damit:

Code: Alles auswählen

REM  *****  BASIC  *****
option explicit
REM oDlgText ist der Name des Dialoges, welches die Textfelder enthält
dim oDlgText as Object
Sub Main
DialogLibraries.LoadLibrary("Standard")
oDlgText = createUnoDialog(DialogLibraries.Standard.dlgText)

oDlgText.execute()
End Sub

sub changeText()
oDlgText.getControl("text2").setText(oDlgText.getControl("text1").getText())
end sub
Dem Textfeld, in welchem der User jetzt etwas eingibt, must Du die sub changeText bei dem Ereigniss 'text modifiziert' zuweisen.
Have fun
Gerd