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.

321 lines
9.9 KiB
Plaintext

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