📄 modsound.bas
字号:
Attribute VB_Name = "modSound"
'--------------------------------------
'源程序的版权属原作者所有!
'所有源程序经过玫瑰雪儿检测,并保证通过。
'网名:玫瑰雪儿
'站点:rosesnow.onchina.net
'E_mail:zhaosihua@263.net
'欢迎访问我的网站,并提出宝贵意见或建议
'--------------------------------------
Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_LOOP = &H8
Private Const SND_NOSTOP = &H10
Public Sub PlaySound(strSound As String)
Dim wFlags%
wFlags% = SND_ASYNC Or SND_NODEFAULT
sndPlaySound strSound, wFlags%
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -