或者用API也可以播放 在模块中输入以下代码 Public Declare Function sndPlaySound Lib "winmm" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long ' flag uitzetten Public Const SND_SYNC = &H0 Public Const SND_ASYNC = &H1 Public Const SND_NODEFAULT = &H2 Public Const SND_MEMORY = &H4 Public Const SND_LOOP = &H8 Public Const SND_NOSTOP = &H10 Public Sub PlaySound(strSound As String) sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT End Sub 在窗体中输入以下代码 Private Sub Form_Load() PlaySound 文件路径 End Sub
楼主开这么多个帖子啊???全抢了。两个问题: 1.C/S还是B/S? 2.文件可以直接访问到吗? 如果可以直接访问就简单了,WMP控件足矣。 或者用API也可以播放 在模块中输入以下代码 Public Declare Function sndPlaySound Lib "winmm" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long ' flag uitzetten Public Const SND_SYNC = &H0 Public Const SND_ASYNC = &H1 Public Const SND_NODEFAULT = &H2 Public Const SND_MEMORY = &H4 Public Const SND_LOOP = &H8 Public Const SND_NOSTOP = &H10 Public Sub PlaySound(strSound As String) sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT End Sub 在窗体中输入以下代码 Private Sub Form_Load() PlaySound 文件路径 End Sub
1.C/S还是B/S?
2.文件可以直接访问到吗? 如果可以直接访问就简单了,WMP控件足矣
在模块中输入以下代码
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long ' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10 Public Sub PlaySound(strSound As String)
sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT
End Sub 在窗体中输入以下代码
Private Sub Form_Load()
PlaySound 文件路径
End Sub
1.C/S还是B/S?
2.文件可以直接访问到吗? 如果可以直接访问就简单了,WMP控件足矣。
或者用API也可以播放
在模块中输入以下代码
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long ' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10 Public Sub PlaySound(strSound As String)
sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT
End Sub 在窗体中输入以下代码
Private Sub Form_Load()
PlaySound 文件路径
End Sub