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.

1326 lines
46 KiB
Plaintext

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.Form FDataModuleCh1
BackColor = &H00C0C0C0&
BorderStyle = 0 'Kein
ClientHeight = 11520
ClientLeft = 0
ClientTop = 0
ClientWidth = 15360
ControlBox = 0 'False
Icon = "FDataModuleCh1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 1 'ZReihenfolge
ScaleHeight = 11520
ScaleWidth = 15360
ShowInTaskbar = 0 'False
StartUpPosition = 2 'Bildschirmmitte
Begin VWSItemDemo.XHeader XHeader1
Height = 495
Left = 0
TabIndex = 24
Top = 0
Width = 15360
_ExtentX = 27093
_ExtentY = 873
Caption = "idxCaption"
IndexGroup = "FMemory"
End
Begin VWSItemDemo.XFooter XFooter1
Height = 1110
Left = 0
TabIndex = 23
Top = 10410
Width = 15360
_ExtentX = 27093
_ExtentY = 1958
End
Begin VisiWinStudioLib.VWSPicBox pbxDB1b
Height = 4395
Left = 10290
TabIndex = 11
TabStop = 0 'False
Top = 2280
Width = 4635
_cx = 5080
_cy = 5080
Enabled = -1 'True
BackColor = -2147483633
Picture1 = "FDataModuleCh1.frx":0442
Picture2 = "FDataModuleCh1.frx":045E
Picture3 = "FDataModuleCh1.frx":047A
Picture4 = "FDataModuleCh1.frx":0496
Picture5 = "FDataModuleCh1.frx":04B2
Picture6 = "FDataModuleCh1.frx":04CE
Picture7 = "FDataModuleCh1.frx":04EA
Picture8 = "FDataModuleCh1.frx":0506
PictureOff = "FDataModuleCh1.frx":0522
BackPicture = "FDataModuleCh1.frx":053E
Symbol = "FDataModuleCh1.frx":055A
SymbolOn = 0 'False
SymbolPosX = -1
SymbolPosY = -1
Mode = 0
Range = 1
State = 0
Offset = 0
BitNumber = 0
ShadowStyle = 4
ShadowDepth = 2
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
AutoSize = -1 'True
OpaqueContent = -1 'True
ShowBackPicture = 0 'False
TransparentColorOn= 0 'False
TransparentColor= 16777215
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
RecipeMember = 0 'False
Begin VisiWinStudioLib.VWSVarIn vinDB1b
Height = 435
Index = 0
Left = 600
TabIndex = 12
Top = 1380
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1b<.wDB1_00b>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = -1 'True
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1b
Height = 435
Index = 1
Left = 600
TabIndex = 13
Top = 1920
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1b<.wDB1_01b>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = -1 'True
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1b
Height = 435
Index = 2
Left = 600
TabIndex = 14
Top = 2460
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1b<.wDB1_02b>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = -1 'True
LimitMin = "-32768"
LimitMax = "32767"
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = -1 'True
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1b
Height = 435
Index = 3
Left = 600
TabIndex = 15
Top = 3000
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1b<.wDB1_03b>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = -1 'True
LimitMin = "-32768"
LimitMax = "32767"
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = -1 'True
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1b
Height = 435
Index = 4
Left = 600
TabIndex = 16
Top = 3540
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1b<.wDB1_04b>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = -1 'True
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1b
Height = 435
Index = 5
Left = 2520
TabIndex = 17
Top = 1380
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1b<.wDB1_05b>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = -1 'True
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1b
Height = 435
Index = 6
Left = 2520
TabIndex = 18
Top = 1920
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1b<.wDB1_06b>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = -1 'True
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1b
Height = 435
Index = 7
Left = 2520
TabIndex = 19
Top = 2460
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1b<.wDB1_07b>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = -1 'True
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1b
Height = 435
Index = 8
Left = 2520
TabIndex = 20
Top = 3000
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1b<.wDB1_08b>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = -1 'True
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1b
Height = 435
Index = 9
Left = 2520
TabIndex = 21
Top = 3540
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1b<.wDB1_09b>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = -1 'True
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VWSLanguageLib.VWSIndex idxLabel
Height = 1095
Index = 0
Left = 120
Top = 60
Width = 4455
_cx = 5080
_cy = 5080
BackStyle = 1
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = -2147483633
BackColorOn = -2147483643
ForeColorOff = -2147483640
ForeColorOn = -2147483640
TextRotation = 0
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
IndexGroup = "FMemory"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = "Tahoma8"
OffsetText = 0
TextOn = ""
TextOff = "idxLabel3"
End
End
Begin VisiWinStudioLib.VWSPicBox pbxDB1a
Height = 4395
Left = 480
TabIndex = 0
TabStop = 0 'False
Top = 2280
Width = 4635
_cx = 5080
_cy = 5080
Enabled = -1 'True
BackColor = -2147483633
Picture1 = "FDataModuleCh1.frx":0576
Picture2 = "FDataModuleCh1.frx":0592
Picture3 = "FDataModuleCh1.frx":05AE
Picture4 = "FDataModuleCh1.frx":05CA
Picture5 = "FDataModuleCh1.frx":05E6
Picture6 = "FDataModuleCh1.frx":0602
Picture7 = "FDataModuleCh1.frx":061E
Picture8 = "FDataModuleCh1.frx":063A
PictureOff = "FDataModuleCh1.frx":0656
BackPicture = "FDataModuleCh1.frx":0672
Symbol = "FDataModuleCh1.frx":068E
SymbolOn = 0 'False
SymbolPosX = -1
SymbolPosY = -1
Mode = 0
Range = 1
State = 0
Offset = 0
BitNumber = 0
ShadowStyle = 4
ShadowDepth = 2
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
AutoSize = -1 'True
OpaqueContent = -1 'True
ShowBackPicture = 0 'False
TransparentColorOn= 0 'False
TransparentColor= 16777215
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
RecipeMember = 0 'False
Begin VisiWinStudioLib.VWSVarIn vinDB1a
Height = 435
Index = 0
Left = 600
TabIndex = 1
Top = 1380
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1a<.wDB1_00a>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = 0 'False
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1a
Height = 435
Index = 1
Left = 600
TabIndex = 2
Top = 1920
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1a<.wDB1_01a>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = 0 'False
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1a
Height = 435
Index = 2
Left = 600
TabIndex = 3
Top = 2460
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1a<.wDB1_02a>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = 0 'False
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1a
Height = 435
Index = 3
Left = 600
TabIndex = 4
Top = 3000
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1a<.wDB1_03a>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = 0 'False
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1a
Height = 435
Index = 4
Left = 600
TabIndex = 5
Top = 3540
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1a<.wDB1_04a>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = 0 'False
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1a
Height = 435
Index = 5
Left = 2520
TabIndex = 6
Top = 1380
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1a<.wDB1_05a>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = 0 'False
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1a
Height = 435
Index = 6
Left = 2520
TabIndex = 7
Top = 1920
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1a<.wDB1_06a>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = 0 'False
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1a
Height = 435
Index = 7
Left = 2520
TabIndex = 8
Top = 2460
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1a<.wDB1_07a>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = 0 'False
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1a
Height = 435
Index = 8
Left = 2520
TabIndex = 9
Top = 3000
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1a<.wDB1_08a>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = 0 'False
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VisiWinStudioLib.VWSVarIn vinDB1a
Height = 435
Index = 9
Left = 2520
TabIndex = 10
Top = 3540
Width = 1515
_cx = 5080
_cy = 5080
VWItem = "Ch1.trDB1a<.wDB1_09a>"
VWItemLimitMin = ""
VWItemLimitMax = ""
Blink = 0
UseItemConfig = 0 'False
BackStyle = 1
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 16777215
BackColorDisabled= -2147483633
ForeColor = 0
Format = 0
DecPoint = 0
Enabled = -1 'True
LimitCheck = 0 'False
LimitMin = ""
LimitMax = ""
FocusNext = -1 'True
RestoreOnLostFocus= 0 'False
WriteOnReturn = 0 'False
AddText = ""
IndexGroup = ""
AuthorizationMode= 0
Authorization = ""
UnitConversion = 0
FontClass = ""
RecipeMember = 0 'False
End
Begin VWSLanguageLib.VWSIndex idxLabel
Height = 1095
Index = 2
Left = 120
Top = 60
Width = 4455
_cx = 5080
_cy = 5080
BackStyle = 1
Enabled = -1 'True
Alignment = 1
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = -2147483633
BackColorOn = -2147483643
ForeColorOff = -2147483640
ForeColorOn = -2147483640
TextRotation = 0
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
IndexGroup = "FMemory"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = "Tahoma8"
OffsetText = 0
TextOn = ""
TextOff = "idxLabel2"
End
End
Begin VisiWinStudioLib.VWSKey keyF11
Height = 840
Left = 7095
TabIndex = 22
Top = 4140
Width = 1320
_cx = 2328
_cy = 1482
VWItem = ""
VWItemMonitor = ""
Blink = 0
BitMonitor = 0
CaptionMonitorOn= ""
ForeColorMonitorOn= -2147483630
BackColorMonitorOn= -2147483633
IndexGroup = "FMemory"
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 = 12632256
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 = "keyF11"
UseMnemonic = 0 'False
Key = 122
DownWhenDisabled= 0 'False
End
Begin VWSLanguageLib.VWSIndex idxLabel
Height = 555
Index = 1
Left = 480
Top = 1620
Width = 14440
_cx = 25471
_cy = 979
BackStyle = 1
Enabled = -1 'True
Alignment = 7
ShadowColor1 = -2147483632
ShadowColor2 = -2147483634
ShadowDepth = 2
ShadowStyle = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColorOff = 13684944
BackColorOn = -2147483643
ForeColorOff = 0
ForeColorOn = -2147483640
TextRotation = 0
AuthorizationMode= 1
Authorization = ""
VWItem = ""
Blink = 0
IndexGroup = "FMemory"
IndexPrefix = ""
BitNumber = 0
Mode = -1
Offset = 0
Range = 1
FontClass = "Tahoma12Bold"
OffsetText = 0
TextOn = ""
TextOff = "idxLabel1"
End
End
Attribute VB_Name = "FDataModuleCh1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub vinDB1a_Edit(Index As Integer, ByVal State As VisiWinStudioLib.VWCEditState)
'Der Eingabemodus des VWVarIn <20>ndert sich:
If State = vwEditing Then
'Eingabemodus: Der dargestellte Wert ist die momentane Eingabe
'und entspricht NICHT dem Wert der Prozessvariablen!
vinDB1a(Index).ForeColor = RGB(255, 0, 0) 'rot
Else
'Anzeigemodus: Der aktuelle Wert der Prozessvariablen wird angezeigt.
vinDB1a(Index).ForeColor = RGB(0, 0, 0) 'schwarz
End If
End Sub
Private Sub keyF11_Click()
Dim n As Integer
'Bei den VWVarIn-Objekten im Abbild A ist die
'WriteOnReturn-Eigenschaft auf False gesetzt.
'=> Das Dr<44>cken der Return-Taste schreibt die
'Eingabe NICHT in die Prozessvariable.
'Das <20>bernehmen der Eingabe wird hier programmiert,
'indem die WriteValue-Methode des VWVarIn aufgerufen wird.
For n = 0 To 9
vinDB1a(n).WriteValue
Next n
End Sub