classplaymusic.vb

来自「师生情况管理系统」· VB 代码 · 共 23 行

'************************************************************
'Copyright(c) 2007 长沙南方职业学院 信息系 软件2-061班
'All rights reserved
'
'程序名称：学校基本信息管理系统
'
'作者(原)：易湘陵
'完成日期：2007-11-17
'作者(改)：
'修改日期：
'************************************************************
Public Class ClassPlayMusic

    '调用动态链接库winmm.dll播放声音
    Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer

    Public Sub PlayMusic()
        '登录成功播放声音
        PlaySound(Application.StartupPath & "\Sound\login.wav", Nothing, Nothing)
    End Sub

End Class