VERSION 5.00 Object = "{F4B4BFE0-25E1-11D0-B26A-006008104BEC}#1.0#0"; "VW4Key.ocx" Object = "{F0EB2110-3CC3-11D0-8E54-006008104BEC}#1.0#0"; "VW4Index.ocx" Begin VB.Form FNumPad BackColor = &H00E0E0E0& BorderStyle = 3 'Fester Dialog ClientHeight = 3600 ClientLeft = 3945 ClientTop = 3825 ClientWidth = 3600 ClipControls = 0 'False ControlBox = 0 'False LinkTopic = "Form2" LockControls = -1 'True MaxButton = 0 'False MinButton = 0 'False PaletteMode = 1 'ZReihenfolge ScaleHeight = 3600 ScaleWidth = 3600 ShowInTaskbar = 0 'False Begin VB.PictureBox picKeys BorderStyle = 0 'Kein Height = 3000 Left = 0 ScaleHeight = 3000 ScaleWidth = 3600 TabIndex = 0 Top = 600 Width = 3600 Begin VW4KeyLib.VWKey keyEnd Height = 1800 Index = 1 Left = 3000 TabIndex = 1 Tag = "{ENTER}" Top = 1200 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 3175 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Symbol" Size = 26.25 Charset = 2 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 12632256 FocusRect = 0 'False Caption = "" Picture = "NumPad.frx":0000 End Begin VW4KeyLib.VWKey keyClose Height = 600 Left = 3000 TabIndex = 2 Top = 0 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 12632256 FocusRect = 0 'False Caption = "" Picture = "NumPad.frx":01C6 End Begin VW4KeyLib.VWKey keyMove Height = 600 Index = 3 Left = 1800 TabIndex = 3 Top = 0 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 5 BackColor = 12632256 FocusRect = 0 'False Caption = "" Picture = "NumPad.frx":06D2 End Begin VW4KeyLib.VWKey keyMove Height = 600 Index = 2 Left = 1200 TabIndex = 4 Top = 0 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 2 BackColor = 12632256 FocusRect = 0 'False Caption = "" Picture = "NumPad.frx":0BD6 End Begin VW4KeyLib.VWKey keyMove Height = 600 Index = 1 Left = 600 TabIndex = 5 Top = 0 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 3 BackColor = 12632256 FocusRect = 0 'False Caption = "" Picture = "NumPad.frx":10DA End Begin VW4KeyLib.VWKey keyMove Height = 600 Index = 0 Left = 0 TabIndex = 6 Top = 0 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 0 BackColor = 12632256 FocusRect = 0 'False Caption = "" Picture = "NumPad.frx":15DE End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 19 Left = 600 TabIndex = 7 Tag = "{END}" Top = 1800 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 1 BackColor = 12632256 FocusRect = 0 'False Caption = "Ende" End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 18 Left = 600 TabIndex = 8 Tag = "{HOME}" Top = 1200 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 1 BackColor = 12632256 FocusRect = 0 'False Caption = "Pos1" End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 11 Left = 3000 TabIndex = 9 Tag = "-" Top = 600 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 12632256 FocusRect = 0 'False Caption = "–" End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 10 Left = 2400 TabIndex = 10 Tag = "." Top = 2400 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 16777215 FocusRect = 0 'False Caption = "." End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 9 Left = 2400 TabIndex = 11 Tag = "9" Top = 600 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 16777215 FocusRect = 0 'False Caption = "9" End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 8 Left = 1800 TabIndex = 12 Tag = "8" Top = 600 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 16777215 FocusRect = 0 'False Caption = "8" End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 7 Left = 1200 TabIndex = 13 Tag = "7" Top = 600 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 16777215 FocusRect = 0 'False Caption = "7" End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 6 Left = 2400 TabIndex = 14 Tag = "6" Top = 1200 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 16777215 FocusRect = 0 'False Caption = "6" End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 5 Left = 1800 TabIndex = 15 Tag = "5" Top = 1200 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 16777215 FocusRect = 0 'False Caption = "5" End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 4 Left = 1200 TabIndex = 16 Tag = "4" Top = 1200 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 16777215 FocusRect = 0 'False Caption = "4" End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 3 Left = 2400 TabIndex = 17 Tag = "3" Top = 1800 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 16777215 FocusRect = 0 'False Caption = "3" End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 2 Left = 1800 TabIndex = 18 Tag = "2" Top = 1800 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 16777215 FocusRect = 0 'False Caption = "2" End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 1 Left = 1200 TabIndex = 19 Tag = "1" Top = 1800 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 16777215 FocusRect = 0 'False Caption = "1" End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 0 Left = 1200 TabIndex = 20 Tag = "0" Top = 2400 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 16777215 FocusRect = 0 'False Caption = "0" End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 16 Left = 0 TabIndex = 21 Tag = "{LEFT}" Top = 2400 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 12632256 FocusRect = 0 'False Caption = "" Picture = "NumPad.frx":1AE2 End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 17 Left = 600 TabIndex = 22 Tag = "{RIGHT}" Top = 2400 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 12632256 FocusRect = 0 'False Caption = "" Picture = "NumPad.frx":1BE8 End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 14 Left = 0 TabIndex = 23 Tag = "{BACKSPACE}" Top = 1200 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 12632256 FocusRect = 0 'False Caption = "" Picture = "NumPad.frx":1CEE End Begin VW4KeyLib.VWKey keyStandard Height = 600 Index = 15 Left = 0 TabIndex = 24 Tag = "{DELETE}" Top = 1800 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 1 BackColor = 12632256 FocusRect = 0 'False Caption = "Entf" End Begin VW4KeyLib.VWKey keyEnd Height = 600 Index = 0 Left = 0 TabIndex = 25 Tag = "{ESC}" Top = 600 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 1 BackColor = 12632256 FocusRect = 0 'False Caption = "Esc" End Begin VW4KeyLib.VWKey keyPad Height = 600 Left = 2400 TabIndex = 26 Top = 0 Width = 600 _Version = 65536 _ExtentX = 1058 _ExtentY = 1058 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = 12632256 FocusRect = 0 'False Caption = "" Picture = "NumPad.frx":1DF4 End End Begin VW4IndexLib.VWIndex idxLimitMin Height = 285 Left = 1800 Top = 300 Width = 1800 _Version = 65536 _ExtentX = 3175 _ExtentY = 503 _StockProps = 96 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty TextOff = "0" BackColorOff = 14737632 End Begin VW4IndexLib.VWIndex idxLimitMax Height = 285 Left = 1800 Top = 0 Width = 1800 _Version = 65536 _ExtentX = 3175 _ExtentY = 503 _StockProps = 96 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty TextOff = "100" BackColorOff = 14737632 End Begin VW4IndexLib.VWIndex idxLabelLimits Height = 300 Index = 1 Left = 0 Top = 300 Width = 1800 _Version = 65536 _ExtentX = 3175 _ExtentY = 529 _StockProps = 96 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty TextOff = "Minimum " BackColorOff = 14737632 ShadowStyle = 0 Alignment = 4 End Begin VW4IndexLib.VWIndex idxLabelLimits Height = 300 Index = 0 Left = 0 Top = 0 Width = 1800 _Version = 65536 _ExtentX = 3175 _ExtentY = 529 _StockProps = 96 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty TextOff = "Maximum " BackColorOff = 14737632 ShadowStyle = 0 Alignment = 4 End End Attribute VB_Name = "FNumPad" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit '--- Vorsicht bei Änderungen an diesem Formular --- Public Sub ChangeLanguage() 'Liest für die neue Sprache die Tastenbeschriftung und -code ein. 'Eingabe: ' glLCID: neue Sprachkennung. ' gnCharset: Font-Characterset für die Beschriftung. ' gsVWTouchKeyboardINI: Datei, aus der die Einstellungen gelesen werden. 'Ausgabe: ' Me.key...: angepasste Schaltflächen 'Limit-Beschriftung lesen ReadLimitParams Me 'Standard-Tasten ReadKeyParams keyStandard, "NumPad", "Std" 'Esc- und Enter-Tasten ReadKeyParams keyEnd, "NumPad", "End" End Sub Public Sub CheckLimits() idxLimitMin.TextOff = gsLimitMin idxLimitMax.TextOff = gsLimitMax idxLimitMax.Visible = gfShowLimits And Len(gsLimitMax) idxLabelLimits(0).Visible = idxLimitMax.Visible idxLimitMin.Visible = gfShowLimits And Len(gsLimitMin) idxLabelLimits(1).Visible = idxLimitMin.Visible If gfShowLimits And (Len(gsLimitMin) Or Len(gsLimitMax)) Then picKeys.Top = idxLabelLimits(1).Top + idxLabelLimits(1).Height Else picKeys.Top = 0 End If Me.Height = Me.Height - Me.ScaleHeight + picKeys.Top + picKeys.Height End Sub Private Sub Form_Load() FormResize Me End Sub Private Sub keyClose_Click() Me.Hide APISetFocus glHwndControl '>>> 4.02.003 16.01.2002 SendMessage glHwndControl, glVWM_CancelInput, 0, ByVal 0& '<<< SendMessage glHwndController, glVWM_TouchKeyboardHides, 0, ByVal 0& End Sub Private Sub keyEnd_Click(Index As Integer) APISetFocus glHwndControl SendKeys keyEnd(Index).Tag Me.Hide SendMessage glHwndController, glVWM_TouchKeyboardHides, 0, ByVal 0& End Sub Private Sub keyMove_Click(Index As Integer) 'hier wird das NumPad-Fenster in die jeweilige Bildschirmecke verschoben Select Case Index Case 0 Me.Move 0, 0 Case 1 Me.Move Screen.Width - Me.Width, 0 Case 2 Me.Move 0, Screen.Height - Me.Height Case 3 Me.Move Screen.Width - Me.Width, Screen.Height - Me.Height End Select APISetFocus glHwndControl End Sub Private Sub keyPad_Click() APISetFocus glHwndControl ShowPad vwAlphaPad End Sub Private Sub keyStandard_Click(Index As Integer) APISetFocus glHwndControl SendKeys keyStandard(Index).Tag End Sub