Global value As String

'TPS 01.12.2017
'numerische Eingabe
Function NumericKeyboard(ByVal Header As String, ByVal startvalue as Double) As Double
'	Dim value As String
	value = CStr(startvalue)
	
	
	
	Begin Dialog UserDialog1 60,60, 105, 180, "Eingabe "  , .Enable

		PushButton 10, 10, 25, 25, "7", .but7
		PushButton 40, 10, 25, 25, "8", .but8
		PushButton 70, 10, 25, 25, "9", .but9

		PushButton 10, 40, 25, 25, "4", .but4
		PushButton 40, 40, 25, 25, "5", .but5
		PushButton 70, 40, 25, 25, "6", .but6
		
		PushButton 10, 70, 25, 25, "1", .but1
		PushButton 40, 70, 25, 25, "2", .but2
		PushButton 70, 70, 25, 25, "3", .but3

		PushButton 10, 100, 25, 25, ".", .butD
		PushButton 40, 100, 25, 25, "0", .but0
		PushButton 70, 100, 25, 25, "<-", .butB

		TextBox 10, 130, 85, 18, .FText
		PushButton 10, 155, 40, 21,"OK", .OK
		CancelButton 55, 155, 40, 21
	End Dialog


Dim Dlg1 As UserDialog1

Dlg1.FText = CStr(value)

x = Dialog( Dlg1 )

NumericKeyboard = CDbl(Dlg1.FText)
	
End Function

Function Enable( ControlID$, Action%, SuppValue%)

	Select Case Action%
		Case 1
			
		Case 2 'Button wurde gerückt
			If ControlID$ = "but0" Then
				value = CStr(value) + "0" 
				DlgText "FText", CStr(value)
				Enable =1
			End If
			If ControlID$ = "but1" Then
				value = CStr(value) + "1" 
				DlgText "FText", CStr(value)
				Enable =1
			End If
			If ControlID$ = "but2" Then
				value = CStr(value) + "2" 
				DlgText "FText", CStr(value)
				Enable =1
			End If
			If ControlID$ = "but3" Then
				value = CStr(value) + "3" 
				DlgText "FText", CStr(value)
				Enable =1
			End If
			If ControlID$ = "but4" Then
				value = CStr(value) + "4" 
				DlgText "FText", CStr(value)
				Enable =1
			End If
			If ControlID$ = "but5" Then
				value = CStr(value) + "5" 
				DlgText "FText", CStr(value)
				Enable =1
			End If
			If ControlID$ = "but6" Then
				value = CStr(value) + "6" 
				DlgText "FText", CStr(value)
				Enable =1
			End If
			If ControlID$ = "but7" Then
				value = CStr(value) + "7" 
				DlgText "FText", CStr(value)
				Enable =1
			End If
			If ControlID$ = "but8" Then
				value = CStr(value) + "8" 
				DlgText "FText", CStr(value)
				Enable =1
			End If
			If ControlID$ = "but9" Then
				value = CStr(value) + "9" 
				DlgText "FText", CStr(value)
				Enable =1
			End If
			If ControlID$ = "butD" Then
			   If InStr(1,value,".") = 0 Then
				value = CStr(value) + "." 
				DlgText "FText", CStr(value)
				Enable =1
			   End If
			End If
			If ControlID$ = "butB" Then
				value = Left(value,Len(value)-1) 
				DlgText "FText", CStr(value)
				Enable =1
			End If
			If ControlID$ = "OK" Then
				Enable = -1
			End If
		Case 3 'Text verändert
			'MsgBox Dlg1.FText	
		Case Else
	End Select
	
	'Wert zurückgeben
	If Enable = -1 Then
		Enable = value
	End If

End Function