VERSION 5.00 Begin VB.Form frmTastenBasis AutoRedraw = -1 'True BackColor = &H80000002& BorderStyle = 3 'Fester Dialog Caption = "TastenBasis" ClientHeight = 5790 ClientLeft = 30 ClientTop = 330 ClientWidth = 5265 FillStyle = 0 'Ausgefüllt BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5790 ScaleWidth = 5265 ShowInTaskbar = 0 'False Begin VB.CommandButton cmdAbbrechen Caption = "Abbrechen" Height = 615 Left = 3480 Style = 1 'Grafisch TabIndex = 2 Top = 720 Width = 1575 End Begin VB.CommandButton cmdOk Caption = "Ok" Height = 495 Left = 3480 Style = 1 'Grafisch TabIndex = 1 Top = 120 Width = 1575 End Begin VB.Timer TimerTastenBasis Enabled = 0 'False Interval = 50 Left = 4200 Top = 4800 End Begin VB.TextBox txtFeld Enabled = 0 'False BeginProperty Font Name = "Arial" Size = 19.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 570 Left = 960 TabIndex = 0 Top = 288 Width = 1788 End Begin VB.CommandButton cmdTasten Caption = "C" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 600 Index = 10 Left = 2016 Style = 1 'Grafisch TabIndex = 3 Top = 1345 Width = 850 End Begin VB.CommandButton cmdTasten Caption = "8" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 600 Index = 8 Left = 2988 Style = 1 'Grafisch TabIndex = 7 Top = 2060 Width = 850 End Begin VB.CommandButton cmdTasten Caption = "7" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 600 Index = 7 Left = 2030 Style = 1 'Grafisch TabIndex = 6 Top = 2060 Width = 850 End Begin VB.CommandButton cmdTasten Caption = "9" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 600 Index = 9 Left = 3960 Style = 1 'Grafisch TabIndex = 8 Top = 2060 Width = 850 End Begin VB.CommandButton cmdTasten Caption = "6" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 600 Index = 6 Left = 1125 Style = 1 'Grafisch TabIndex = 5 Top = 2060 Width = 850 End Begin VB.CommandButton cmdTasten Caption = "5" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 600 Index = 5 Left = 120 Style = 1 'Grafisch TabIndex = 4 Top = 2052 Width = 850 End Begin VB.CommandButton cmdTasten Caption = "4" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 600 Index = 4 Left = 3972 Style = 1 'Grafisch TabIndex = 13 Top = 2760 Width = 850 End Begin VB.CommandButton cmdTasten Caption = "3" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 600 Index = 3 Left = 3000 Style = 1 'Grafisch TabIndex = 12 Top = 2736 Width = 850 End Begin VB.CommandButton cmdTasten Caption = "2" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 600 Index = 2 Left = 2028 Style = 1 'Grafisch TabIndex = 11 Top = 2760 Width = 850 End Begin VB.CommandButton cmdTasten Caption = "1" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 600 Index = 1 Left = 1070 Style = 1 'Grafisch TabIndex = 10 Top = 2760 Width = 850 End Begin VB.CommandButton cmdTasten Caption = "0" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 600 Index = 0 Left = 120 Style = 1 'Grafisch TabIndex = 9 Top = 2760 Width = 850 End Begin VB.Label Label1 BackColor = &H80000013& BackStyle = 0 'Transparent Caption = "Label1" BeginProperty Font Name = "Tahoma" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 252 Left = 192 TabIndex = 14 Top = 432 Width = 684 End End Attribute VB_Name = "frmTastenBasis" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim VarcmdTastenIndex As Integer '==================== FORMS EREIGNISSE ==================== '============================================================= Private Sub Form_Load() VarcmdTastenIndex = 13597 Me.TimerTastenBasis.Enabled = True Me.Height = 0.5 * MDIHauptmenu.ScaleHeight Me.Width = 1.2 * Me.Height Me.Left = MDIHauptmenu.ScaleWidth / 2 - Me.Width / 2 Me.Top = MDIHauptmenu.ScaleHeight / 2 - Me.Height / 2 cmdAbstand = Me.Height / 40 TastenHoehe = (Me.ScaleHeight - 6 * cmdAbstand) / 5 TastenBreite = (Me.ScaleWidth - 6 * cmdAbstand) / 5 Me.BackColor = &H80000003 Me.cmdOk.BackColor = &H80000002 Me.cmdAbbrechen.BackColor = &H80000002 For I = 0 To Me.cmdTasten.Count - 1 Me.cmdTasten.Item(I).Height = TastenHoehe Me.cmdTasten.Item(I).BackColor = &H80000002 Me.cmdTasten.Item(I).FontName = "Arial" Me.cmdTasten.Item(I).FontSize = "16" Next I With Me.cmdTasten .Item(0).Left = cmdAbstand .Item(0).Top = Me.ScaleHeight - cmdAbstand - .Item(0).Height .Item(0).Width = TastenBreite .Item(1).Left = .Item(0).Left + .Item(0).Width + cmdAbstand .Item(1).Top = .Item(0).Top .Item(1).Width = .Item(0).Width .Item(2).Left = .Item(1).Left + .Item(1).Width + cmdAbstand .Item(2).Top = .Item(1).Top .Item(2).Width = .Item(1).Width .Item(3).Left = .Item(2).Left + .Item(2).Width + cmdAbstand .Item(3).Top = .Item(2).Top .Item(3).Width = .Item(2).Width .Item(4).Left = .Item(3).Left + .Item(3).Width + cmdAbstand .Item(4).Top = .Item(3).Top .Item(4).Width = .Item(3).Width .Item(5).Left = cmdAbstand .Item(5).Top = Me.ScaleHeight - 2 * cmdAbstand - 2 * .Item(0).Height .Item(5).Width = .Item(0).Width .Item(6).Left = .Item(5).Left + .Item(5).Width + cmdAbstand .Item(6).Top = .Item(5).Top .Item(6).Width = .Item(5).Width .Item(7).Left = .Item(6).Left + .Item(6).Width + cmdAbstand .Item(7).Top = .Item(6).Top .Item(7).Width = .Item(6).Width .Item(8).Left = .Item(7).Left + .Item(7).Width + cmdAbstand .Item(8).Top = .Item(7).Top .Item(8).Width = .Item(7).Width .Item(9).Left = .Item(8).Left + .Item(8).Width + cmdAbstand .Item(9).Top = .Item(8).Top .Item(9).Width = .Item(8).Width End With With Me .txtFeld.Left = cmdAbstand .txtFeld.Top = .cmdTasten.Item(5).Top - cmdTasten.Item(5).Height - 2 * cmdAbstand .txtFeld.Width = 1.5 * cmdTasten.Item(6).Width .txtFeld.Height = .cmdTasten.Item(0).Height .txtFeld.FontName = "Tahoma" .txtFeld.FontSize = "24" .Label1.FontName = "Tahoma" .Label1.FontSize = "12" .Label1.Left = cmdAbstand .Label1.Width = .Width / 2 .Label1.Height = .cmdTasten.Item(0).Height .Label1.Top = .txtFeld.Top / 2 .cmdTasten.Item(10).Left = .txtFeld.Left + .txtFeld.Width + cmdAbstand .cmdTasten.Item(10).Top = .txtFeld.Top .cmdTasten.Item(10).Width = .cmdTasten.Item(0).Width .cmdOk.Top = cmdAbstand .cmdOk.Width = 1.5 * .cmdTasten.Item(0).Width .cmdOk.Height = .cmdTasten.Item(0).Height .cmdOk.Left = .ScaleWidth - .cmdOk.Width - cmdAbstand .cmdAbbrechen.Left = .cmdOk.Left .cmdAbbrechen.Top = .cmdOk.Top + .cmdOk.Height + cmdAbstand .cmdAbbrechen.Height = .cmdOk.Height .cmdAbbrechen.Width = .cmdOk.Width End With End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.cmdOk.BackColor = &H80000002 Me.cmdAbbrechen.BackColor = &H80000002 For I = 0 To Me.cmdTasten.Count - 1 Me.cmdTasten.Item(I).BackColor = &H80000002 Next I End Sub Private Sub Form_Unload(Cancel As Integer) Me.TimerTastenBasis.Enabled = False End Sub '==================== COMMANDBUTTON EREIGNISSE ==================== '===================================================================== Private Sub cmdOK_Click() If Me.txtFeld = "" Then MDIHauptmenu.Tag = "OkLeer" Else MDIHauptmenu.Tag = Me.txtFeld.Text Unload Me End If End Sub Private Sub cmdAbbrechen_Click() MDIHauptmenu.Tag = "Abbrechen" Unload Me End Sub Private Sub cmdTasten_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) frmSchnellwahltaste.MSHFlexGrid1.Visible = False Call Tasten(Index) End Sub Private Sub cmdTasten_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Index = VarcmdTastenIndex And Me.cmdTasten.Item(Index).BackColor = &H80C0FF Then Exit Sub ' focus vorhanden Wegen Bildzittern gehe raus VarcmdTastenIndex = Index For I = 0 To cmdTasten.Count - 1 If I = Index Then Me.cmdTasten.Item(Index).BackColor = &H80C0FF Me.cmdTasten.Item(I).MousePointer = 99 Set Me.cmdTasten.Item(I).MouseIcon = LoadPicture(App.Path & "\Cursors\harrow.cur") Else cmdTasten.Item(I).BackColor = &H80000002 End If Next I Me.cmdOk.BackColor = &H80000002 Me.cmdAbbrechen.BackColor = &H80000002 End Sub Private Sub cmdOk_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.cmdOk.BackColor = &H80C0FF Me.cmdAbbrechen.BackColor = &H80000002 For I = 0 To Me.cmdTasten.Count - 1 Me.cmdTasten.Item(I).BackColor = &H80000002 Next I End Sub Private Sub cmdAbbrechen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.cmdOk.BackColor = &H80000002 Me.cmdAbbrechen.BackColor = &H80C0FF For I = 0 To Me.cmdTasten.Count - 1 Me.cmdTasten.Item(I).BackColor = &H80000002 Next I End Sub '==================== TIMER EREIGNISSE ==================== '============================================================= Private Sub TimerTastenBasis_Timer() Dim X As Long For X = 48 To 90 If CompKeyfrmTastenBasis(X, UCase(Chr$(X))) Then Exit Sub If CompKeyfrmTastenBasis(X + 48, UCase(Chr$(X))) Then Exit Sub Next X If CompKeyfrmTastenBasis(8, "BACKSPACE") Then Exit Sub If CompKeyfrmTastenBasis(9, "TAB") Then Exit Sub If CompKeyfrmTastenBasis(13, "ENTER") Then Exit Sub If CompKeyfrmTastenBasis(16, "SHIFT") Then Exit Sub If CompKeyfrmTastenBasis(17, "STRG") Then Exit Sub If CompKeyfrmTastenBasis(18, "ALT") Then Exit Sub If CompKeyfrmTastenBasis(19, "PAUSE") Then Exit Sub If CompKeyfrmTastenBasis(27, "ESC") Then Exit Sub If CompKeyfrmTastenBasis(33, "PAGE UP") Then Exit Sub If CompKeyfrmTastenBasis(34, "PAGE DOWN") Then Exit Sub If CompKeyfrmTastenBasis(35, "ENDE") Then Exit Sub If CompKeyfrmTastenBasis(36, "POS1") Then Exit Sub If CompKeyfrmTastenBasis(37, "LEFT") Then Exit Sub If CompKeyfrmTastenBasis(38, "UP") Then Exit Sub If CompKeyfrmTastenBasis(39, "RIGHT") Then Exit Sub If CompKeyfrmTastenBasis(40, "DOWN") Then Exit Sub If CompKeyfrmTastenBasis(44, "DRUCK") Then Exit Sub If CompKeyfrmTastenBasis(45, "INSERT") Then Exit Sub If CompKeyfrmTastenBasis(46, "DEL") Then Exit Sub If CompKeyfrmTastenBasis(144, "NUM") Then Exit Sub If CompKeyfrmTastenBasis(145, "ROLLEN") Then Exit Sub For X = 112 To 127 If CompKeyfrmTastenBasis(X, "F" & CStr(X - 111)) Then Exit Sub Next X ' usw... usw... End Sub '==================== PROZEDUREN ==================== '===================================================================== Sub Tasten(VarTastenIndex) VarkeyPress = False Select Case VarTastenIndex Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 txtFeld.Text = txtFeld.Text & cmdTasten(VarTastenIndex).Caption Case 10 txtFeld.Text = "" End Select End Sub