VERSION 5.00 Begin VB.Form frmGutscheinTasten 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 = 14.25 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.TextBox txtFeldGutscheinNr BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 570 Left = 1680 TabIndex = 16 Top = 1080 Width = 1788 End Begin VB.CommandButton cmdTasten Caption = "," 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 = 11 Left = 2280 Style = 1 'Grafisch TabIndex = 15 Top = 1800 Width = 850 End Begin VB.CommandButton cmdAbbrechen Caption = "Abbrechen" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 3600 Style = 1 'Grafisch TabIndex = 2 Top = 960 Width = 1575 End Begin VB.CommandButton cmdOk Caption = "Ok" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 3600 Style = 1 'Grafisch TabIndex = 1 Top = 240 Width = 1575 End Begin VB.Timer TimerTastenBasis Enabled = 0 'False Interval = 50 Left = 4200 Top = 4800 End Begin VB.TextBox txtFeldBetrag BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 570 Left = 1800 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 = 1440 Style = 1 'Grafisch TabIndex = 3 Top = 1800 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 = 3360 Style = 1 'Grafisch TabIndex = 7 Top = 2640 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 = 2520 Style = 1 'Grafisch TabIndex = 6 Top = 2640 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 = 4320 Style = 1 'Grafisch TabIndex = 8 Top = 2520 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 = 1440 Style = 1 'Grafisch TabIndex = 5 Top = 2640 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 = 360 Style = 1 'Grafisch TabIndex = 4 Top = 2640 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 = 4200 Style = 1 'Grafisch TabIndex = 13 Top = 3240 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 = 3360 Style = 1 'Grafisch TabIndex = 12 Top = 3360 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 = 2280 Style = 1 'Grafisch TabIndex = 11 Top = 3360 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 = 1200 Style = 1 'Grafisch TabIndex = 10 Top = 3360 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 = 240 Style = 1 'Grafisch TabIndex = 9 Top = 3360 Width = 850 End Begin VB.Label lblGutscheinBetrag AutoSize = -1 'True BackColor = &H80000013& BackStyle = 0 'Transparent Caption = "Gutscheinbetrag: " BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 270 Left = 120 TabIndex = 17 Top = 480 Width = 1830 End Begin VB.Label LabelGutscheinNr AutoSize = -1 'True BackColor = &H80000013& BackStyle = 0 'Transparent Caption = "GutscheinNr." BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 270 Left = 240 TabIndex = 14 Top = 1200 Width = 1335 End End Attribute VB_Name = "frmGutscheinTasten" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim VarTextFeld As Object Dim VarcmdTastenIndex As Integer '==================== FORMS EREIGNISSE ==================== '============================================================= Private Sub Form_Load() Set VarTextFeld = Me.txtFeldBetrag 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 / 50 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 = .Item(0).Top - .Item(0).Height - cmdAbstand .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 .Item(10).Left = cmdAbstand .Item(10).Top = .Item(5).Top - .Item(5).Height - cmdAbstand .Item(10).Width = .Item(5).Width .Item(11).Left = .Item(10).Left + .Item(10).Width + cmdAbstand .Item(11).Top = .Item(10).Top .Item(11).Width = .Item(10).Width End With With Me .lblGutscheinBetrag.Left = cmdAbstand .lblGutscheinBetrag.Top = cmdAbstand .txtFeldBetrag.Width = 1.8 * cmdTasten.Item(0).Width .txtFeldBetrag.Height = .lblGutscheinBetrag.Height .txtFeldBetrag.Left = .lblGutscheinBetrag.Left + .lblGutscheinBetrag.Width + cmdAbstand .txtFeldBetrag.Top = .lblGutscheinBetrag.Top .LabelGutscheinNr.Left = .lblGutscheinBetrag.Left .LabelGutscheinNr.Top = .txtFeldBetrag.Top + .txtFeldBetrag.Height + cmdAbstand .txtFeldGutscheinNr.Width = .txtFeldBetrag.Width .txtFeldGutscheinNr.Height = .txtFeldBetrag.Height .txtFeldGutscheinNr.Left = .txtFeldBetrag.Left .txtFeldGutscheinNr.Top = .LabelGutscheinNr.Top '.txtFeldBetrag.Top = .cmdTasten.Item(5).Top - cmdTasten.Item(5).Height - cmdAbstand '.cmdTasten.Item(10).Left = .txtFeldBetrag.Left + .txtFeldBetrag.Width + cmdAbstand '.cmdTasten.Item(10).Top = .txtFeldBetrag.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.txtFeldBetrag = "" Then MDIHauptmenu.Tag = "OkLeer" Else MDIHauptmenu.Tag = Me.txtFeldBetrag.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 VarTextFeld.Text = VarTextFeld.Text & cmdTasten(VarTastenIndex).Caption Case 10 VarTextFeld.Text = "" End Select End Sub Private Sub txtFeldBetrag_Change() Set VarTextFeld = Me.txtFeldBetrag End Sub Private Sub txtFeldBetrag_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Set VarTextFeld = Me.txtFeldBetrag End Sub Private Sub txtFeldGutscheinNr_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Set VarTextFeld = Me.txtFeldGutscheinNr End Sub Private Sub txtFeldGutscheinNr_Change() Set VarTextFeld = Me.txtFeldGutscheinNr End Sub