Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 242995 (4431)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Übergabe aus einem Fenster in eine Varaibale
Manfred Loibl
| Datum:07.05.02 13:18 (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 (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