[问题]请问怎样循环放一些音乐

ammospr4y

我想放MIDI的音乐

不知道该什么办啊

SNDPLAYSOUND好象不能放MIDI的

听说有DIRECTSOUND和DIRECTMUSIC的

但是我不会用

还恳请大虾们指教~~~~~

[em10] [em10] [em17] [em24] [em23]

游戏之家

我用一个检测MIDI是否到结尾的API函数来做的：
先建一个TIMER和一个按钮控件，2.MID，3.MID是音乐名字。
这个程序可以无限首循环MIDI音乐：
如果加上MUSP=3是第3首，MUSP=4是第4首
If MUSP > 3 Then MUSP = 1  或  If MUSP > 4 Then MUSP = 1
再不明白到我网站。


' VB6循环播放多首MIDI音乐程序   2005.9.19      游戏之家作品
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 Res As Integer, Ret As String * 1024

Private Declare Function mciGetDeviceID Lib "winmm.dll" Alias "mciGetDeviceIDA" (ByVal lpstrName As String) As Long
Private Declare Function mciGetCreatorTask Lib "winmm.dll" (ByVal wDeviceID As Long) As Long

Dim ID As Long
Dim SOUNDNAME As String
Dim MUSKEY, MUSP As Integer

Private Sub Form_Load()
Timer1.Enabled = False
MUSKEY = 1: MUSP = 1
SOUNDNAME = "2.MID"
If MUSKEY = 1 Then Res = mciSendString("play " & SOUNDNAME, Ret, 1024, 0): Timer1.Enabled = True: MUSKEY = 0
End Sub

Private Sub Command2_Click()
'停止
Timer1.Enabled = False
Res = mciSendString("close all", Ret, 1024, 0)
End Sub

Private Sub Timer1_Timer()
If MUSP = 1 Then SOUNDNAME = "2.MID"
If MUSP = 2 Then SOUNDNAME = "3.MID"
If MUSKEY = 1 Then Res = mciSendString("play " & SOUNDNAME, Ret, 1024, 0): Timer1.Enabled = True: MUSKEY = 0
ID = mciGetDeviceID(SOUNDNAME)
If mciGetCreatorTask(ID) = 0 Then MUSP = MUSP + 1: MUSKEY = 1
If MUSP > 2 Then MUSP = 1
End Sub

ammospr4y

谢谢这位大虾

你的网站是多少？

游戏之家

http://www.vbgamediy.com

liiir1985

用dmusic可以实现的

ammospr4y

dmusic？

API吗？

有例子吗？谢谢！

系统崩溃

最简单的是用AudioVedioPlayBack，属于Managed DirectX 9.0，只有几个函数

游戏之家

好心你们发例子了.

liiir1985

游戏之家把昨天的帖子改了？
昨天晚上断网了，没把例子贴上来，下面是例子～
vb.net里Dmusic和Dshow都被封装到了audiovideoplayback类里面了，用法如下：

Private WithEvents aa As Microsoft.DirectX.AudioVideoPlayback.Audio = New Audio("bk1.mid")


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        aa.Play()
    End Sub
    Private Sub Ending(ByVal sender As Object, ByVal e As System.EventArgs) Handles aa.Ending
        If Not (aa Is Nothing) Then
            aa.Stop()
            aa.Play()
        End If
    End Sub

vb6我不知道怎么调用dx9，dx7的dmusic接口跟9不一样，所以我就没写vb6的例子了

游戏之家

改贴是因为有错别字， 我把MID写成MIDI了，别的没动。