math1.cls

这是一个整点报时的小程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "math1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'Download by http://www.codefans.net
'获取系统路径的API函数
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

' 使 用 LoadResData播 放 声 音 文 件
     '**************************************************
     Private Declare Function sndPlaySound Lib "winmm" Alias _
     "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) _
     As Long
     
     '**************************************************
     ' wFlags 参 数
     '**************************************************
     
      Const SND_SYNC = &H0 '播 放WAV 文 件， 播 放 完 毕 后 将 控 制 转 移 回 你 的 应 用 程 序 中。
      Const SND_NODEFAULT = &H2 ' 不 要 播 放 缺 省 的WAV 文 件， 以 免 发 生 某 些 意 外 的 错 误。
      Const SND_MEMORY = &H4 ' 播 放 以 前 已 经 加 载 到 内 存 中 的WAV 文 件。
'--------------------------------------------------------------------------------------

     '**************************************************
     ' 播 放 资 源 文 件 中 的 声 音
     '**************************************************
     
Public Sub PlayWaveRes(vntResourceID As Variant, Optional vntFlags)
     '----------------------------------------------------------
     ' 注 意 : 如 果 使 用 SND_ASYNC， 你 必 须 将 下 面 的
     ' bytSound()数 组 放 在 模 块 级 变 量 定 义 的 地 方
     ' 或 定 义 为 静 态 变 量 ， 否 则 可 能 导 致 GPF
     '-------------------------------------------------
      Dim bytSound() As Byte
      bytSound = LoadResData(vntResourceID, "WAVE")
      If IsMissing(vntFlags) Then
          vntFlags = SND_NODEFAULT Or SND_SYNC Or SND_MEMORY
      End If
      If (vntFlags And SND_MEMORY) = 0 Then
          vntFlags = vntFlags Or SND_MEMORY
      End If
     sndPlaySound bytSound(0), vntFlags
End Sub

'从资源文件释放exe文件
Public Sub ResShiFang(id As Integer, vDataFileName As String)
    Dim DataFile() As Byte
    DataFile = LoadResData(id, "EXE") '从资源文件读入文件内容
    Open vDataFileName For Binary As #1  '建立数据文件，以二进制方式打开
    Put #1, , DataFile
    Close #1    '写完后关闭文件
End Sub

'获取系统路径
Public Function GetWinSys() As String
    Dim Sysdir As String * 80, Length As Long
    Length = GetSystemDirectory(Sysdir, Len(Sysdir))
    GetWinSys = Left(Sysdir, Length)
End Function