Basic Frage

[mike6]

Hallo,

ich habe unter Oo im Basic_Dialog ein Dialogfeld
angelegt (DlgHilfe). Dort befindet sich ein "Textfield".
In einem Basic Modul habe ich folgendes eingefügt:

++++++++++++++++++++++++++++++++++++++++++
Public Const txt0002 =
"---- Seiten-Browser ---- \n\n" & _
"Text 1 : \n" & _
"Text 2 : \n" & _
"Text 3 \n" & _
"---- Aktionen ---- \n"

Public Const txt0003 = "Seitenname eintragen"
+++++++++++++++++++++++++++++++++++++++++

Wie bekomme ich nun den jeweiligen Text in das Textfield des
Basic-Moduls "DlgHilfe" eingelesen ??

Kann ich mir irgendwo ein Beispiel runterladen ?

mfg
mike

[komma4]

bspw. Andrews Basic-Dokumentation

[mike6]

Hallo Winfried,

erst einmal vielen Dank für den Link. Habe mir die
Datei runtergeladen und nichts gefunden. Für einen
"Laien" hört sich das so an:
... das Wort Gott steht in der Bibel.
Das soll keine Kritik sein sondern nur der Hinweis, dass es für
einen Profi eine normale Antwort ist, für einen Laien aber
unzureichend ist.

mfg
mike

[komma4]

Andrews Dokument ist umfassend - lauter Bäume?

Dein Suchbegriff dort ist: getControl()

in deutscher Kurzfassung:
* Du lädst den Dialog
* Du holst Dir das control, welches bearbeitet werden soll
* Du machst damit, was Du willst

Code: Alles auswählen

' Laden der Bibliothek mit dem Dialog
DialogLibraries.LoadLibrary( "Standard" )	
' Dialog erzeugen
oDialog = _
	createUnoDialog( _
		DialogLibraries.GetByName( "Standard" ).GetByName( "DlgHilfe" ) )
		
oDialog.Title = sModulName & sModulVersion		
oDialog.getControl( "Textfeld1" ).Text = txt0003

Hilft das weiter?

[mike6]

Hallo Winfried,

jetzt hats funktioniert.

Code: Alles auswählen

Sub Hilfe
	Dim dlg, dlgBeschreibung As Object	
	dlgBeschreibung = DialogLibraries.Standard.DlgHilfe
	dlg = CreateUnoDialog(dlgBeschreibung)
	'
	' Textbausteine in Dialog laden
	'
	GlobalScope.BasicLibraries.LoadLibrary("Tools")
	Dim strText As String
	strText = txt0403 & "\n" & txt0406 & "\n" & txt0405 & "\n" & txt0406 & "\n" & txt0404
	strText = ReplaceString( strText, Chr(13), "\n" )
	dlg.getControl( "Textfeld1" ).Text = strText
	'
	' Dialog anzeigen
	'
	dlg.Execute()
End Sub

mfg
mike