hubaoshun
/
BECKHOFF
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Shanghai
NingBo
Wuhai
main
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '42ff224220'
${ noResults }
BECKHOFF/四车间/M779-10号车（已改）/BACK-C/VisiWin/VisiWinStudio/Demos/DistillationDevice/VWButton.ctl

1622 lines
53 KiB
Plaintext
Raw Normal View History Unescape Escape

上海卷烟厂倍福程序
2 years ago
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