vb 播放音乐的问题？急啊！

2003-05-11 01:12:34 119 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB.NET中声音的播放 VB.NET中声音的播放By Montaque 由VB6升级为.NET后，有些人不清楚声音的处理，比如程序出错的时候，自定义一个声音播放，或者程序的背景音乐、包括游戏音乐等等。下面介绍几种在VB.NET中计较简单可以实现的方案： 1． Beep最简单的一种方法，通过计算机的扬声器发出声响，声响的音高与持续时间取决于硬件和系统软件，从而随计算机不同而不同。Be 阅读详情

R% = mciSendString&("OPEN C:\multi_files\vb\sm.wav TYPE waveaudio ALIAS NN", 0&, 0, 0)
R% = mciSendString&("PLAY NN FROM 0", 0&, 0, 0)
R% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)

我这个程序，是给别人做的演示程序，怎样做才能使我的音乐在不同的机器上都能播放呢？因为到了不同的机器上音乐文件的路径就变了，我试了试app.path + "\sm.wav" 是不行的？
请教各位高手！

...全文

VB利用API进行媒体播放媒体播放(SmMedia) Option ExplicitDim s As String, ShortPathName As StringPrivate Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPat 阅读详情

kingvictor

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

SmileSkyNet 2003-05-11

打赏
举报

app.path不是你的声音文件的目录，而是exe文件的目录，如果你的声音文件不在同一目录下用app.path当然是不行的了

csdngoodnight 2003-05-11

打赏
举报

其实就是相对路径
Dim str1 As String
str1 = App.Path
If Right(str1, 1) <> "\" Then str1 = str1 + "\"

str1 & "\sm.wav" '就可以了

'这样，无论怎么用，只要文件sm.wav在当前文件夹里就行了。

lihonggen0 2003-05-11

打赏
举报

R% = mciSendString&("OPEN " + app.path + "\sm.wav" + " TYPE waveaudio ALIAS NN", 0&, 0, 0)

lihonggen0 2003-05-11

打赏
举报

R% = mciSendString&("OPEN " + app.path + "\sm.wav" + "TYPE waveaudio ALIAS NN", 0&, 0, 0)

lihonggen0 2003-05-11

打赏
举报

看一下这个：

'This project needs a Common Dialog box, named 'CDBox'
' (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
' and select Microsoft Common Dialog control)
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim Alias As String
Private Sub Form_Load()

Const PlayTime = 10
'Set the common dialog box' title
CDBox.DialogTitle = "Choose your midi-file"
'Set the filter
CDBox.Filter = "Midi-files (*.mid)|*.mid"
'Show the 'Open File'-dialog
CDBox.ShowOpen
'Extract an alias from the file
Alias = Left$(CDBox.FileTitle, Len(CDBox.FileTitle) - 4)

'play midi
R% = mciSendString("OPEN " + CDBox.filename + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0)
R% = mciSendString("PLAY " + Alias + " FROM 0", 0&, 0, 0)
R% = mciSendString("CLOSE ANIMATION", 0&, 0, 0)

'play midi for 10 secs
t = Timer
Do: DoEvents: Loop Until Timer > t + PlayTime

'stop midi and close it
R% = mciSendString("OPEN " + CDBox.filename + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0)
R% = mciSendString&("STOP " + Alias, 0&, 0, 0)
R% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
End Sub

cow8063 2003-05-11

打赏
举报

C:\multi_files\vb\把这个用变量代替不就得了

vb 播放音乐的问题？ 急啊！

相关推荐

vb 播放音乐的问题？急啊！