Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 241164 (2600)
  Suchen
 Zurück zur Übersicht
 AutorThema: Übergabe aus einem Fenster in eine Varaibale
Manfred Loibl
Datum:07.05.02 13:18 Antwortenals Email verschicken (gp2@gmx.de) 


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



Alexander Schoenfeld
Datum: 07.05.02 15:32 Antwortenals Email verschicken (alexander.schoenfeld@chronologic.de) 


Hallo Manfred !

ENTER in einem Edit kannst du mit %key = 13 abfragen.
Um mit TAB unter den Feldern zu springen, muss der WINDOWSYTLE 512 enthalten.

Hoffe das hilft dir bei deinem Problem :)

Mit freundlichem Gruss / kind regards,
Alexander Schönfeld

Email: alexander.schoenfeld@chronologic.de


 Zurück zur Übersicht