---frmMain
‘这些都不用注释吧，一看就明白。

Private Sub cmdBrowse_Click(Index As Integer) ‘控件数组的妙用，绝吧！:-)
With TheComDlg
    If Index < 2 Then
        .DialogTitle = "打开 WAVE 文件"
        .ShowOpen
    Else
        .DialogTitle = "选择要保存输出的 WAVE 文件名"
        .ShowSave
    End If
    If .FileName <> "" Then
        txtWaveFile(Index).Text = .FileName
        .FileName = ""
    End If
End With
End Sub

Private Sub cmdExit_Click()
Unload frmMain
End Sub

Private Sub cmdMix_Click()
If txtWaveFile(0).Text = "" Then
    MsgBox "请选择第一个要混合的 WAVE 音频文件！", , "错误"
    Exit Sub
End If
If txtWaveFile(1).Text = "" Then
    MsgBox "请选择第二个要混合的 WAVE 音频文件！", , "错误"
    Exit Sub
End If
If txtWaveFile(2).Text = "" Then
    MsgBox "请选择要保存混合后的 WAVE 音频的文件！", , "错误"
    Exit Sub
End If
If MixWaveFile(txtWaveFile(0).Text, txtWaveFile(1).Text, txtWaveFile(2).Text) Then
    MsgBox "混合 WAVE 音频文件成功！", , "提示"
End If
TheProgBar.Value = 0
End Sub

Private Sub cmdUnite_Click()
If txtWaveFile(0).Text = "" Then
    MsgBox "请选择第一个要合并的 WAVE 音频文件！", , "错误"
    Exit Sub
End If
If txtWaveFile(1).Text = "" Then
    MsgBox "请选择第二个要合并的 WAVE 音频文件！", , "错误"
    Exit Sub
End If
If txtWaveFile(2).Text = "" Then
    MsgBox "请选择要保存合并后的 WAVE 音频的文件！", , "错误"
    Exit Sub
End If
If UniteWaveFile(txtWaveFile(0).Text, txtWaveFile(1).Text, txtWaveFile(2).Text) Then
    MsgBox "合并 WAVE 音频文件成功！", , "提示"
End If
TheProgBar.Value = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("您真的要退出这个程序吗？", vbOKCancel, "确认退出") = vbCancel Then
    Cancel = -1
End If
End Sub

#6 得分：0 回复于： 2004-12-06 10:54:36

‘---BAS----------------
Option Explicit

Private Type WAVEFILEHDR            ‘WAVE 文件头的定义
    strFileTag As String * 4        ‘“RIFF”标志
    lngFileLen As Long              ‘文件长度，不包括“RIFF”标志和它本身的长度
    strFileType As String * 4       ‘“WAVE”标志
End Type

Private Type DATABLOCKHDR           ‘数据块头的定义
    strBlockTag As String * 4       ‘数据块名
    lngBlockLen As Long             ‘数据块长度，不包括数据块名和它本身的长度
End Type

Public Type PCMWAVEFORMAT           ‘PCM 格式定义
    wFormatTag As Integer           ‘格式标志，PCM 为 1
    nChannels As Integer            ‘通道数
    nSamplesPerSec As Long          ‘采样率
    nAvgBytesPerSec As Long         ‘数据率
    nBlockAlign As Integer          ‘块对齐大小，即波形数据的最小单位
    wBitsPerSample As Integer       ‘采样大小
End Type

‘缓冲区最大长度
Public Const MAXBUFFERLEN As Long = 1024

‘新建一个 FileSystemObject 对象，以方便文件的操作
Public MyFSO As New FileSystemObject

