|
|
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 = 15360
|
|
|
LockControls = -1 'True
|
|
|
ScaleHeight = 56
|
|
|
ScaleMode = 3 'Pixel
|
|
|
ScaleWidth = 1024
|
|
|
Begin VWSLanguageLib.VWSLangSelect VWSLangSelect1
|
|
|
Left = 1380
|
|
|
Top = 360
|
|
|
_cx = 794
|
|
|
_cy = 794
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey keyF10
|
|
|
Height = 840
|
|
|
Left = 13770
|
|
|
TabIndex = 0
|
|
|
Top = 0
|
|
|
Width = 1590
|
|
|
_cx = 2805
|
|
|
_cy = 1482
|
|
|
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 = 12240
|
|
|
TabIndex = 1
|
|
|
Top = 0
|
|
|
Width = 1530
|
|
|
_cx = 2699
|
|
|
_cy = 1482
|
|
|
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 = 10710
|
|
|
TabIndex = 2
|
|
|
Top = 0
|
|
|
Width = 1530
|
|
|
_cx = 2699
|
|
|
_cy = 1482
|
|
|
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
|
|
|
Picture = "XFooter.ctx":0000
|
|
|
PictureAlign = 4
|
|
|
AutoSize = 0 'False
|
|
|
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 = 9180
|
|
|
TabIndex = 3
|
|
|
Top = 0
|
|
|
Width = 1530
|
|
|
_cx = 2699
|
|
|
_cy = 1482
|
|
|
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
|
|
|
Picture = "XFooter.ctx":069A
|
|
|
PictureAlign = 4
|
|
|
AutoSize = 0 'False
|
|
|
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 = 7650
|
|
|
TabIndex = 4
|
|
|
Top = 0
|
|
|
Width = 1530
|
|
|
_cx = 2699
|
|
|
_cy = 1482
|
|
|
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
|
|
|
Picture = "XFooter.ctx":0D34
|
|
|
PictureAlign = 4
|
|
|
AutoSize = 0 'False
|
|
|
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 = 6120
|
|
|
TabIndex = 5
|
|
|
Top = 0
|
|
|
Width = 1530
|
|
|
_cx = 2699
|
|
|
_cy = 1482
|
|
|
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
|
|
|
Picture = "XFooter.ctx":13CE
|
|
|
PictureAlign = 4
|
|
|
AutoSize = 0 'False
|
|
|
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 = 4590
|
|
|
TabIndex = 6
|
|
|
Top = 0
|
|
|
Width = 1530
|
|
|
_cx = 2699
|
|
|
_cy = 1482
|
|
|
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 = 3060
|
|
|
TabIndex = 7
|
|
|
Top = 0
|
|
|
Width = 1530
|
|
|
_cx = 2699
|
|
|
_cy = 1482
|
|
|
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 = 1530
|
|
|
TabIndex = 9
|
|
|
Top = 0
|
|
|
Width = 1530
|
|
|
_cx = 2699
|
|
|
_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":1A68
|
|
|
PicturePendingOn= "XFooter.ctx":1A84
|
|
|
PicturePendingOff= "XFooter.ctx":1AA0
|
|
|
PictureOff = "XFooter.ctx":1ABC
|
|
|
PictureDown = "XFooter.ctx":3796
|
|
|
PictureDisabled = "XFooter.ctx":37B2
|
|
|
PictureDisabledOn= "XFooter.ctx":37CE
|
|
|
PictureAlign = 4
|
|
|
FocusRect = -1 'True
|
|
|
AutoSize = 0 'False
|
|
|
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 = 1530
|
|
|
_cx = 2699
|
|
|
_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":37EA
|
|
|
PicturePendingOn= "XFooter.ctx":3806
|
|
|
PicturePendingOff= "XFooter.ctx":3822
|
|
|
PictureOff = "XFooter.ctx":383E
|
|
|
PictureDown = "XFooter.ctx":5518
|
|
|
PictureDisabled = "XFooter.ctx":5534
|
|
|
PictureDisabledOn= "XFooter.ctx":5550
|
|
|
PictureAlign = 4
|
|
|
FocusRect = -1 'True
|
|
|
AutoSize = 0 'False
|
|
|
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<73>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 = FAlarm
|
|
|
Case 6
|
|
|
Set frmNew = FAlarmNotes
|
|
|
Case 7
|
|
|
Set frmNew = FAlarmHelp
|
|
|
Case 8
|
|
|
Set frmNew = FAlarmHistory
|
|
|
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<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
|
|
|
End If
|
|
|
|
|
|
'Mauszeiger zur<75>ck auf Normal/Pfeil schalten
|
|
|
Screen.MousePointer = vbDefault
|
|
|
End Sub
|
|
|
|
|
|
Private Sub UserControl_Show()
|
|
|
If UserControl.Ambient.UserMode Then
|
|
|
Select Case Screen.ActiveForm.Name
|
|
|
Case "FCentral"
|
|
|
keyF4.Enabled = False
|
|
|
Case "FAlarm"
|
|
|
keyF5.Enabled = False
|
|
|
Case "FAlarmNotes"
|
|
|
keyF6.Enabled = False
|
|
|
Case "FAlarmHelp"
|
|
|
keyF7.Enabled = False
|
|
|
Case "FAlarmHistory"
|
|
|
keyF8.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
|