Aufruf: Eingabebox

INTEGER = InputBox16(tcPrompt AS STRING , tcCaption AS STRING , tvValue AS VARIANT @ , tnButtons AS INTEGER , ;tvSelectOnEntry AS VARIANT , tcFormat AS STRING , tcInputMask AS STRING , tcButtons AS STRING)

Rückgabe: Eingabebox

Rückgabe der Funktion: INTEGER
Rückgabe per Reverenz:
	tvValue AS VARIANT

Code: Eingabebox

PROCEDURE InputBox16 (tcPrompt AS STRING,tcCaption AS STRING,tvValue AS Variant @,tnButtons AS INTEGER,;
		tvSelectOnEntry AS Variant,tcFormat AS STRING,tcInputMask AS STRING,tcButtons AS STRING) AS INTEGER
	RETURN My.AppForms.AppForms.INPUTBOX(m.tcPrompt,m.tcCaption,@tvValue,m.tnButtons,m.tvSelectOnEntry,m.tcFormat,m.tcInputMask,m.tcButtons)
	* Parameter P1: Text					Bsp.: "Bitte geben Sie einen Wert ein!"
	* Parameter P2: Titel des Fensters		Bsp.: "Eingabefenster"
	* Parameter P3: Variable mit Referenz	Bsp.: @xwert
	* Parameter P4: Schaltflächen:
	*               0:OK
	*               1:OK/Abbrechen
	*               2:Abbrechen/Wiederholen/Ignorieren
	*               3:Ja/Nein/Abbrechen
	*               4:Ja/Nein
	*               5:Wiederholen/Abbrechen
	*               +0 :OHNE	Symbol
	*               +16:STOPP	Symbol
	*               +32:FRAGE	Symbol
	*               +48:AUSRUF	Symbol
	*               +64:INFO	Symbol
	*				+256 - 2ter Button, +512 - 3ter Button,...
	* Parameter P5: Feld ist anfangs markiert	Bsp.: .T.
	* Parameter P6: Format der Eingabe	Bsp.: !!!!!!	--> 6 Großbuchstaben
	* Parameter P7: Inputmaske	Bsp.: AAA-999	--> abC-143
	* Parameter P8: Text für Schaltflächen Bsp.: "Filtern;Löschen;Abbrechen"
	*
	* Rückgabe numerisch
	*               1:OK
	*               2:Abbrechen
	*               3:Abbrechen !! Gibt es NICHT !!
	*               4:Wiederholen
	*               5:Ignorieren
	*               6:Ja
	*               7:Nein
	*
ENDPROC