‘WAVE 文件合并函数
‘File1 为第一个要合并的文件
‘File2 为第二个要合并的文件
‘OutFile 为合并输出的文件
Public Function UniteWaveFile(File1 As String, File2 As String, OutFile As String) As Boolean
Dim FileName(1) As String
Dim FileHdr(1) As WAVEFILEHDR
Dim BlockHdr(1) As DATABLOCKHDR
Dim WaveFmt(1) As PCMWAVEFORMAT
Dim ReadedFormat(1) As Boolean
Dim Buffer() As Byte, I As Long
FileName(0) = File1
FileName(1) = File2
For I = 0 To 1
    If Not MyFSO.FileExists(FileName(I)) Then
        MsgBox "文件: “ " & FileName(I) & " ”不存在！请重新输入文件名或选择一个文件。", , "错误"
        UniteWaveFile = False
        Exit Function
    End If
    Open FileName(I) For Binary Access Read As #(I + 1)
    Get #(I + 1), , FileHdr(I)
    If FileHdr(I).strFileTag <> "RIFF" Or FileHdr(I).strFileType <> "WAVE" Then
        MsgBox "文件: “ " & FileName(I) & " ”不是 WAVE 音频文件！", , "错误"
        Close
        UniteWaveFile = False
        Exit Function
    End If
    If FileHdr(I).lngFileLen <> LOF(I + 1) - 8 Then
        MsgBox "文件: “ " & FileName(I) & " ”已损坏！", , "错误"
        Close
        UniteWaveFile = False
        Exit Function
    End If
    Do Until EOF(I + 1)         ‘循环直到读出“格式”数据块和“波形数据”数据块头为止
        Get #(I + 1), , BlockHdr(I)
        With BlockHdr(I)
            If LOF(I + 1) - Loc(I + 1) < .lngBlockLen Then
                MsgBox "文件: “ " & FileName(I) & " ”已损坏！", , "错误"
                Close
                UniteWaveFile = False
                Exit Function
            End If
            If .strBlockTag = "fmt " And Not ReadedFormat(I) Then
                Get #(I + 1), , WaveFmt(I)
                .lngBlockLen = .lngBlockLen - 16
                ReadedFormat(I) = True
                If WaveFmt(I).wFormatTag <> 1 Then
                    MsgBox "文件: “ " & FileName(I) & " ”不是 PCM 格式！" _
                    & vbCrLf & "不能进行合并！", , "错误"
                    Close
                    UniteWaveFile = False
                    Exit Function
                End If
            End If
            If .strBlockTag = "data" And ReadedFormat(I) Then
                Exit Do
            End If
            Seek #(I + 1), Seek(I + 1) + .lngBlockLen
       End With
    Loop
Next
If WaveFmt(0).nChannels <> WaveFmt(1).nChannels Then
    MsgBox "两个 WAVE 文件的通道数不同，不能进行合并！", , "错误"
    Close
    UniteWaveFile = False
    Exit Function
End If
If WaveFmt(0).wBitsPerSample <> WaveFmt(1).wBitsPerSample Then
    MsgBox "两个 WAVE 文件的采样大小不同，不能进行合并！", , "错误"
    Close
    UniteWaveFile = False
    Exit Function
End If
If WaveFmt(0).nSamplesPerSec <> WaveFmt(1).nSamplesPerSec Then
    MsgBox "两个 WAVE 文件的采样率不同，不能进行合并！", , "错误"
    Close
    UniteWaveFile = False
    Exit Function
End If
On Error GoTo ErrorLine
If MyFSO.FileExists(OutFile) Then
    Kill OutFile
End If
Open OutFile For Binary Access Write As #3
Put #3, , "RIFF"
Put #3, , 0&
Put #3, , "WAVE"
Put #3, , "fmt "
Put #3, , 16&
Put #3, , WaveFmt(0)
Put #3, , "data"
Put #3, , BlockHdr(0).lngBlockLen + BlockHdr(1).lngBlockLen
frmMain.TheProgBar.Min = 0
frmMain.TheProgBar.Value = 0
frmMain.TheProgBar.Max = BlockHdr(0).lngBlockLen \ MAXBUFFERLEN + BlockHdr(1).lngBlockLen \ MAXBUFFERLEN + 2
For I = 0 To 1
    ReDim Buffer(MAXBUFFERLEN - 1)
    With BlockHdr(I)
        While .lngBlockLen > 0
            If .lngBlockLen > MAXBUFFERLEN Then
                .lngBlockLen = .lngBlockLen - MAXBUFFERLEN
            Else
                ReDim Buffer(.lngBlockLen - 1)
                .lngBlockLen = 0
            End If
            Get #(I + 1), , Buffer
            Put #3, , Buffer
            With frmMain.TheProgBar
                If .Value < .Max Then
                    .Value = .Value + 1
                End If
            End With
        Wend
    End With
Next
Put #3, 5, LOF(3) - 8
Close
UniteWaveFile = True
Exit Function
ErrorLine:
If Err.Number > 0 Then
    Close
    MsgBox "打开文件:“ " & OutFile & " ”时错误，可能文件已被其它程序打开。" & _
    vbCrLf & vbCrLf & "请关闭打开此文件的程序或关闭浏览器对此文件的预览。", , "错误"
    UniteWaveFile = False
End If
End Function