hubaoshun
/
BECKHOFF
1
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 '42ff224220'
${ noResults }
BECKHOFF/四车间/M779-10号车（已改）/BACK-C/VisiWin/VisiWinStudio/Samples/VW4DateTime/FVWTime.frm

450 lines
14 KiB
Plaintext
Raw Blame History

VERSION 5.00
Object = "{F0EB2110-3CC3-11D0-8E54-006008104BEC}#1.0#0"; "VW4Index.ocx"
Object = "{FFAD8E60-E930-11CF-B26A-006008104BEC}#1.0#0"; "VW4Time.ocx"
Object = "{2A559721-5321-11D0-95E6-006008104BEC}#1.0#0"; "VW4Language.ocx"
Begin VB.Form FVWTime
BorderStyle = 0 'Kein
Caption = "VW4DateTime"
ClientHeight = 9000
ClientLeft = 0
ClientTop = 0
ClientWidth = 12000
ControlBox = 0 'False
Icon = "FVWTime.frx":0000
LinkTopic = "Form1"
ScaleHeight = 9000
ScaleWidth = 12000
StartUpPosition = 2 'Bildschirmmitte
Begin VW4TimeLib.VWTime timNames
Height = 435
Left = 3660
Top = 6420
Visible = 0 'False
Width = 615
_Version = 65536
_ExtentX = 1085
_ExtentY = 767
_StockProps = 96
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TimeEvents = 3
End
Begin VW4LanguageLib.VWLanguage VWLanguage1
Left = 3780
Top = 5940
_Version = 65536
_ExtentX = 794
_ExtentY = 794
_StockProps = 0
End
Begin VW4IndexLib.VWIndex idxMonth
Height = 465
Left = 480
Top = 6600
Width = 2955
_Version = 65536
_ExtentX = 5212
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
BackColorOff = -2147483633
End
Begin VW4TimeLib.VWTime timTest
Height = 645
Left = 3300
Top = 840
Width = 5355
_Version = 65536
_ExtentX = 9446
_ExtentY = 1138
_StockProps = 96
FontClass = "Arial12Bold"
BackColor = -2147483633
TimeEvents = 2
End
Begin VB.ListBox lstTest
BackColor = &H8000000F&
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1740
Left = 3300
TabIndex = 0
Top = 2100
Width = 6465
End
Begin VW4TimeLib.VWTime VWTime1
Height = 465
Index = 0
Left = 6120
Top = 4800
Width = 2595
_Version = 65536
_ExtentX = 4577
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
FormatDate = "%02D.%02O.%02Y"
TimeMode = 1
BackColor = -2147483633
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 = "idxCaption"
IndexGroup = "FVWTime"
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 VW4TimeLib.VWTime VWTime1
Height = 465
Index = 1
Left = 8910
Top = 4800
Width = 2595
_Version = 65536
_ExtentX = 4577
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
FormatDate = "%02O/%02D/%02Y"
TimeMode = 1
BackColor = -2147483633
End
Begin VW4TimeLib.VWTime VWTime1
Height = 465
Index = 2
Left = 6120
Top = 5400
Width = 2595
_Version = 65536
_ExtentX = 4577
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
TimeMode = 1
BackColor = -2147483633
End
Begin VW4TimeLib.VWTime VWTime1
Height = 465
Index = 3
Left = 8910
Top = 5400
Width = 2595
_Version = 65536
_ExtentX = 4577
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
FormatDate = "%02O/%02D/%04C"
TimeMode = 1
BackColor = -2147483633
End
Begin VW4TimeLib.VWTime VWTime1
Height = 465
Index = 4
Left = 6120
Top = 6000
Width = 2595
_Version = 65536
_ExtentX = 4577
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
TimeMode = 3
BackColor = -2147483633
End
Begin VW4TimeLib.VWTime VWTime1
Height = 465
Index = 5
Left = 8910
Top = 6000
Width = 2595
_Version = 65536
_ExtentX = 4577
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
FormatDate = "%02D/%02O/%04C"
FormatTime = "%02H:%02I:%02S %P"
TimeMode = 3
BackColor = -2147483633
End
Begin VW4TimeLib.VWTime VWTime1
Height = 465
Index = 6
Left = 6120
Top = 6600
Width = 2595
_Version = 65536
_ExtentX = 4577
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
FormatDate = "%02D.%02O.%02Y"
TimeMode = 3
BackColor = -2147483633
MultiLine = -1 'True
End
Begin VW4TimeLib.VWTime VWTime1
Height = 465
Index = 7
Left = 8910
Top = 6600
Width = 2595
_Version = 65536
_ExtentX = 4577
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
FormatDate = "%02O/%02D/%02Y"
FormatTime = "%02H:%02I:%02S %P"
TimeMode = 3
BackColor = -2147483633
MultiLine = -1 'True
End
Begin VW4TimeLib.VWTime VWTime1
Height = 465
Index = 8
Left = 6120
Top = 7200
Width = 2595
_Version = 65536
_ExtentX = 4577
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
BackColor = -2147483633
MultiLine = -1 'True
End
Begin VW4TimeLib.VWTime VWTime1
Height = 465
Index = 9
Left = 8910
Top = 7200
Width = 2595
_Version = 65536
_ExtentX = 4577
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
FormatDate = "%02O/%02D/%04C"
FormatTime = "%02H:%02I:%02S %P"
BackColor = -2147483633
MultiLine = -1 'True
End
Begin VW4IndexLib.VWIndex idxLabel
Height = 495
Index = 2
Left = 6660
Top = 4290
Width = 4215
_Version = 65536
_ExtentX = 7435
_ExtentY = 873
_StockProps = 96
FontClass = "Arial10"
TextOff = "idxFixedFormats"
IndexGroup = "FVWTime"
BackColorOff = 12632256
ShadowStyle = 0
End
Begin VW4IndexLib.VWIndex idxLabel
Height = 375
Index = 1
Left = 3450
Top = 1740
Width = 5055
_Version = 65536
_ExtentX = 8916
_ExtentY = 661
_StockProps = 96
FontClass = "Arial10"
TextOff = "idxProtokoll"
IndexGroup = "FVWTime"
BackColorOff = 12632256
ShadowStyle = 0
End
Begin VW4DateTime.XFooter XFooter1
Height = 840
Left = 0
TabIndex = 1
Top = 8160
Width = 12000
_ExtentX = 21167
_ExtentY = 1482
End
Begin VW4IndexLib.VWIndex idxMonthAbbr
Height = 465
Left = 480
Top = 7200
Width = 2955
_Version = 65536
_ExtentX = 5212
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
BackColorOff = -2147483633
End
Begin VW4IndexLib.VWIndex idxWeekDay
Height = 465
Left = 480
Top = 4800
Width = 2955
_Version = 65536
_ExtentX = 5212
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
BackColorOff = -2147483633
End
Begin VW4IndexLib.VWIndex idxWeekDayAbbr
Height = 465
Left = 480
Top = 5400
Width = 2955
_Version = 65536
_ExtentX = 5212
_ExtentY = 820
_StockProps = 96
FontClass = "Arial10Bold"
BackColorOff = -2147483633
End
Begin VW4IndexLib.VWIndex idxLabel
Height = 495
Index = 0
Left = 480
Top = 4290
Width = 2955
_Version = 65536
_ExtentX = 5212
_ExtentY = 873
_StockProps = 96
FontClass = "Arial10"
TextOff = "idxWeekday"
IndexGroup = "FVWTime"
BackColorOff = 12632256
ShadowStyle = 0
End
Begin VW4IndexLib.VWIndex idxLabel
Height = 495
Index = 3
Left = 480
Top = 6120
Width = 2955
_Version = 65536
_ExtentX = 5212
_ExtentY = 873
_StockProps = 96
FontClass = "Arial10"
TextOff = "idxMonth"
IndexGroup = "FVWTime"
BackColorOff = 12632256
ShadowStyle = 0
End
End
Attribute VB_Name = "FVWTime"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub timNames_ChangeDay(ByVal DateNow As Date, ByVal PreviousDay As Date)
ShowWeekday
End Sub
Private Sub timNames_ChangeMonth(ByVal DateNow As Date, ByVal PreviousDay As Date)
ShowMonth
End Sub
Private Sub timTest_ChangeMinute(ByVal TimeNow As Date)
lstTest.AddItem "Minute " & Format$(TimeNow, "dd.mm.yyyy hh:nn:ss")
End Sub
Private Sub timTest_ChangeHour(ByVal TimeNow As Date)
lstTest.AddItem "Hour " & Format$(TimeNow, "dd.mm.yyyy hh:nn:ss")
End Sub
Private Sub timTest_ChangeDay(ByVal DateNow As Date, ByVal PreviousDay As Date)
lstTest.AddItem "Day " & Format$(PreviousDay, "dd.mm.yyyy hh:nn:ss ") & Format$(DateNow, "dd.mm.yyyy hh:nn:ss")
End Sub
Private Sub timTest_ChangeMonth(ByVal DateNow As Date, ByVal PreviousDay As Date)
lstTest.AddItem "Month " & Format$(PreviousDay, "dd.mm.yyyy hh:nn:ss ") & Format$(DateNow, "dd.mm.yyyy hh:nn:ss")
End Sub
Private Sub timTest_ChangeYear(ByVal DateNow As Date, ByVal PreviousDay As Date)
lstTest.AddItem "Year " & Format$(PreviousDay, "dd.mm.yyyy hh:nn:ss ") & Format$(DateNow, "dd.mm.yyyy hh:nn:ss")
End Sub
Private Sub VWLanguage1_LanguageChange(ByVal Language As Long)
ShowWeekday
ShowMonth
End Sub
Private Sub ShowMonth()
idxMonth.TextOff = VWLanguage1.GetSystemText(vwControlText, "VWTime.MonthName." & Month(Now))
idxMonthAbbr.TextOff = VWLanguage1.GetSystemText(vwControlText, "VWTime.MonthNameAbbr." & Month(Now))
End Sub
Private Sub ShowWeekday()
idxWeekDay.TextOff = VWLanguage1.GetSystemText(vwControlText, "VWTime.WeekdayName." & Weekday(Now, vbMonday))
idxWeekDayAbbr.TextOff = VWLanguage1.GetSystemText(vwControlText, "VWTime.WeekdayNameAbbr." & Weekday(Now, vbMonday))
End Sub
Reference in New Issue View Git Blame Copy Permalink