VERSION 5.00 Object = "{C7879DE5-1203-11D0-B26A-006008104BEC}#1.0#0"; "VW4VarIn.ocx" Object = "{BED9F2F1-D5A8-11CF-9684-006008104BEC}#1.0#0"; "VW4VarOut.ocx" Object = "{F0EB2110-3CC3-11D0-8E54-006008104BEC}#1.0#0"; "VW4Index.ocx" Object = "{2A559721-5321-11D0-95E6-006008104BEC}#1.0#0"; "VW4Language.ocx" Begin VB.Form FVWTouchScreen BackColor = &H00C0C0C0& BorderStyle = 0 'Kein Caption = "VisiWinStudio - VW4Language: Steuerelement VWIndex" ClientHeight = 9000 ClientLeft = 285 ClientTop = 225 ClientWidth = 12000 ControlBox = 0 'False Icon = "FVWTouchScreen.frx":0000 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False MinButton = 0 'False PaletteMode = 1 'ZReihenfolge ScaleHeight = 9000 ScaleWidth = 12000 StartUpPosition = 2 'Bildschirmmitte Begin VW4LanguageLib.VWLanguage VWLanguage1 Left = 11040 Top = 5040 _Version = 65536 _ExtentX = 794 _ExtentY = 794 _StockProps = 0 End Begin VB.TextBox txt BackColor = &H00FFFFFF& BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000000& Height = 1545 Left = 4560 MultiLine = -1 'True ScrollBars = 3 'Beides TabIndex = 5 Top = 5040 Width = 6315 End Begin VW4VarOutLib.VWVarOut vouWord Height = 495 Left = 4560 Top = 2640 Width = 1575 _Version = 65536 _ExtentX = 2778 _ExtentY = 873 _StockProps = 96 FontClass = "Arial12Bold" ForeColor = 0 BackColor = 12632256 VWDataSource = "w1" End Begin VW4VarInLib.VWVarIn vinWord Height = 495 Left = 4560 TabIndex = 2 Top = 2040 Width = 1575 _Version = 65536 _ExtentX = 2778 _ExtentY = 873 _StockProps = 96 FontClass = "Arial12Bold" WriteOnReturn = -1 'True FocusNext = -1 'True RestoreOnLostFocus= 0 'False ForeColor = 0 BackColor = 16777215 LimitMin = "0" LimitMax = "100" LimitCheck = -1 'True VWDataSource = "w1" End Begin VW4VarOutLib.VWVarOut VWVarOut1 Height = 495 Left = 4560 Top = 4140 Width = 6315 _Version = 65536 _ExtentX = 11139 _ExtentY = 873 _StockProps = 96 FontClass = "Arial12Bold" ForeColor = 0 BackColor = 12632256 VWDataSource = "txt1" End Begin VW4VarInLib.VWVarIn vinText Height = 495 Left = 4560 TabIndex = 1 Top = 3540 Width = 6315 _Version = 65536 _ExtentX = 11139 _ExtentY = 873 _StockProps = 96 FontClass = "Arial12Bold" WriteOnReturn = -1 'True FocusNext = -1 'True RestoreOnLostFocus= 0 'False ForeColor = 0 BackColor = 16777215 VWDataSource = "txt1" End Begin VW4Language.XFooter XFooter1 Height = 2040 Left = 0 TabIndex = 0 Top = 6960 Width = 12000 _ExtentX = 21167 _ExtentY = 3598 End Begin VW4IndexLib.VWIndex idxUeberschrift Height = 495 Index = 1 Left = 6000 Top = 0 Width = 6000 _Version = 65536 _ExtentX = 10583 _ExtentY = 873 _StockProps = 96 BorderStyle = 1 FontClass = "Arial12Bold" TextOff = "@FVWIndex.idxCaption" UseTextProps = -1 'True BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 1 ShadowDepth = 3 ShadowColor2 = 14737632 Range = 32767 End Begin VW4IndexLib.VWIndex idxUeberschrift Height = 495 Index = 0 Left = 0 Top = 0 Width = 6000 _Version = 65536 _ExtentX = 10583 _ExtentY = 873 _StockProps = 96 BorderStyle = 1 FontClass = "Arial12Bold" TextOff = "@Global.ProgramName" UseTextProps = -1 'True BackColorOff = 16711680 ForeColorOff = 16777215 ShadowStyle = 1 ShadowDepth = 3 ShadowColor2 = 14737632 Range = 32767 End Begin VW4VarInLib.VWVarIn vinWordHex Height = 495 Left = 6300 TabIndex = 3 Top = 2040 Width = 1575 _Version = 65536 _ExtentX = 2778 _ExtentY = 873 _StockProps = 96 FontClass = "Arial12Bold" WriteOnReturn = -1 'True FocusNext = -1 'True RestoreOnLostFocus= 0 'False ForeColor = 0 BackColor = 16777215 Format = 2 VWDataSource = "w1" End Begin VW4VarOutLib.VWVarOut vouWordHex Height = 495 Left = 6300 Top = 2640 Width = 1575 _Version = 65536 _ExtentX = 2778 _ExtentY = 873 _StockProps = 96 FontClass = "Arial12Bold" ForeColor = 0 BackColor = 12632256 Format = 2 VWDataSource = "w1" End Begin VW4VarInLib.VWVarIn vinWordBin Height = 495 Left = 8040 TabIndex = 4 Top = 2040 Width = 2835 _Version = 65536 _ExtentX = 5001 _ExtentY = 873 _StockProps = 96 FontClass = "Arial12Bold" WriteOnReturn = -1 'True FocusNext = -1 'True RestoreOnLostFocus= 0 'False ForeColor = 0 BackColor = 16777215 Format = 1 VWDataSource = "w1" End Begin VW4VarOutLib.VWVarOut vouWordBin Height = 495 Left = 8040 Top = 2640 Width = 2835 _Version = 65536 _ExtentX = 5001 _ExtentY = 873 _StockProps = 96 FontClass = "Arial12Bold" ForeColor = 0 BackColor = 12632256 Format = 1 VWDataSource = "w1" End Begin VW4IndexLib.VWIndex idxLabel Height = 555 Index = 0 Left = 165 Top = 720 Width = 11655 _Version = 65536 _ExtentX = 20558 _ExtentY = 979 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "idxLabel0" IndexGroup = "FVWTouchScreen" BackColorOff = 12632256 ForeColorOff = 0 End Begin VW4IndexLib.VWIndex idxLabel Height = 495 Index = 1 Left = 240 Top = 2040 Width = 4155 _Version = 65536 _ExtentX = 7329 _ExtentY = 873 _StockProps = 96 FontClass = "Arial10" TextOff = "idxLabel1" IndexGroup = "FVWTouchScreen" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 Alignment = 4 End Begin VW4IndexLib.VWIndex idxLabel Height = 495 Index = 2 Left = 240 Top = 3540 Width = 4155 _Version = 65536 _ExtentX = 7329 _ExtentY = 873 _StockProps = 96 FontClass = "Arial10" TextOff = "idxLabel2" IndexGroup = "FVWTouchScreen" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 Alignment = 4 End Begin VW4IndexLib.VWIndex idxLabel Height = 495 Index = 3 Left = 240 Top = 4980 Width = 4155 _Version = 65536 _ExtentX = 7329 _ExtentY = 873 _StockProps = 96 FontClass = "Arial10" TextOff = "idxLabel3" IndexGroup = "FVWTouchScreen" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 Alignment = 4 End End Attribute VB_Name = "FVWTouchScreen" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub VWLanguage1_LanguageChange(ByVal Language As Long) 'Font für die Visual Basic TextBox setzen, 'damit die Sprachumschaltung funktioniert. Set txt.Font = VWLanguage1.GetFont("Arial12Bold") End Sub