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