Basic->Dialog->Textfelder auslesen - wie???

[thunder1902]

Hallo Leute!

Hab ein Problem.

Habe ein Dialog mit einem Textfeld und einem Button.
Jetzt will ich - wenn man auf den Button drückt - daß eine Msg-Box auftaucht mit dem Inhalt des Textfeldes.

Habs mal so probiert

Code: Alles auswählen

Dim oDialog1 AS Object
Sub StartDialog1
BasicLibraries.LoadLibrary("Standard")
oDialog1 = LoadDialog("Standard", "Martin")
oDialog1.Execute()
end sub

Die Methode LoadDialog hab ich 1:1 von der Hilfe übernommen.

Jetzt möchte ich mit

Code: Alles auswählen

oDialog1 = LoadDialog("Standard", "Martin")
REM Model des Dialogs holen
oDialog1Model = oDialog1.Model
inhalt = oDialog1.GetControl("feld")
MsgBox inhalt.text
End Sub

den Inhalt darstellen.

Es wird auch eine Msg-Box geöffnet, allerdings ohne Inhalt!

Was mir noch aufgefallen ist - wenn ich das Textfeld vorher mit einem Wert belege, wird der vorgegebene Wert auch in der Msg-Box angezeigt.


Wer weiß Rat??

Danke schonmal!

Martin

[thunder1902]

Hallo Stephan!

Vielen Dank!!!

Es funktioniert!!!!!



Gruß

Martin