VERSION 5.00 Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx" Object = "{3738EEC0-3DAD-4B61-91BB-2B78CEAA6944}#1.0#0"; "VisiWinStudio2.ocx" Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx" Begin VB.UserControl XFooter ClientHeight = 840 ClientLeft = 0 ClientTop = 0 ClientWidth = 12000 ScaleHeight = 56 ScaleMode = 3 'Pixel ScaleWidth = 800 Begin VWSLanguageLib.VWSLangSelect VWSLangSelect1 Left = 2280 Top = 360 _cx = 794 _cy = 794 End Begin VisiWinStudioLib.VWSKey keyF10 Height = 840 Left = 10800 TabIndex = 0 Top = 0 Width = 1200 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Global" AuthorizationMode= 0 Authorization = "" FontClass = "Tahoma8Bold" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483640 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 0 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = 0 'False EventOnKeyRepeat= 0 'False Caption = "keyF10" UseMnemonic = 0 'False Key = 121 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey keyF9 Height = 840 Left = 9600 TabIndex = 1 Top = 0 Width = 1200 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Global" AuthorizationMode= 0 Authorization = "" FontClass = "Tahoma8Bold" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = 0 'False BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483640 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 0 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = 0 'False EventOnKeyRepeat= 0 'False Caption = "keyF9" UseMnemonic = 0 'False Key = 120 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey keyF8 Height = 840 Left = 8400 TabIndex = 2 Top = 0 Width = 1200 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Global" AuthorizationMode= 0 Authorization = "" FontClass = "Tahoma8Bold" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483640 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 0 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = 0 'False EventOnKeyRepeat= 0 'False Caption = "keyF8" UseMnemonic = 0 'False Key = 119 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey keyF7 Height = 840 Left = 7200 TabIndex = 3 Top = 0 Width = 1200 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Global" AuthorizationMode= 0 Authorization = "" FontClass = "Tahoma8Bold" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483640 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 0 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = 0 'False EventOnKeyRepeat= 0 'False Caption = "keyF7" UseMnemonic = 0 'False Key = 118 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey keyF6 Height = 840 Left = 6000 TabIndex = 4 Top = 0 Width = 1200 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Global" AuthorizationMode= 0 Authorization = "" FontClass = "Tahoma8Bold" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = 0 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 0 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = 0 'False EventOnKeyRepeat= 0 'False Caption = "keyF6" UseMnemonic = 0 'False Key = 117 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey keyF5 Height = 840 Left = 4800 TabIndex = 5 Top = 0 Width = 1200 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Global" AuthorizationMode= 0 Authorization = "" FontClass = "Tahoma8Bold" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = 0 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 0 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = 0 'False EventOnKeyRepeat= 0 'False Caption = "keyF5" UseMnemonic = 0 'False Key = 116 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey keyF4 Height = 840 Left = 3600 TabIndex = 6 Top = 0 Width = 1200 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Global" AuthorizationMode= 0 Authorization = "" FontClass = "Tahoma8Bold" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = 0 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 0 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = 0 'False EventOnKeyRepeat= 0 'False Caption = "keyF4" UseMnemonic = 0 'False Key = 115 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey keyF3 Height = 840 Left = 2400 TabIndex = 7 Top = 0 Width = 1200 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "Global" AuthorizationMode= 0 Authorization = "" FontClass = "Tahoma8Bold" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = 0 'False BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = 0 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 0 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = 0 'False EventOnKeyRepeat= 0 'False Caption = "keyF3" UseMnemonic = 0 'False Key = 114 DownWhenDisabled= 0 'False End Begin VisiWinStudio2Lib.VWSSwitch swtF2 Height = 840 Left = 1200 TabIndex = 9 Top = 0 Width = 1200 _cx = 2117 _cy = 1482 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Enabled = -1 'True BitNumber = 1 BitTrigger = 0 BackColor = -2147483633 BackColorOn = -2147483633 BackColorPending= -2147483633 ForeColor = -2147483630 ForeColorOn = -2147483630 ForeColorPending= -2147483630 SwitchType = 2 SwitchMode = 0 PictureOn = "XFooter.ctx":0000 PicturePendingOn= "XFooter.ctx":001C PicturePendingOff= "XFooter.ctx":0038 PictureOff = "XFooter.ctx":0054 PictureDown = "XFooter.ctx":0070 PictureDisabled = "XFooter.ctx":008C PictureDisabledOn= "XFooter.ctx":00A8 PictureAlign = 7 FocusRect = -1 'True AutoSize = -1 'True EditState = 0 FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True EditControl = 0 'False EatsCursorKeys = 0 'False Caption = "keyF2" CaptionOn = "" CaptionPendingOn= "" CaptionPendingOff= "" Alignment = 0 UseMnemonic = 0 'False UseColorOn = 0 'False ForeColorDown = -2147483630 BackColorDown = -2147483633 BackColorDisabled= -2147483633 BackColorDisabledOn= -2147483633 LEDColorOn = -2147483632 LEDColorOff = 16777215 OptionGroup = 1 OptionMode = 0 DownWhenDisabled= 0 'False AuthorizationMode= 0 FontClass = "Tahoma8Bold" RecipeMember = 0 'False VWItem = "__UNLINKED_I2" VWItemTrigger = "" Blink = 0 Key = 113 IndexGroup = "Global" Authorization = "" End Begin VisiWinStudio2Lib.VWSSwitch swtF1 Height = 840 Left = 0 TabIndex = 8 Top = 0 Width = 1200 _cx = 2117 _cy = 1482 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Enabled = -1 'True BitNumber = 0 BitTrigger = 0 BackColor = -2147483633 BackColorOn = -2147483633 BackColorPending= -2147483633 ForeColor = -2147483630 ForeColorOn = -2147483630 ForeColorPending= -2147483630 SwitchType = 2 SwitchMode = 0 PictureOn = "XFooter.ctx":00C4 PicturePendingOn= "XFooter.ctx":00E0 PicturePendingOff= "XFooter.ctx":00FC PictureOff = "XFooter.ctx":0118 PictureDown = "XFooter.ctx":0134 PictureDisabled = "XFooter.ctx":0150 PictureDisabledOn= "XFooter.ctx":016C PictureAlign = 7 FocusRect = -1 'True AutoSize = -1 'True EditState = 0 FocusNext = -1 'True RestoreOnLostFocus= -1 'True WriteOnReturn = -1 'True EditControl = 0 'False EatsCursorKeys = 0 'False Caption = "keyF1" CaptionOn = "" CaptionPendingOn= "" CaptionPendingOff= "" Alignment = 0 UseMnemonic = 0 'False UseColorOn = 0 'False ForeColorDown = -2147483630 BackColorDown = -2147483633 BackColorDisabled= -2147483633 BackColorDisabledOn= -2147483633 LEDColorOn = -2147483632 LEDColorOff = 16777215 OptionGroup = 1 OptionMode = 0 DownWhenDisabled= 0 'False AuthorizationMode= 0 FontClass = "Tahoma8Bold" RecipeMember = 0 'False VWItem = "__UNLINKED_I2" VWItemTrigger = "" Blink = 0 Key = 112 IndexGroup = "Global" Authorization = "" 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 swtF1_Click() VWSLangSelect1.Language = 1031 End Sub Private Sub swtF2_Click() VWSLangSelect1.Language = 1033 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 keyF6_Click() ChangeForm 6 End Sub Private Sub keyF7_Click() ChangeForm 7 End Sub Private Sub keyF8_Click() ChangeForm 8 End Sub Private Sub keyF9_Click() ChangeForm 9 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: ' nFormularNummer: Nummer des Formulars (== Funktionstaste, F1=1,...) 'Lokale Variablen für Formular-Objekte Dim frmActive As Form, frmNew As Form, frm 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 Case 2 Case 3 Case 4 Set frmNew = FCentral Case 5 Set frmNew = FSimulationCh1 Case 6 Set frmNew = FSimulationCh2 Case 7 Set frmNew = FDataModuleCh1 Case 8 Set frmNew = FSetGet 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? If frmActive Is FCentral Then 'mache nix 'Dieses Formular kann im Speicher bleiben, damit der Bildwechsel beim 'nächsten Aufruf schneller geht. Else 'was ist mit den anderen? '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 End If 'Mauszeiger zurück auf Normal/Pfeil schalten Screen.MousePointer = vbDefault End Sub Private Sub UserControl_Resize() swtF1.Width = UserControl.ScaleWidth \ 10 swtF2.Width = UserControl.ScaleWidth \ 10 keyF3.Width = UserControl.ScaleWidth \ 10 keyF4.Width = UserControl.ScaleWidth \ 10 keyF5.Width = UserControl.ScaleWidth \ 10 keyF6.Width = UserControl.ScaleWidth \ 10 keyF7.Width = UserControl.ScaleWidth \ 10 keyF8.Width = UserControl.ScaleWidth \ 10 keyF9.Width = UserControl.ScaleWidth \ 10 keyF10.Width = UserControl.ScaleWidth \ 10 swtF1.Height = UserControl.ScaleHeight swtF2.Height = UserControl.ScaleHeight keyF3.Height = UserControl.ScaleHeight keyF4.Height = UserControl.ScaleHeight keyF5.Height = UserControl.ScaleHeight keyF6.Height = UserControl.ScaleHeight keyF7.Height = UserControl.ScaleHeight keyF8.Height = UserControl.ScaleHeight keyF9.Height = UserControl.ScaleHeight keyF10.Height = UserControl.ScaleHeight swtF1.Left = 0 swtF2.Left = 1 * UserControl.ScaleWidth \ 10 keyF3.Left = 2 * UserControl.ScaleWidth \ 10 keyF4.Left = 3 * UserControl.ScaleWidth \ 10 keyF5.Left = 4 * UserControl.ScaleWidth \ 10 keyF6.Left = 5 * UserControl.ScaleWidth \ 10 keyF7.Left = 6 * UserControl.ScaleWidth \ 10 keyF8.Left = 7 * UserControl.ScaleWidth \ 10 keyF9.Left = 8 * UserControl.ScaleWidth \ 10 keyF10.Left = 9 * UserControl.ScaleWidth \ 10 End Sub Private Sub UserControl_Show() If UserControl.Ambient.UserMode Then Select Case Screen.ActiveForm.Name Case "FCentral" keyF4.Enabled = False Case "FDataModuleCh1" keyF7.Enabled = False Case "FSetGet" keyF8.Enabled = False Case "FSimulationCh1" keyF5.Enabled = False Case "FSimulationCh2" keyF6.Enabled = False End Select End If End Sub Private Sub VWSLangSelect1_LanguageChange(ByVal Language As Long) Select Case Language Case 1031 swtF1.State = 1 Case 1033 swtF2.State = 1 End Select End Sub