|
|
VERSION 5.00
|
|
|
Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx"
|
|
|
Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx"
|
|
|
Begin VB.UserControl VWButton
|
|
|
ClientHeight = 660
|
|
|
ClientLeft = 0
|
|
|
ClientTop = 0
|
|
|
ClientWidth = 7560
|
|
|
LockControls = -1 'True
|
|
|
ScaleHeight = 660
|
|
|
ScaleWidth = 7560
|
|
|
Begin VWSLanguageLib.VWSIndex Text
|
|
|
Height = 180
|
|
|
Index = 0
|
|
|
Left = 0
|
|
|
Top = 0
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483633
|
|
|
ForeColorOff = -2147483640
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = ""
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = ""
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "Text1"
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey Button
|
|
|
Height = 480
|
|
|
Index = 0
|
|
|
Left = 0
|
|
|
TabIndex = 0
|
|
|
Top = 180
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = -1 'True
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = ""
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey Button
|
|
|
Height = 480
|
|
|
Index = 1
|
|
|
Left = 630
|
|
|
TabIndex = 1
|
|
|
Top = 180
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = -1 'True
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = ""
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey Button
|
|
|
Height = 480
|
|
|
Index = 2
|
|
|
Left = 1260
|
|
|
TabIndex = 2
|
|
|
Top = 180
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = -1 'True
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = ""
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey Button
|
|
|
Height = 480
|
|
|
Index = 3
|
|
|
Left = 1890
|
|
|
TabIndex = 3
|
|
|
Top = 180
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = -1 'True
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = ""
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey Button
|
|
|
Height = 480
|
|
|
Index = 4
|
|
|
Left = 2520
|
|
|
TabIndex = 4
|
|
|
Top = 180
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = -1 'True
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = ""
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey Button
|
|
|
Height = 480
|
|
|
Index = 5
|
|
|
Left = 3150
|
|
|
TabIndex = 5
|
|
|
Top = 180
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = -1 'True
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = ""
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey Button
|
|
|
Height = 480
|
|
|
Index = 6
|
|
|
Left = 3780
|
|
|
TabIndex = 6
|
|
|
Top = 180
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = -1 'True
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = ""
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey Button
|
|
|
Height = 480
|
|
|
Index = 7
|
|
|
Left = 4410
|
|
|
TabIndex = 7
|
|
|
Top = 180
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = -1 'True
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = ""
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey Button
|
|
|
Height = 480
|
|
|
Index = 8
|
|
|
Left = 5040
|
|
|
TabIndex = 8
|
|
|
Top = 180
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = -1 'True
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = ""
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey Button
|
|
|
Height = 480
|
|
|
Index = 9
|
|
|
Left = 5670
|
|
|
TabIndex = 9
|
|
|
Top = 180
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = -1 'True
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = ""
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey Button
|
|
|
Height = 480
|
|
|
Index = 10
|
|
|
Left = 6300
|
|
|
TabIndex = 10
|
|
|
Top = 180
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = -1 'True
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = ""
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey Button
|
|
|
Height = 480
|
|
|
Index = 11
|
|
|
Left = 6930
|
|
|
TabIndex = 11
|
|
|
Top = 180
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = -1 'True
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = ""
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex Text
|
|
|
Height = 180
|
|
|
Index = 1
|
|
|
Left = 630
|
|
|
Top = 0
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483633
|
|
|
ForeColorOff = -2147483640
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = ""
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = ""
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "Text2"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex Text
|
|
|
Height = 180
|
|
|
Index = 2
|
|
|
Left = 1260
|
|
|
Top = 0
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483633
|
|
|
ForeColorOff = -2147483640
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = ""
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = ""
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "Text3"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex Text
|
|
|
Height = 180
|
|
|
Index = 3
|
|
|
Left = 1890
|
|
|
Top = 0
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483633
|
|
|
ForeColorOff = -2147483640
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = ""
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = ""
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "Text4"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex Text
|
|
|
Height = 180
|
|
|
Index = 4
|
|
|
Left = 2520
|
|
|
Top = 0
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483633
|
|
|
ForeColorOff = -2147483640
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = ""
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = ""
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "Text5"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex Text
|
|
|
Height = 180
|
|
|
Index = 5
|
|
|
Left = 3150
|
|
|
Top = 0
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483633
|
|
|
ForeColorOff = -2147483640
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = ""
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = ""
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "Text6"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex Text
|
|
|
Height = 180
|
|
|
Index = 6
|
|
|
Left = 3780
|
|
|
Top = 0
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483633
|
|
|
ForeColorOff = -2147483640
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = ""
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = ""
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "Text7"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex Text
|
|
|
Height = 180
|
|
|
Index = 7
|
|
|
Left = 4410
|
|
|
Top = 0
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483633
|
|
|
ForeColorOff = -2147483640
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = ""
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = ""
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "Text8"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex Text
|
|
|
Height = 180
|
|
|
Index = 8
|
|
|
Left = 5040
|
|
|
Top = 0
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483633
|
|
|
ForeColorOff = -2147483640
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = ""
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = ""
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "Text9"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex Text
|
|
|
Height = 180
|
|
|
Index = 9
|
|
|
Left = 5670
|
|
|
Top = 0
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483633
|
|
|
ForeColorOff = -2147483640
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = ""
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = ""
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "Text10"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex Text
|
|
|
Height = 180
|
|
|
Index = 10
|
|
|
Left = 6300
|
|
|
Top = 0
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483633
|
|
|
ForeColorOff = -2147483640
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = ""
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = ""
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "Text11"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex Text
|
|
|
Height = 180
|
|
|
Index = 11
|
|
|
Left = 6930
|
|
|
Top = 0
|
|
|
Width = 630
|
|
|
_cx = 5080
|
|
|
_cy = 5080
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483633
|
|
|
ForeColorOff = -2147483640
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = ""
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = ""
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "Text12"
|
|
|
End
|
|
|
End
|
|
|
Attribute VB_Name = "VWButton"
|
|
|
Attribute VB_GlobalNameSpace = False
|
|
|
Attribute VB_Creatable = True
|
|
|
Attribute VB_PredeclaredId = False
|
|
|
Attribute VB_Exposed = False
|
|
|
Option Explicit
|
|
|
'Ereignisdeklarationen:
|
|
|
|
|
|
|
|
|
|
|
|
Event Button1Click() 'MappingInfo=Button(0),Button,0,Click
|
|
|
Event Button2Click() 'MappingInfo=Button(1),Button,1,Click
|
|
|
Event Button3Click() 'MappingInfo=Button(2),Button,2,Click
|
|
|
Event Button4Click() 'MappingInfo=Button(3),Button,3,Click
|
|
|
Event Button5Click() 'MappingInfo=Button(4),Button,4,Click
|
|
|
Event Button6Click() 'MappingInfo=Button(5),Button,5,Click
|
|
|
Event Button7Click() 'MappingInfo=Button(6),Button,6,Click
|
|
|
Event Button8Click() 'MappingInfo=Button(7),Button,7,Click
|
|
|
Event Button9Click() 'MappingInfo=Button(8),Button,8,Click
|
|
|
Event Button10Click() 'MappingInfo=Button(9),Button,9,Click
|
|
|
Event Button11Click() 'MappingInfo=Button(10),Button,10,Click
|
|
|
Event Button12Click() 'MappingInfo=Button(11),Button,11,Click
|
|
|
|
|
|
Private Sub Button_Click(Index As Integer)
|
|
|
Select Case Index
|
|
|
Case 0
|
|
|
RaiseEvent Button1Click
|
|
|
Case 1
|
|
|
RaiseEvent Button2Click
|
|
|
Case 2
|
|
|
RaiseEvent Button3Click
|
|
|
Case 3
|
|
|
RaiseEvent Button4Click
|
|
|
Case 4
|
|
|
RaiseEvent Button5Click
|
|
|
Case 5
|
|
|
RaiseEvent Button6Click
|
|
|
Case 6
|
|
|
RaiseEvent Button7Click
|
|
|
Case 7
|
|
|
RaiseEvent Button8Click
|
|
|
Case 8
|
|
|
RaiseEvent Button9Click
|
|
|
Case 9
|
|
|
RaiseEvent Button10Click
|
|
|
Case 10
|
|
|
RaiseEvent Button11Click
|
|
|
Case 11
|
|
|
RaiseEvent Button12Click
|
|
|
End Select
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
Public Property Get Picture1() As Picture
|
|
|
Set Picture1 = Button(0).Picture
|
|
|
End Property
|
|
|
Public Property Set Picture1(ByVal New_Picture1 As Picture)
|
|
|
Set Button(0).Picture = New_Picture1
|
|
|
PropertyChanged "Picture1"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Picture2() As Picture
|
|
|
Set Picture2 = Button(1).Picture
|
|
|
End Property
|
|
|
Public Property Set Picture2(ByVal New_Picture2 As Picture)
|
|
|
Set Button(1).Picture = New_Picture2
|
|
|
PropertyChanged "Picture2"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Picture3() As Picture
|
|
|
Set Picture3 = Button(2).Picture
|
|
|
End Property
|
|
|
Public Property Set Picture3(ByVal New_Picture3 As Picture)
|
|
|
Set Button(2).Picture = New_Picture3
|
|
|
PropertyChanged "Picture3"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Picture4() As Picture
|
|
|
Set Picture4 = Button(3).Picture
|
|
|
End Property
|
|
|
Public Property Set Picture4(ByVal New_Picture4 As Picture)
|
|
|
Set Button(3).Picture = New_Picture4
|
|
|
PropertyChanged "Picture4"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Picture5() As Picture
|
|
|
Set Picture5 = Button(4).Picture
|
|
|
End Property
|
|
|
Public Property Set Picture5(ByVal New_Picture5 As Picture)
|
|
|
Set Button(4).Picture = New_Picture5
|
|
|
PropertyChanged "Picture5"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Picture6() As Picture
|
|
|
Set Picture6 = Button(5).Picture
|
|
|
End Property
|
|
|
Public Property Set Picture6(ByVal New_Picture6 As Picture)
|
|
|
Set Button(5).Picture = New_Picture6
|
|
|
PropertyChanged "Picture6"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Picture7() As Picture
|
|
|
Set Picture7 = Button(6).Picture
|
|
|
End Property
|
|
|
Public Property Set Picture7(ByVal New_Picture7 As Picture)
|
|
|
Set Button(6).Picture = New_Picture7
|
|
|
PropertyChanged "Picture7"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Picture8() As Picture
|
|
|
Set Picture8 = Button(7).Picture
|
|
|
End Property
|
|
|
Public Property Set Picture8(ByVal New_Picture8 As Picture)
|
|
|
Set Button(7).Picture = New_Picture8
|
|
|
PropertyChanged "Picture8"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Picture9() As Picture
|
|
|
Set Picture9 = Button(8).Picture
|
|
|
End Property
|
|
|
Public Property Set Picture9(ByVal New_Picture9 As Picture)
|
|
|
Set Button(8).Picture = New_Picture9
|
|
|
PropertyChanged "Picture9"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Picture10() As Picture
|
|
|
Set Picture10 = Button(9).Picture
|
|
|
End Property
|
|
|
Public Property Set Picture10(ByVal New_Picture10 As Picture)
|
|
|
Set Button(9).Picture = New_Picture10
|
|
|
PropertyChanged "Picture10"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Picture11() As Picture
|
|
|
Set Picture11 = Button(10).Picture
|
|
|
End Property
|
|
|
Public Property Set Picture11(ByVal New_Picture11 As Picture)
|
|
|
Set Button(10).Picture = New_Picture11
|
|
|
PropertyChanged "Picture11"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Picture12() As Picture
|
|
|
Set Picture12 = Button(11).Picture
|
|
|
End Property
|
|
|
Public Property Set Picture12(ByVal New_Picture12 As Picture)
|
|
|
Set Button(11).Picture = New_Picture12
|
|
|
PropertyChanged "Picture12"
|
|
|
End Property
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
''Eigenschaftenwerte vom Speicher laden
|
|
|
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
|
|
|
|
|
|
Set Button(0).Picture = PropBag.ReadProperty("Picture1", Nothing)
|
|
|
Set Button(1).Picture = PropBag.ReadProperty("Picture2", Nothing)
|
|
|
Set Button(2).Picture = PropBag.ReadProperty("Picture3", Nothing)
|
|
|
Set Button(3).Picture = PropBag.ReadProperty("Picture4", Nothing)
|
|
|
Set Button(4).Picture = PropBag.ReadProperty("Picture5", Nothing)
|
|
|
Set Button(5).Picture = PropBag.ReadProperty("Picture6", Nothing)
|
|
|
Set Button(6).Picture = PropBag.ReadProperty("Picture7", Nothing)
|
|
|
Set Button(7).Picture = PropBag.ReadProperty("Picture8", Nothing)
|
|
|
Set Button(8).Picture = PropBag.ReadProperty("Picture9", Nothing)
|
|
|
Set Button(9).Picture = PropBag.ReadProperty("Picture10", Nothing)
|
|
|
Set Button(10).Picture = PropBag.ReadProperty("Picture11", Nothing)
|
|
|
Set Button(11).Picture = PropBag.ReadProperty("Picture12", Nothing)
|
|
|
|
|
|
Set Text(0).Font = PropBag.ReadProperty("Font", Ambient.Font)
|
|
|
Set Text(1).Font = PropBag.ReadProperty("Font", Ambient.Font)
|
|
|
Set Text(2).Font = PropBag.ReadProperty("Font", Ambient.Font)
|
|
|
Set Text(3).Font = PropBag.ReadProperty("Font", Ambient.Font)
|
|
|
Set Text(4).Font = PropBag.ReadProperty("Font", Ambient.Font)
|
|
|
Set Text(5).Font = PropBag.ReadProperty("Font", Ambient.Font)
|
|
|
Set Text(6).Font = PropBag.ReadProperty("Font", Ambient.Font)
|
|
|
Set Text(7).Font = PropBag.ReadProperty("Font", Ambient.Font)
|
|
|
Set Text(8).Font = PropBag.ReadProperty("Font", Ambient.Font)
|
|
|
Set Text(9).Font = PropBag.ReadProperty("Font", Ambient.Font)
|
|
|
Set Text(10).Font = PropBag.ReadProperty("Font", Ambient.Font)
|
|
|
Set Text(11).Font = PropBag.ReadProperty("Font", Ambient.Font)
|
|
|
|
|
|
|
|
|
|
|
|
Text(0).IndexGroup = PropBag.ReadProperty("IndexGroup", "")
|
|
|
Text(1).IndexGroup = PropBag.ReadProperty("IndexGroup", "")
|
|
|
Text(2).IndexGroup = PropBag.ReadProperty("IndexGroup", "")
|
|
|
Text(3).IndexGroup = PropBag.ReadProperty("IndexGroup", "")
|
|
|
Text(4).IndexGroup = PropBag.ReadProperty("IndexGroup", "")
|
|
|
Text(5).IndexGroup = PropBag.ReadProperty("IndexGroup", "")
|
|
|
Text(6).IndexGroup = PropBag.ReadProperty("IndexGroup", "")
|
|
|
Text(7).IndexGroup = PropBag.ReadProperty("IndexGroup", "")
|
|
|
Text(8).IndexGroup = PropBag.ReadProperty("IndexGroup", "")
|
|
|
Text(9).IndexGroup = PropBag.ReadProperty("IndexGroup", "")
|
|
|
Text(10).IndexGroup = PropBag.ReadProperty("IndexGroup", "")
|
|
|
Text(11).IndexGroup = PropBag.ReadProperty("IndexGroup", "")
|
|
|
|
|
|
Text(0).TextOff = PropBag.ReadProperty("Text1", "Text")
|
|
|
Text(1).TextOff = PropBag.ReadProperty("Text2", "Text")
|
|
|
Text(2).TextOff = PropBag.ReadProperty("Text3", "Text")
|
|
|
Text(3).TextOff = PropBag.ReadProperty("Text4", "Text")
|
|
|
Text(4).TextOff = PropBag.ReadProperty("Text5", "Text")
|
|
|
Text(5).TextOff = PropBag.ReadProperty("Text6", "Text")
|
|
|
Text(6).TextOff = PropBag.ReadProperty("Text7", "Text")
|
|
|
Text(7).TextOff = PropBag.ReadProperty("Text8", "Text")
|
|
|
Text(8).TextOff = PropBag.ReadProperty("Text9", "Text")
|
|
|
Text(9).TextOff = PropBag.ReadProperty("Text10", "Text")
|
|
|
Text(10).TextOff = PropBag.ReadProperty("Text11", "Text")
|
|
|
Text(11).TextOff = PropBag.ReadProperty("Text12", "Text")
|
|
|
UserControl.BorderStyle = PropBag.ReadProperty("BorderStyle", 0)
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
'Eigenschaftenwerte in den Speicher schreiben
|
|
|
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
|
|
|
|
|
|
Call PropBag.WriteProperty("Picture1", Button(0).Picture, Nothing)
|
|
|
Call PropBag.WriteProperty("Picture2", Button(1).Picture, Nothing)
|
|
|
Call PropBag.WriteProperty("Picture3", Button(2).Picture, Nothing)
|
|
|
Call PropBag.WriteProperty("Picture4", Button(3).Picture, Nothing)
|
|
|
Call PropBag.WriteProperty("Picture5", Button(4).Picture, Nothing)
|
|
|
Call PropBag.WriteProperty("Picture6", Button(5).Picture, Nothing)
|
|
|
Call PropBag.WriteProperty("Picture7", Button(6).Picture, Nothing)
|
|
|
Call PropBag.WriteProperty("Picture8", Button(7).Picture, Nothing)
|
|
|
Call PropBag.WriteProperty("Picture9", Button(8).Picture, Nothing)
|
|
|
Call PropBag.WriteProperty("Picture10", Button(9).Picture, Nothing)
|
|
|
Call PropBag.WriteProperty("Picture11", Button(10).Picture, Nothing)
|
|
|
Call PropBag.WriteProperty("Picture12", Button(11).Picture, Nothing)
|
|
|
|
|
|
Call PropBag.WriteProperty("Font", Text(0).Font, Ambient.Font)
|
|
|
Call PropBag.WriteProperty("Font", Text(1).Font, Ambient.Font)
|
|
|
Call PropBag.WriteProperty("Font", Text(2).Font, Ambient.Font)
|
|
|
Call PropBag.WriteProperty("Font", Text(3).Font, Ambient.Font)
|
|
|
Call PropBag.WriteProperty("Font", Text(4).Font, Ambient.Font)
|
|
|
Call PropBag.WriteProperty("Font", Text(5).Font, Ambient.Font)
|
|
|
Call PropBag.WriteProperty("Font", Text(6).Font, Ambient.Font)
|
|
|
Call PropBag.WriteProperty("Font", Text(7).Font, Ambient.Font)
|
|
|
Call PropBag.WriteProperty("Font", Text(8).Font, Ambient.Font)
|
|
|
Call PropBag.WriteProperty("Font", Text(9).Font, Ambient.Font)
|
|
|
Call PropBag.WriteProperty("Font", Text(10).Font, Ambient.Font)
|
|
|
Call PropBag.WriteProperty("Font", Text(11).Font, Ambient.Font)
|
|
|
|
|
|
|
|
|
|
|
|
Call PropBag.WriteProperty("IndexGroup", Text(0).IndexGroup, "")
|
|
|
Call PropBag.WriteProperty("IndexGroup", Text(1).IndexGroup, "")
|
|
|
Call PropBag.WriteProperty("IndexGroup", Text(2).IndexGroup, "")
|
|
|
Call PropBag.WriteProperty("IndexGroup", Text(3).IndexGroup, "")
|
|
|
Call PropBag.WriteProperty("IndexGroup", Text(4).IndexGroup, "")
|
|
|
Call PropBag.WriteProperty("IndexGroup", Text(5).IndexGroup, "")
|
|
|
Call PropBag.WriteProperty("IndexGroup", Text(6).IndexGroup, "")
|
|
|
Call PropBag.WriteProperty("IndexGroup", Text(7).IndexGroup, "")
|
|
|
Call PropBag.WriteProperty("IndexGroup", Text(8).IndexGroup, "")
|
|
|
Call PropBag.WriteProperty("IndexGroup", Text(9).IndexGroup, "")
|
|
|
Call PropBag.WriteProperty("IndexGroup", Text(10).IndexGroup, "")
|
|
|
Call PropBag.WriteProperty("IndexGroup", Text(11).IndexGroup, "")
|
|
|
|
|
|
Call PropBag.WriteProperty("Text1", Text(0).TextOff, "Text")
|
|
|
Call PropBag.WriteProperty("Text2", Text(1).TextOff, "Text")
|
|
|
Call PropBag.WriteProperty("Text3", Text(2).TextOff, "Text")
|
|
|
Call PropBag.WriteProperty("Text4", Text(3).TextOff, "Text")
|
|
|
Call PropBag.WriteProperty("Text5", Text(4).TextOff, "Text")
|
|
|
Call PropBag.WriteProperty("Text6", Text(5).TextOff, "Text")
|
|
|
Call PropBag.WriteProperty("Text7", Text(6).TextOff, "Text")
|
|
|
Call PropBag.WriteProperty("Text8", Text(7).TextOff, "Text")
|
|
|
Call PropBag.WriteProperty("Text9", Text(8).TextOff, "Text")
|
|
|
Call PropBag.WriteProperty("Text10", Text(9).TextOff, "Text")
|
|
|
Call PropBag.WriteProperty("Text11", Text(10).TextOff, "Text")
|
|
|
Call PropBag.WriteProperty("Text12", Text(11).TextOff, "Text")
|
|
|
Call PropBag.WriteProperty("BorderStyle", UserControl.BorderStyle, 0)
|
|
|
End Sub
|
|
|
|
|
|
Private Sub UserControl_Resize()
|
|
|
Dim bCount As Byte
|
|
|
Do
|
|
|
Text(bCount).Height = UserControl.Height * 180 / 660
|
|
|
If Text(bCount).Height > 315 Then Text(bCount).Height = 315
|
|
|
Text(bCount).Width = UserControl.Width / 12
|
|
|
Text(bCount).Left = Text(bCount).Width * bCount
|
|
|
|
|
|
Button(bCount).Top = Text(bCount).Height
|
|
|
Button(bCount).Height = UserControl.Height - Text(bCount).Height
|
|
|
Button(bCount).Width = UserControl.Width / 12
|
|
|
Button(bCount).Left = Button(bCount).Width * bCount
|
|
|
|
|
|
bCount = bCount + 1
|
|
|
Loop Until bCount = 12
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
Public Property Get Font() As Font
|
|
|
Set Font = Text(0).Font
|
|
|
Set Font = Text(1).Font
|
|
|
Set Font = Text(2).Font
|
|
|
Set Font = Text(3).Font
|
|
|
Set Font = Text(4).Font
|
|
|
Set Font = Text(5).Font
|
|
|
Set Font = Text(6).Font
|
|
|
Set Font = Text(7).Font
|
|
|
Set Font = Text(8).Font
|
|
|
Set Font = Text(9).Font
|
|
|
Set Font = Text(10).Font
|
|
|
Set Font = Text(11).Font
|
|
|
|
|
|
End Property
|
|
|
|
|
|
Public Property Set Font(ByVal New_Font As Font)
|
|
|
Set Text(0).Font = New_Font
|
|
|
Set Text(1).Font = New_Font
|
|
|
Set Text(2).Font = New_Font
|
|
|
Set Text(3).Font = New_Font
|
|
|
Set Text(4).Font = New_Font
|
|
|
Set Text(5).Font = New_Font
|
|
|
Set Text(6).Font = New_Font
|
|
|
Set Text(7).Font = New_Font
|
|
|
Set Text(8).Font = New_Font
|
|
|
Set Text(9).Font = New_Font
|
|
|
Set Text(10).Font = New_Font
|
|
|
Set Text(11).Font = New_Font
|
|
|
|
|
|
PropertyChanged "Font"
|
|
|
End Property
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Public Property Get IndexGroup() As String
|
|
|
IndexGroup = Text(0).IndexGroup
|
|
|
IndexGroup = Text(1).IndexGroup
|
|
|
IndexGroup = Text(2).IndexGroup
|
|
|
IndexGroup = Text(3).IndexGroup
|
|
|
IndexGroup = Text(4).IndexGroup
|
|
|
IndexGroup = Text(5).IndexGroup
|
|
|
IndexGroup = Text(6).IndexGroup
|
|
|
IndexGroup = Text(7).IndexGroup
|
|
|
IndexGroup = Text(8).IndexGroup
|
|
|
IndexGroup = Text(9).IndexGroup
|
|
|
IndexGroup = Text(10).IndexGroup
|
|
|
IndexGroup = Text(11).IndexGroup
|
|
|
End Property
|
|
|
|
|
|
Public Property Let IndexGroup(ByVal New_IndexGroup As String)
|
|
|
Text(0).IndexGroup() = New_IndexGroup
|
|
|
Text(1).IndexGroup() = New_IndexGroup
|
|
|
Text(2).IndexGroup() = New_IndexGroup
|
|
|
Text(3).IndexGroup() = New_IndexGroup
|
|
|
Text(4).IndexGroup() = New_IndexGroup
|
|
|
Text(5).IndexGroup() = New_IndexGroup
|
|
|
Text(6).IndexGroup() = New_IndexGroup
|
|
|
Text(7).IndexGroup() = New_IndexGroup
|
|
|
Text(8).IndexGroup() = New_IndexGroup
|
|
|
Text(9).IndexGroup() = New_IndexGroup
|
|
|
Text(10).IndexGroup() = New_IndexGroup
|
|
|
Text(11).IndexGroup() = New_IndexGroup
|
|
|
|
|
|
PropertyChanged "IndexGroup"
|
|
|
End Property
|
|
|
|
|
|
|
|
|
Public Property Get Text1() As String
|
|
|
Text1 = Text(0).TextOff
|
|
|
End Property
|
|
|
Public Property Let Text1(ByVal New_Text1 As String)
|
|
|
Text(0).TextOff() = New_Text1
|
|
|
PropertyChanged "Text1"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Text2() As String
|
|
|
Text2 = Text(1).TextOff
|
|
|
End Property
|
|
|
Public Property Let Text2(ByVal New_Text2 As String)
|
|
|
Text(1).TextOff() = New_Text2
|
|
|
PropertyChanged "Text2"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Text3() As String
|
|
|
Text3 = Text(2).TextOff
|
|
|
End Property
|
|
|
Public Property Let Text3(ByVal New_Text3 As String)
|
|
|
Text(2).TextOff() = New_Text3
|
|
|
PropertyChanged "Text3"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Text4() As String
|
|
|
Text4 = Text(3).TextOff
|
|
|
End Property
|
|
|
Public Property Let Text4(ByVal New_Text4 As String)
|
|
|
Text(3).TextOff() = New_Text4
|
|
|
PropertyChanged "Text4"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Text5() As String
|
|
|
Text5 = Text(4).TextOff
|
|
|
End Property
|
|
|
Public Property Let Text5(ByVal New_Text5 As String)
|
|
|
Text(4).TextOff() = New_Text5
|
|
|
PropertyChanged "Text5"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Text6() As String
|
|
|
Text6 = Text(5).TextOff
|
|
|
End Property
|
|
|
Public Property Let Text6(ByVal New_Text6 As String)
|
|
|
Text(5).TextOff() = New_Text6
|
|
|
PropertyChanged "Text6"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Text7() As String
|
|
|
Text7 = Text(6).TextOff
|
|
|
End Property
|
|
|
Public Property Let Text7(ByVal New_Text7 As String)
|
|
|
Text(6).TextOff() = New_Text7
|
|
|
PropertyChanged "Text7"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Text8() As String
|
|
|
Text8 = Text(7).TextOff
|
|
|
End Property
|
|
|
Public Property Let Text8(ByVal New_Text8 As String)
|
|
|
Text(7).TextOff() = New_Text8
|
|
|
PropertyChanged "Text8"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Text9() As String
|
|
|
Text9 = Text(8).TextOff
|
|
|
End Property
|
|
|
Public Property Let Text9(ByVal New_Text9 As String)
|
|
|
Text(8).TextOff() = New_Text9
|
|
|
PropertyChanged "Text9"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Text10() As String
|
|
|
Text10 = Text(9).TextOff
|
|
|
End Property
|
|
|
Public Property Let Text10(ByVal New_Text10 As String)
|
|
|
Text(9).TextOff() = New_Text10
|
|
|
PropertyChanged "Text10"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Text11() As String
|
|
|
Text11 = Text(10).TextOff
|
|
|
End Property
|
|
|
Public Property Let Text11(ByVal New_Text11 As String)
|
|
|
Text(10).TextOff() = New_Text11
|
|
|
PropertyChanged "Text11"
|
|
|
End Property
|
|
|
|
|
|
Public Property Get Text12() As String
|
|
|
Text12 = Text(11).TextOff
|
|
|
End Property
|
|
|
Public Property Let Text12(ByVal New_Text12 As String)
|
|
|
Text(11).TextOff() = New_Text12
|
|
|
PropertyChanged "Text12"
|
|
|
End Property
|
|
|
|
|
|
|
|
|
Public Property Get BorderStyle() As Integer
|
|
|
Attribute BorderStyle.VB_Description = "Gibt den Rahmenstil f<>r ein Objekt zur<75>ck oder legt diesen fest."
|
|
|
BorderStyle = UserControl.BorderStyle
|
|
|
End Property
|
|
|
|
|
|
Public Property Let BorderStyle(ByVal New_BorderStyle As Integer)
|
|
|
UserControl.BorderStyle() = New_BorderStyle
|
|
|
PropertyChanged "BorderStyle"
|
|
|
End Property
|
|
|
|