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.
206 lines
6.7 KiB
Plaintext
206 lines
6.7 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 frmPicBox
|
|
Caption = "VW-PicBox"
|
|
ClientHeight = 9630
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 15240
|
|
ClipControls = 0 'False
|
|
LinkTopic = "Form6"
|
|
MDIChild = -1 'True
|
|
ScaleHeight = 9630
|
|
ScaleWidth = 15240
|
|
WindowState = 2 'Maximiert
|
|
Begin VB.Timer Timer2
|
|
Interval = 500
|
|
Left = 1065
|
|
Top = 225
|
|
End
|
|
Begin VB.Timer Timer1
|
|
Interval = 150
|
|
Left = 345
|
|
Top = 240
|
|
End
|
|
Begin VB.Frame Frame1
|
|
BeginProperty Font
|
|
Name = "Tahoma"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = -1 'True
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 8760
|
|
Left = 180
|
|
TabIndex = 1
|
|
Top = 675
|
|
Width = 14865
|
|
Begin VisiWinStudioLib.VWSPicBox VWSPicBox3
|
|
Height = 4740
|
|
Left = 8085
|
|
TabIndex = 3
|
|
Top = 2160
|
|
Width = 5010
|
|
_cx = 8837
|
|
_cy = 8361
|
|
Enabled = -1 'True
|
|
BackColor = -2147483633
|
|
Picture1 = "frmPicBox.frx":0000
|
|
Picture2 = "frmPicBox.frx":0DFC
|
|
Picture3 = "frmPicBox.frx":177D
|
|
Picture4 = "frmPicBox.frx":2114
|
|
Picture5 = "frmPicBox.frx":2A9C
|
|
Picture6 = "frmPicBox.frx":346D
|
|
Picture7 = "frmPicBox.frx":3EB1
|
|
Picture8 = "frmPicBox.frx":4805
|
|
PictureOff = "frmPicBox.frx":50C3
|
|
BackPicture = "frmPicBox.frx":50DF
|
|
Mode = 0
|
|
Range = 8
|
|
State = 0
|
|
Offset = 0
|
|
BitNumber = 0
|
|
ShadowStyle = 4
|
|
ShadowDepth = 2
|
|
ShadowColor1 = -2147483632
|
|
ShadowColor2 = -2147483634
|
|
AutoSize = -1 'True
|
|
OpaqueContent = 0 'False
|
|
ShowBackPicture = -1 'True
|
|
TransparentColorOn= 0 'False
|
|
TransparentColor= 16777215
|
|
VWItem = "__UNLINKED_I4"
|
|
Blink = 0
|
|
RecipeMember = 0 'False
|
|
End
|
|
Begin VisiWinStudioLib.VWSPicBox VWSPicBox2
|
|
Height = 4740
|
|
Left = 1470
|
|
TabIndex = 2
|
|
Top = 2160
|
|
Width = 5010
|
|
_cx = 8837
|
|
_cy = 8361
|
|
Enabled = -1 'True
|
|
BackColor = -2147483633
|
|
Picture1 = "frmPicBox.frx":5B7F
|
|
Picture2 = "frmPicBox.frx":6647
|
|
Picture3 = "frmPicBox.frx":710F
|
|
Picture4 = "frmPicBox.frx":7BD7
|
|
Picture5 = "frmPicBox.frx":869F
|
|
Picture6 = "frmPicBox.frx":9167
|
|
Picture7 = "frmPicBox.frx":9C2F
|
|
Picture8 = "frmPicBox.frx":A6F7
|
|
PictureOff = "frmPicBox.frx":B1BF
|
|
BackPicture = "frmPicBox.frx":BC87
|
|
Mode = 0
|
|
Range = 8
|
|
State = 0
|
|
Offset = 0
|
|
BitNumber = 0
|
|
ShadowStyle = 4
|
|
ShadowDepth = 2
|
|
ShadowColor1 = -2147483632
|
|
ShadowColor2 = -2147483634
|
|
AutoSize = 0 'False
|
|
OpaqueContent = -1 'True
|
|
ShowBackPicture = 0 'False
|
|
TransparentColorOn= 0 'False
|
|
TransparentColor= 16777215
|
|
VWItem = "__UNLINKED_I4"
|
|
Blink = 0
|
|
RecipeMember = 0 'False
|
|
End
|
|
Begin VWSLanguageLib.VWSIndex VWSIndex24
|
|
Height = 255
|
|
Left = 120
|
|
Top = -15
|
|
Width = 3000
|
|
_cx = 5292
|
|
_cy = 450
|
|
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 = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = -1 'True
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
BackColorOff = -2147483633
|
|
BackColorOn = -2147483643
|
|
ForeColorOff = -2147483640
|
|
ForeColorOn = -2147483640
|
|
VWItem = ""
|
|
Blink = 0
|
|
BitNumber = 0
|
|
Mode = -1
|
|
Offset = 0
|
|
Range = 1
|
|
IndexGroup = "PicBox"
|
|
IndexPrefix = ""
|
|
FontClass = ""
|
|
OffsetText = 0
|
|
TextOn = ""
|
|
TextOff = "Bilder"
|
|
End
|
|
End
|
|
Begin VB.Label Label11
|
|
Alignment = 2 'Zentriert
|
|
BackColor = &H00E3E3E3&
|
|
Caption = "VWSPicBox-Control"
|
|
BeginProperty Font
|
|
Name = "Tahoma"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
ForeColor = &H00DE8800&
|
|
Height = 315
|
|
Left = 60
|
|
TabIndex = 0
|
|
Top = 90
|
|
Width = 15195
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmPicBox"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Private Sub Timer1_Timer()
|
|
|
|
If VWSPicBox3.State = 8 Then
|
|
VWSPicBox3.State = 1
|
|
Else
|
|
VWSPicBox3.State = VWSPicBox3.State + 1
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Timer2_Timer()
|
|
|
|
If VWSPicBox2.State = 8 Then
|
|
VWSPicBox2.State = 0
|
|
Else
|
|
VWSPicBox2.State = VWSPicBox2.State + 1
|
|
End If
|
|
|
|
End Sub
|