Perl: Win32::GUI Inhalt von Textfeldern auslesen

[Stefan Feeser]

Hallo zusammen,

ich versuche gerade mir die Möglichkeiten des Perlmoduls Win32:GUI zu veranschaulichen und ein wenig auszuprobieren was man damit alles machen kann. Dabei verstehe ich nicht wie man in einer Dialogbox den Inhalt eines eingefuegten Textfeldes wieder ausliest und wie etwa im nachfolgend aufgeführten Beispiel dann an anderer Stelle wieder ausgeben kann. Online habe ich leider nichts passendes gefunden, vielleicht hat ja jemand von Euch schon mehr damit gearbeitet und weiss Rat.



#
# ++++++++++++++++ M o d u l e , e t c . ++++++++++++++++
#

use strict;
use Win32::GUI;

#
# ++++++++++++++++ D e k l a r a t i o n e n ++++++++++++++++
#

my $obj_main;
my $str_test = "";

#
# ++++++++++++++++ H a u p t p r o g r a m m ++++++++++++++++
#

$obj_main = Win32::GUI::DialogBox->new(
-name => 'Fond',
-width => 200,
-height => 90,
-text => 'Test-GUI',
);
$obj_main->AddLabel(-text => "Bitte geben Sie eine Zahl ein:\n");
$obj_main->AddTextfield(
-name => 'Feld1',
-size => [ 194,20 ],
-pos => [ 0, 15 ],
);
$obj_main->AddButton(
-name => 'Button1',
-text => 'ok',
-pos => [ 80, 37 ],
-onClick => sub { &zeig_erg; },
);
$obj_main->Show();
Win32::GUI::Dialog();

#
# +++++++++++++++ U n t e r p r o g r a m m e +++++++++++++++
#

sub main_terminate {
-1;
}

sub zeig_erg {
$str_test = $obj_main->('Feld1')->GetLine(1);
open (TEST, "> P:\\daten\\data\\temp\\test.txt") or die "Konnte die Datei \"p:\\daten\\data\\temp\\test.txt\" nicht oeffnen\n";
printf TEST "Der Eingegebene Fonds lautet: " . $str_test . "\n";
close TEST;
exit;
}


Gruss und Danke

Stefan