home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / classlib / desaware / dwstime.cls < prev    next >
Encoding:
Text File  |  1996-03-29  |  2.8 KB  |  110 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "dwSystemTime"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Option Explicit
  9.  
  10. ' Class dwSystemTime
  11. ' Desaware API Toolkit object library
  12. ' Copyright (c) 1996 by Desaware Inc.
  13. ' All rights reserved
  14.  
  15. #If Win32 Then
  16. Private iSysTime As SYSTEMTIME
  17.  
  18. Public Sub SetSysTime(wYear As Integer, wMonth As Integer, wDayOfWeek As Integer, wDay As Integer, wHour As Integer, wMinute As Integer, wSecond As Integer, wMilliseconds As Integer)
  19. Attribute SetSysTime.VB_HelpID = 2343
  20.     iSysTime.wYear = wYear
  21.     iSysTime.wMonth = wMonth
  22.     iSysTime.wDayOfWeek = wDayOfWeek
  23.     iSysTime.wDay = wDay
  24.     iSysTime.wHour = wHour
  25.     iSysTime.wMinute = wMinute
  26.     iSysTime.wSecond = wSecond
  27.     iSysTime.wMilliseconds = wMilliseconds
  28. End Sub
  29.  
  30. Public Sub CopyToSYSTEMTIME(ByVal lpSysTime As Long)
  31.     Dim st As SYSTEMTIME
  32.     
  33.     If lpSysTime = 0 Then RaiseError 5, "dwSystemTime"
  34.     agCopyData iSysTime, ByVal lpSysTime, Len(st)
  35. End Sub
  36.  
  37. Public Sub CopyFromSYSTEMTIME(ByVal lpSysTime As Long)
  38.     Dim st As SYSTEMTIME
  39.     
  40.     If lpSysTime = 0 Then RaiseError 5, "dwSystemTime"
  41.     agCopyData ByVal lpSysTime, iSysTime, Len(st)
  42. End Sub
  43.  
  44. Public Property Get wYear() As Integer
  45.     wYear = iSysTime.wYear
  46. End Property
  47.  
  48. Public Property Let wYear(vNewValue As Integer)
  49.     iSysTime.wYear = vNewValue
  50. End Property
  51.  
  52. Public Property Get wMonth() As Integer
  53.     wMonth = iSysTime.wMonth
  54. End Property
  55.  
  56. Public Property Let wMonth(vNewValue As Integer)
  57.     iSysTime.wMonth = vNewValue
  58. End Property
  59.  
  60. Public Property Get wDayOfWeek() As Integer
  61.     wDayOfWeek = iSysTime.wDayOfWeek
  62. End Property
  63.  
  64. Public Property Let wDayOfWeek(vNewValue As Integer)
  65.     iSysTime.wDayOfWeek = vNewValue
  66. End Property
  67.  
  68. Public Property Get wDay() As Integer
  69.     wDay = iSysTime.wDay
  70. End Property
  71.  
  72. Public Property Let wDay(vNewValue As Integer)
  73.     iSysTime.wDay = vNewValue
  74. End Property
  75.  
  76. Public Property Get wHour() As Integer
  77.     wHour = iSysTime.wHour
  78. End Property
  79.  
  80. Public Property Let wHour(vNewValue As Integer)
  81.     iSysTime.wHour = vNewValue
  82. End Property
  83.  
  84. Public Property Get wMinute() As Integer
  85.     wMinute = iSysTime.wMinute
  86. End Property
  87.  
  88. Public Property Let wMinute(vNewValue As Integer)
  89.     iSysTime.wMinute = vNewValue
  90. End Property
  91.  
  92. Public Property Get wSecond() As Integer
  93.     wSecond = iSysTime.wSecond
  94. End Property
  95.  
  96. Public Property Let wSecond(vNewValue As Integer)
  97.     iSysTime.wSecond = vNewValue
  98. End Property
  99.  
  100. Public Property Get wMilliseconds() As Integer
  101.     wMilliseconds = iSysTime.wMilliseconds
  102. End Property
  103.  
  104. Public Property Let wMilliseconds(vNewValue As Integer)
  105.     iSysTime.wMilliseconds = vNewValue
  106. End Property
  107.  
  108.  
  109. #End If ' this class only exists in win32
  110.