标签：orm blog play next ror .dll ring 引用 app
公共Modules定义：
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Public Function EffectSound(Effect As String) As Long On Error Resume Next Dim sEffect As String sEffect = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & Effect PlaySound sEffect, 0, 0 End Function
Forms中引用：
Call EffectSound("OO.wav")
标签：orm blog play next ror .dll ring 引用 app
原文地址：http://www.cnblogs.com/blossomwei/p/6922949.html
