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 ä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ücken der Return-Taste schreibt die 'Eingabe NICHT in die Prozessvariable. 'Das Ü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