hubaoshun
/
BECKHOFF
0
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
Shanghai
NingBo
Wuhai
main
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'Shanghai'
${ noResults }
BECKHOFF/四车间/M779-10号车（已改）/BACK-C/VisiWin/VisiWinStudio/Samples/VW4DateTime/FVBwrong.frm

662 lines
20 KiB
Plaintext
Raw Permalink Blame History

VERSION 5.00
Object = "{F0EB2110-3CC3-11D0-8E54-006008104BEC}#1.0#0"; "VW4Index.ocx"
Begin VB.Form FVBwrong
BackColor = &H00C0C0C0&
BorderStyle = 0 'Kein
Caption = "VW4DateTime"
ClientHeight = 9000
ClientLeft = 0
ClientTop = 0
ClientWidth = 12000
ControlBox = 0 'False
Icon = "FVBwrong.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 9000
ScaleWidth = 12000
StartUpPosition = 2 'Bildschirmmitte
Begin VB.Timer tmrDatum
Interval = 500
Left = 6060
Top = 660
End
Begin VW4IndexLib.VWIndex idxCaption
Height = 495
Index = 1
Left = 6000
Top = 0
Width = 6000
_Version = 65536
_ExtentX = 10583
_ExtentY = 873
_StockProps = 96
BorderStyle = 1
FontClass = "Arial12Bold"
TextOff = "idxCaptionWrong"
IndexGroup = "FVB"
UseTextProps = -1 'True
BackColorOff = 12632256
ShadowStyle = 1
ShadowDepth = 3
ShadowColor2 = 14737632
Range = 32767
End
Begin VW4IndexLib.VWIndex idxCaption
Height = 495
Index = 0
Left = 0
Top = 0
Width = 6000
_Version = 65536
_ExtentX = 10583
_ExtentY = 873
_StockProps = 96
BorderStyle = 1
FontClass = "Arial12Bold"
TextOff = "ProgramName"
IndexGroup = "Global"
UseTextProps = -1 'True
BackColorOff = 16711680
ForeColorOff = 16777215
ShadowStyle = 1
ShadowDepth = 3
ShadowColor2 = 14737632
Range = 32767
End
Begin VW4IndexLib.VWIndex idxFunction
Height = 375
Index = 2
Left = 5730
Top = 2730
Width = 975
_Version = 65536
_ExtentX = 1720
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10"
TextOff = "Right$(...)"
BackColorOff = 12632256
ForeColorOff = 4210752
ShadowStyle = 0
Alignment = 1
End
Begin VW4IndexLib.VWIndex idxYear
Height = 375
Left = 4830
Top = 2730
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "1999"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxFunction
Height = 375
Index = 0
Left = 7710
Top = 1290
Width = 1335
_Version = 65536
_ExtentX = 2355
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10"
TextOff = "idxFunction"
IndexGroup = "FVB"
BackColorOff = 12632256
ForeColorOff = 4210752
ShadowStyle = 0
Alignment = 1
End
Begin VW4IndexLib.VWIndex idxResult
Height = 375
Left = 4830
Top = 1290
Width = 2835
_Version = 65536
_ExtentX = 5001
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "idxResult"
IndexGroup = "FVB"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxMeaning
Height = 375
Index = 2
Left = 3030
Top = 2730
Width = 1755
_Version = 65536
_ExtentX = 3096
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10Bold"
TextOff = "idxYear"
IndexGroup = "FVB"
BackColorOff = 12632256
ForeColorOff = 0
ShadowStyle = 0
Alignment = 4
End
Begin VW4IndexLib.VWIndex idxMeaning
Height = 375
Index = 0
Left = 3030
Top = 1290
Width = 1755
_Version = 65536
_ExtentX = 3096
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10Bold"
TextOff = "idxMeaning"
IndexGroup = "FVB"
BackColorOff = 12632256
ForeColorOff = 0
ShadowStyle = 0
Alignment = 4
End
Begin VW4IndexLib.VWIndex idxFunction
Height = 375
Index = 5
Left = 5730
Top = 4620
Width = 975
_Version = 65536
_ExtentX = 1720
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10"
TextOff = "Right$(...)"
BackColorOff = 12632256
ForeColorOff = 4210752
ShadowStyle = 0
Alignment = 1
End
Begin VW4IndexLib.VWIndex idxSecond
Height = 375
Left = 4830
Top = 4620
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "13"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxMeaning
Height = 375
Index = 5
Left = 3390
Top = 4620
Width = 1395
_Version = 65536
_ExtentX = 2461
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10Bold"
TextOff = "idxSecond"
IndexGroup = "FVB"
BackColorOff = 12632256
ForeColorOff = 0
ShadowStyle = 0
Alignment = 4
End
Begin VW4IndexLib.VWIndex idxFunction
Height = 375
Index = 4
Left = 5730
Top = 3990
Width = 975
_Version = 65536
_ExtentX = 1720
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10"
TextOff = "Mid$(...)"
BackColorOff = 12632256
ForeColorOff = 4210752
ShadowStyle = 0
Alignment = 1
End
Begin VW4IndexLib.VWIndex idxMinute
Height = 375
Left = 4830
Top = 3990
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "12"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxMeaning
Height = 375
Index = 4
Left = 3090
Top = 3990
Width = 1695
_Version = 65536
_ExtentX = 2990
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10Bold"
TextOff = "idxMinute"
IndexGroup = "FVB"
BackColorOff = 12632256
ForeColorOff = 0
ShadowStyle = 0
Alignment = 4
End
Begin VW4IndexLib.VWIndex idxFunction
Height = 375
Index = 1
Left = 7710
Top = 2100
Width = 975
_Version = 65536
_ExtentX = 1720
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10"
TextOff = "Now"
BackColorOff = 12632256
ForeColorOff = 4210752
ShadowStyle = 0
Alignment = 1
End
Begin VW4IndexLib.VWIndex idxDateTime
Height = 375
Left = 4830
Top = 2100
Width = 2835
_Version = 65536
_ExtentX = 5001
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "1999"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxMeaning
Height = 375
Index = 1
Left = 3030
Top = 2100
Width = 1755
_Version = 65536
_ExtentX = 3096
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10Bold"
TextOff = "idxDateAndTime"
IndexGroup = "FVB"
BackColorOff = 12632256
ForeColorOff = 0
ShadowStyle = 0
Alignment = 4
End
Begin VW4IndexLib.VWIndex idxFunction
Height = 375
Index = 3
Left = 5730
Top = 3360
Width = 975
_Version = 65536
_ExtentX = 1720
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10"
TextOff = "Left$(...)"
BackColorOff = 12632256
ForeColorOff = 4210752
ShadowStyle = 0
Alignment = 1
End
Begin VW4IndexLib.VWIndex idxHour
Height = 375
Left = 4830
Top = 3360
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "11"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxMeaning
Height = 375
Index = 3
Left = 3030
Top = 3360
Width = 1755
_Version = 65536
_ExtentX = 3096
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10Bold"
TextOff = "idxHour"
IndexGroup = "FVB"
BackColorOff = 12632256
ForeColorOff = 0
ShadowStyle = 0
Alignment = 4
End
Begin VW4IndexLib.VWIndex idxWeekday
Height = 375
Index = 0
Left = 4830
Top = 5250
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "08"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxFunction
Height = 375
Index = 6
Left = 7530
Top = 5250
Width = 1335
_Version = 65536
_ExtentX = 2355
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10"
TextOff = "Weekday(Now)"
BackColorOff = 12632256
ForeColorOff = 4210752
ShadowStyle = 0
Alignment = 1
End
Begin VW4IndexLib.VWIndex idxFunction
Height = 375
Index = 7
Left = 5730
Top = 5880
Width = 1635
_Version = 65536
_ExtentX = 2884
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10"
TextOff = "WeekdayName(...)"
BackColorOff = 12632256
ForeColorOff = 4210752
ShadowStyle = 0
Alignment = 1
End
Begin VW4IndexLib.VWIndex idxWeekdayName
Height = 375
Index = 0
Left = 4830
Top = 5880
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "Do"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxFunction
Height = 375
Index = 8
Left = 6450
Top = 6510
Width = 1635
_Version = 65536
_ExtentX = 2884
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10"
TextOff = "WeekdayName(...)"
BackColorOff = 12632256
ForeColorOff = 4210752
ShadowStyle = 0
Alignment = 1
End
Begin VW4IndexLib.VWIndex idxWeekdayName
Height = 375
Index = 1
Left = 4830
Top = 6510
Width = 1575
_Version = 65536
_ExtentX = 2778
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "Donnerstag"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxMeaning
Height = 375
Index = 6
Left = 3030
Top = 5250
Width = 1755
_Version = 65536
_ExtentX = 3096
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10Bold"
TextOff = "idxWeekday"
IndexGroup = "FVB"
BackColorOff = 12632256
ForeColorOff = 0
ShadowStyle = 0
Alignment = 4
End
Begin VW4IndexLib.VWIndex idxWeekday
Height = 375
Index = 1
Left = 5730
Top = 5250
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "08"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxFunction
Height = 375
Index = 9
Left = 9330
Top = 7140
Width = 1155
_Version = 65536
_ExtentX = 2037
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10"
TextOff = "DatePart(...)"
BackColorOff = 12632256
ForeColorOff = 4210752
ShadowStyle = 0
Alignment = 1
End
Begin VW4IndexLib.VWIndex idxWeekNumber
Height = 375
Index = 0
Left = 4830
Top = 7140
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "44"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxMeaning
Height = 375
Index = 7
Left = 3030
Top = 7140
Width = 1755
_Version = 65536
_ExtentX = 3096
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10Bold"
TextOff = "idxWeekNumber"
IndexGroup = "FVB"
BackColorOff = 12632256
ForeColorOff = 0
ShadowStyle = 0
Alignment = 4
End
Begin VW4IndexLib.VWIndex idxWeekNumber
Height = 375
Index = 1
Left = 5730
Top = 7140
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "44"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxWeekNumber
Height = 375
Index = 2
Left = 6630
Top = 7140
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "44"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxWeekNumber
Height = 375
Index = 3
Left = 7530
Top = 7140
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "44"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxWeekNumber
Height = 375
Index = 4
Left = 8430
Top = 7140
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "44"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4IndexLib.VWIndex idxWeekday
Height = 375
Index = 2
Left = 6630
Top = 5250
Width = 855
_Version = 65536
_ExtentX = 1508
_ExtentY = 661
_StockProps = 96
FontClass = "Arial12Bold"
TextOff = "08"
BackColorOff = 12632256
ForeColorOff = 12582912
End
Begin VW4DateTime.XFooter XFooter1
Height = 840
Left = 0
TabIndex = 0
Top = 8160
Width = 12000
_ExtentX = 21167
_ExtentY = 1482
End
End
Attribute VB_Name = "FVBwrong"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub tmrDatum_Timer()
Dim s As String, nPos1 As Integer, nPos2 As Integer
On Error Resume Next
idxDateTime.TextOff = Now
idxYear.TextOff = Right$(Date, 4)
idxHour.TextOff = Left$(Time, 2)
s = Now
nPos1 = InStr(s, ":")
nPos2 = InStr(nPos1 + 1, s, ":")
idxMinute.TextOff = Mid$(s, nPos1 + 1, nPos2 - nPos1 - 1)
idxSecond.TextOff = Right$(Time, 2)
'Bitte beachten Sie die Zusatzparameter 'vbUseSystemDayOfWeek' !!!
'Die Vorbelegungen der Funktionen Weekday und WeekdayName sind unterschiedlich !?!?
idxWeekDay(0).TextOff = Weekday(Now, vbMonday)
idxWeekDay(1).TextOff = Weekday(Now)
idxWeekDay(2).TextOff = Weekday(Now, vbUseSystemDayOfWeek)
idxWeekdayName(0).TextOff = WeekdayName(Weekday(Now), True)
idxWeekdayName(1).TextOff = WeekdayName(Weekday(Now))
idxWeekNumber(0).TextOff = DatePart("ww", Now, vbMonday, vbFirstFourDays)
idxWeekNumber(1).TextOff = DatePart("ww", Now)
idxWeekNumber(2).TextOff = DatePart("ww", Now, vbUseSystemDayOfWeek, vbFirstFourDays)
idxWeekNumber(3).TextOff = DatePart("ww", Now, vbUseSystemDayOfWeek, vbUseSystem)
idxWeekNumber(4).TextOff = DatePart("ww", Now, vbUseSystemDayOfWeek, vbFirstFullWeek)
End Sub
Reference in New Issue View Git Blame Copy Permalink