|
|
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<><6E><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|
|
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<><6E><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|
|
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<><6E><EFBFBD>{<7B><>"
|
|
|
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<73>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<61>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<75>ck auf Normal/Pfeil schalten
|
|
|
Screen.MousePointer = vbDefault
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
Private Sub keyLanguage_Click(Index As Integer)
|
|
|
VWLanguage1.Language = Index
|
|
|
SetKeyboardLayout Index
|
|
|
End Sub
|
|
|
|