VERSION 5.00 Object = "{9B72829C-9ADC-11D0-B26C-006008104BEC}#1.0#0"; "VW4AlarmLine.ocx" Object = "{F4B4BFE0-25E1-11D0-B26A-006008104BEC}#1.0#0"; "VW4Key.ocx" Object = "{2A559721-5321-11D0-95E6-006008104BEC}#1.0#0"; "VW4Language.ocx" Begin VB.UserControl XFooter ClientHeight = 2040 ClientLeft = 0 ClientTop = 0 ClientWidth = 12000 LockControls = -1 'True ScaleHeight = 2040 ScaleWidth = 12000 Begin VW4LanguageLib.VWLanguage VWLanguage1 Left = 1800 Top = 60 _Version = 65536 _ExtentX = 794 _ExtentY = 794 _StockProps = 0 End Begin VW4KeyLib.VWKey keyLanguage Height = 780 Index = 1031 Left = 0 TabIndex = 10 Top = 480 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial Unicode MS" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 0 Key = 368 BackColor = 12632256 Caption = "^F1\nDeutsch" End Begin VW4AlarmLineLib.VWAlarmLine alnAlarms Height = 480 Left = 0 Top = 0 Width = 12000 _Version = 65536 _ExtentX = 21167 _ExtentY = 847 _StockProps = 97 BackColor = 12632256 BorderStyle = 1 FontClass = "Arial10Bold" ShadowStyle = 1 ShadowDepth = 3 ShadowColor2 = 14737632 Alignment = 1 End Begin VW4KeyLib.VWKey keyF10 Height = 780 Left = 10800 TabIndex = 0 Top = 1260 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" Alignment = 0 Key = 121 BackColor = 12632256 Caption = "@Global.keyF10" PictureAlign = 3 FocusOnClick = 0 'False Picture = "XFooter.ctx":0000 End Begin VW4KeyLib.VWKey keyF9 Height = 780 Left = 9600 TabIndex = 1 Top = 1260 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 Enabled = 0 'False FontClass = "Arial8Bold" Alignment = 0 Key = 120 BackColor = 12632256 Caption = "@Global.keyF9" FocusOnClick = 0 'False End Begin VW4KeyLib.VWKey keyF8 Height = 780 Left = 8400 TabIndex = 2 Top = 1260 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 Enabled = 0 'False FontClass = "Arial8Bold" Alignment = 0 Key = 119 BackColor = 12632256 Caption = "@Global.keyF8" FocusOnClick = 0 'False End Begin VW4KeyLib.VWKey keyF7 Height = 780 Left = 7200 TabIndex = 3 Top = 1260 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 Enabled = 0 'False FontClass = "Arial8Bold" Alignment = 0 Key = 118 BackColor = 12632256 Caption = "@Global.keyF7" PictureAlign = 3 FocusOnClick = 0 'False End Begin VW4KeyLib.VWKey keyF6 Height = 780 Left = 6000 TabIndex = 4 Top = 1260 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 Enabled = 0 'False FontClass = "Arial8Bold" Alignment = 0 Key = 117 BackColor = 12632256 Caption = "@Global.keyF6" FocusOnClick = 0 'False End Begin VW4KeyLib.VWKey keyF5 Height = 780 Left = 4800 TabIndex = 5 Top = 1260 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 Enabled = 0 'False FontClass = "Arial8Bold" Alignment = 0 Key = 116 BackColor = 12632256 Caption = "@Global.keyF5" FocusOnClick = 0 'False End Begin VW4KeyLib.VWKey keyF4 Height = 780 Left = 3600 TabIndex = 6 Top = 1260 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" Alignment = 0 Key = 115 BackColor = 12632256 Caption = "@Global.keyF4" FocusOnClick = 0 'False End Begin VW4KeyLib.VWKey keyF3 Height = 780 Left = 2400 TabIndex = 7 Top = 1260 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" Alignment = 0 Key = 114 BackColor = 12632256 Caption = "@Global.keyF3" FocusOnClick = 0 'False End Begin VW4KeyLib.VWKey keyF2 Height = 780 Left = 1200 TabIndex = 8 Top = 1260 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" Alignment = 0 Key = 113 BackColor = 12632256 Caption = "@Global.keyF2" FocusOnClick = 0 'False End Begin VW4KeyLib.VWKey keyF1 Height = 780 Left = 0 TabIndex = 9 Top = 1260 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" Alignment = 0 Key = 112 BackColor = 12632256 Caption = "@Global.keyF1" FocusOnClick = 0 'False End Begin VW4KeyLib.VWKey keyLanguage Height = 780 Index = 1032 Left = 2400 TabIndex = 11 Top = 480 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial Unicode MS" Size = 9 Charset = 161 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 0 Key = 370 BackColor = 12632256 Caption = "^F3\näöüÖÄÜ" End Begin VW4KeyLib.VWKey keyLanguage Height = 780 Index = 1049 Left = 3600 TabIndex = 12 Top = 480 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial Unicode MS" Size = 9 Charset = 204 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 0 Key = 371 BackColor = 12632256 Caption = "^F4\nÐóññêé" End Begin VW4KeyLib.VWKey keyLanguage Height = 780 Index = 1041 Left = 4800 TabIndex = 13 Top = 480 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial Unicode MS" Size = 9 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 0 Key = 372 BackColor = 12632256 Caption = "^F5\n“ú–{Œê" End Begin VW4KeyLib.VWKey keyLanguage Height = 780 Index = 5 Left = 6000 TabIndex = 14 Top = 480 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 Enabled = 0 'False BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial Unicode MS" Size = 9 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 0 Key = 373 BackColor = 12632256 Caption = "^F6\n" End Begin VW4KeyLib.VWKey keyLanguage Height = 780 Index = 6 Left = 7200 TabIndex = 15 Top = 480 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 Enabled = 0 'False BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial Unicode MS" Size = 9 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 0 Key = 374 BackColor = 12632256 Caption = "^F7\n" End Begin VW4KeyLib.VWKey keyLanguage Height = 780 Index = 7 Left = 8400 TabIndex = 16 Top = 480 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 Enabled = 0 'False BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial Unicode MS" Size = 9 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 0 Key = 375 BackColor = 12632256 Caption = "^F8\n" End Begin VW4KeyLib.VWKey keyLanguage Height = 780 Index = 8 Left = 9600 TabIndex = 17 Top = 480 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 Enabled = 0 'False BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial Unicode MS" Size = 9 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 0 Key = 376 BackColor = 12632256 Caption = "^F9\n" End Begin VW4KeyLib.VWKey keyLanguage Height = 780 Index = 9 Left = 10800 TabIndex = 18 Top = 480 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 Enabled = 0 'False BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial Unicode MS" Size = 9 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 0 Key = 377 BackColor = 12632256 Caption = "^F10\n" End Begin VW4KeyLib.VWKey keyLanguage Height = 780 Index = 1033 Left = 1200 TabIndex = 19 Top = 480 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 1376 _StockProps = 72 ForeColor = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial Unicode MS" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Alignment = 0 Key = 369 BackColor = 12632256 Caption = "^F2\nEnglish" End End Attribute VB_Name = "XFooter" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit Private Sub keyF1_Click() ChangeForm 1 End Sub Private Sub keyF2_Click() ChangeForm 2 End Sub Private Sub keyF3_Click() ChangeForm 3 End Sub Private Sub keyF4_Click() ChangeForm 4 End Sub Private Sub keyF5_Click() ChangeForm 5 End Sub Private Sub keyF10_Click() ChangeForm 10 End Sub Private Sub ChangeForm(KeyNumber As Integer) 'Diese Funktion wird von allen Funktionstasten in allen 'Formularen aufgerufen, die die gleiche Funktion auslösen. 'Eingabe: ' KeyNumber: Nummer der Funktionstaste 'Lokale Variablen für Formular-Objekte Dim frmActive As Form, frmNew As Form 'aktuelles Formular bestimmen Set frmActive = Screen.ActiveForm If frmActive Is Nothing Then Exit Sub End If 'anhand der Formularnummer das neue Formular bestimmen Select Case KeyNumber Case 1 Set frmNew = FCentral Case 2 Set frmNew = FVWIndex Case 3 Set frmNew = FVWTouchScreen Case 4 Set frmNew = FVWDialogs Case 5 Case 6 Case 7 Case 8 Case 9 Case 10 EndProgram Exit Sub End Select 'Mauszeiger auf Warten/Sanduhr schalten Screen.MousePointer = vbHourglass If frmActive Is frmNew Or frmNew Is Nothing Then 'altes = neues Formular -> mache nix Else 'neues Formular anzeigen frmNew.Show 'und was ist mit dem aktuellen/alten Formular? 'dafür gibt es zwei Möglichkeiten: frmActive.Hide 'nur verstecken => '++ kann schneller wieder angezeigt werden '-- Speicher wird nicht wieder freigegeben 'oder 'Unload frmActive 'komplett entladen => '-- wieder angezeigen dauert länger '++ Speicher wird freigegeben End If 'Mauszeiger zurück auf Normal/Pfeil schalten Screen.MousePointer = vbDefault End Sub Private Sub keyLanguage_Click(Index As Integer) VWLanguage1.Language = Index SetKeyboardLayout Index End Sub