VB做电子报时钟(14)

模拟电子钟 带语音报时功能

(2) 相关API函数

1、 GetLocalTime()

VB声明：Declare Sub GetLocalTime Lib " kernel32 " Alias " GetLocalTime " ( lpSystemTime As SYSTEMTIME )

说明：在lpSystemTime结构中装载本地日期和时间

参数：GetLocalTime函数只有一个参数lpSystemTim，指向SYSTEMTIME结构，用于装载本地时间的结构。

2、SYSTEMTIME结构

定义：

Public Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer

wHour As Integer wMinute As Integer wSecond As Integer

wMilliseconds As Integer

End Type

说明：SYSTEMTIME结构表示一个日期和时间，年、月、日、星期、时、分、秒、毫秒各用一个成员来表示。其中wYear 为Integer型，表示当前的年份；wMonth 为 Integer型，表示当前的月份，从1月到12月分别用1到12来表示； wDayOfWeek 为 Integer型，表示当前的星期，从星期日开始，分别用0到6个数表示； wDay 为 Integer型，表示当前的日期； wHour 为 Integer型，表示当前的时刻； wMinute 为 Integer型，表示当前的分钟； wSecond 为 Integer型，表示当前的秒； wMilliseconds 为 Integer型，表示当前的毫秒。

3、mciExecute ()

vb声明: Public Declare Function mciExecute Lib " winmm.dll " Alias " mciExecute " ( ByVal lpstrCommand As String ) As Long

说明: mciExecute ( )函数用来传送一个命令字符串给MCI，以实现各种播放功能。

它的返回值为Long型值，如果返回值为0，表示调用失败，如果返回值不为0，表示调用成功。MciExecute ( )函数的参数只有一个lpstrCommand，为String型，表示MCI的命