1.
Wer kann mir, bei meinem kleinem Listing sagen, wie ich den eingegebenen Test, in eine Variable übergeben kann.
Die Eingabe sollte mit Enter abgeschlossen werden.
2.
Sprung von Fesnter zu Fenster sollte mit Tap erfolgen
ich bedanke mich bereits im voraus
MFG
Manfred Loibl
' Demo von Manfred Loibl
' gp2@gmx.de
$P+
SetErrorLevel 0
Declare appexit%
Declare Edit1&
Declare Text1&
Declare Edit2&
Declare Text2&
' *M Include-Dateien
' Position von WFFORMS.INC nicht verändern!
$I C:\WFFORMS.INC
$I C:\WFCOLOR.INC
' *M Init- und Exit-Prozeduren:
Proc OnApplicationExit
EndProc
Proc OnApplicationInit
EndProc
OnApplicationInit
' *M Haupt-Fenster DesignForm
SetTrueColor 1
WindowStyle $003F
WindowTitle "BLK-MÜNCHEN 2002"
Window Add(%maxX,50),114 - 498,408
Cls GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
SetFormIcon "",0
Let Edit1&=CreateEdit(%hwnd,"",50,20,121,21)
Let Text1&=CreateText(%hwnd,"Name",10,20,32,17)
Let Edit2&=CreateEdit(%hwnd,"",50,60,121,21)
Let Text2&=CreateText(%hwnd,"Straße",10,60,35,17)
SetWindowPos %hwnd = 207,114 - 498,408;0
WhileNot appexit%
WaitInput
If Equ(%key,2)
Let appexit%=1
ElseIf GetFocus(Edit1&)
ElseIf GetFocus(Edit2&)
ElseIf Equ(%key,4)
' Fenstergröße
ElseIf Equ(%key,5)
' Hilfe
EndIf
Wend
OnApplicationExit
|