getwavinfo.vb

这是一本用Visual Studio.NET进行多媒体编程的读物

        Me.TextBox2.TabIndex = 5
        Me.TextBox2.Text = "TextBox2"
        '
        'Text1
        '
        Me.Text1.AcceptsReturn = True
        Me.Text1.AutoSize = False
        Me.Text1.BackColor = System.Drawing.SystemColors.Window
        Me.Text1.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.Text1.ForeColor = System.Drawing.SystemColors.WindowText
        Me.Text1.Location = New System.Drawing.Point(10, 9)
        Me.Text1.MaxLength = 0
        Me.Text1.Name = "Text1"
        Me.Text1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text1.Size = New System.Drawing.Size(473, 21)
        Me.Text1.TabIndex = 1
        Me.Text1.Text = "Text1"
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(152, 24)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(104, 21)
        Me.TextBox1.TabIndex = 5
        Me.TextBox1.Text = "TextBox1"
        '
        'TextBox6
        '
        Me.TextBox6.Location = New System.Drawing.Point(152, 144)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.Size = New System.Drawing.Size(104, 21)
        Me.TextBox6.TabIndex = 5
        Me.TextBox6.Text = "TextBox6"
        '
        'TextBox7
        '
        Me.TextBox7.Location = New System.Drawing.Point(152, 168)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.Size = New System.Drawing.Size(104, 21)
        Me.TextBox7.TabIndex = 5
        Me.TextBox7.Text = "TextBox7"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(152, 96)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(104, 21)
        Me.TextBox4.TabIndex = 5
        Me.TextBox4.Text = "TextBox4"
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(152, 120)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(104, 21)
        Me.TextBox5.TabIndex = 5
        Me.TextBox5.Text = "TextBox5"
        '
        'OPEN
        '
        Me.OPEN.BackColor = System.Drawing.SystemColors.Control
        Me.OPEN.Cursor = System.Windows.Forms.Cursors.Default
        Me.OPEN.Location = New System.Drawing.Point(287, 56)
        Me.OPEN.Name = "OPEN"
        Me.OPEN.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.OPEN.Size = New System.Drawing.Size(196, 38)
        Me.OPEN.TabIndex = 2
        Me.OPEN.Text = "打开WAV文件"
        '
        'TextBox9
        '
        Me.TextBox9.Location = New System.Drawing.Point(152, 216)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.Size = New System.Drawing.Size(104, 21)
        Me.TextBox9.TabIndex = 5
        Me.TextBox9.Text = "TextBox9"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label9, Me.Label8, Me.Label7, Me.Label6, Me.Label5, Me.Label4, Me.Label3, Me.Label2, Me.Label1, Me.TextBox3, Me.TextBox1, Me.TextBox4, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox8, Me.TextBox9, Me.TextBox2})
        Me.GroupBox1.Location = New System.Drawing.Point(8, 40)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(264, 248)
        Me.GroupBox1.TabIndex = 6
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "WAV文件的信息"
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(16, 216)
        Me.Label9.Name = "Label9"
        Me.Label9.RightToLeft = System.Windows.Forms.RightToLeft.Yes
        Me.Label9.Size = New System.Drawing.Size(128, 16)
        Me.Label9.TabIndex = 6
        Me.Label9.Text = "BlockAligBlockAlign"
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(16, 192)
        Me.Label8.Name = "Label8"
        Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.Yes
        Me.Label8.Size = New System.Drawing.Size(128, 16)
        Me.Label8.TabIndex = 6
        Me.Label8.Text = "AverageBytesPerSecond"
        '
        'PLAY
        '
        Me.PLAY.BackColor = System.Drawing.SystemColors.Control
        Me.PLAY.Cursor = System.Windows.Forms.Cursors.Default
        Me.PLAY.Location = New System.Drawing.Point(288, 216)
        Me.PLAY.Name = "PLAY"
        Me.PLAY.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.PLAY.Size = New System.Drawing.Size(196, 39)
        Me.PLAY.TabIndex = 4
        Me.PLAY.Text = "播放WAV文件"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(496, 295)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.CMDialog1, Me.PLAY, Me.DISPLAY, Me.OPEN, Me.Text1, Me.GroupBox1})
        Me.Location = New System.Drawing.Point(4, 29)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "Form1"
        Me.Text = "显示WAV文件的信息"
        CType(Me.CMDialog1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub
#End Region
#Region "升级支持"
    Private Shared m_vb6FormDefInstance As Form1
    Private Shared m_InitializingDefInstance As Boolean
    Public Shared Property DefInstance() As Form1
        Get
            If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
                m_InitializingDefInstance = True
                m_vb6FormDefInstance = New Form1()
                m_InitializingDefInstance = False
            End If
            DefInstance = m_vb6FormDefInstance
        End Get
        Set(ByVal Value As Form1)
            m_vb6FormDefInstance = Value
        End Set
    End Property
#End Region
    Public FileName As String


    Private Sub DISPLAY_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles DISPLAY.Click
        If FileName = "" Then
        Else
            GetIt = GetWaveInfo(FileName, WavInformation)
            If GetIt = True Then
                TextBox1.Text = WavInformation.Riff_Format
                TextBox2.Text = WavInformation.chunk_size
                TextBox3.Text = WavInformation.ChunkID
                TextBox4.Text = WavInformation.fmt
                TextBox5.Text = WavInformation.Wave_Format
                TextBox6.Text = WavInformation.Channels
                TextBox7.Text = WavInformation.SamplesPerSecond
                TextBox8.Text = WavInformation.AverageBytesPerSecond
                TextBox9.Text = WavInformation.BlockAlign
            End If
        End If

    End Sub

    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        GetIt = False
    End Sub

    Private Sub OPEN_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles OPEN.Click
        Dim temp As Object
        CMDialog1.FileName = ""
        CMDialog1.Flags = MSComDlg.FileOpenConstants.cdlOFNNoReadOnlyReturn
        CMDialog1.Filter = "(*.wave)|*.wav|(*.*)|*.*"
        CMDialog1.FilterIndex = 1 '初始的文件过滤方式为*.wave
        CMDialog1.DialogTitle = "打开媒体文件"
        CMDialog1.Action = 1
        If CMDialog1.FileName = "" Then
            'UPGRADE_WARNING: 未能解析对象 temp 的默认属性。 单击以获得更多信息：ms-help://MS.MSDNVS/vbcon/html/vbup1037.htm
            temp = MsgBox("没有文件被打开", 37, "检查")
            Exit Sub
        Else
            FileName = CMDialog1.FileName
            Text1.Text = FileName
        End If
    End Sub

    Private Sub PLAY_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles PLAY.Click
        Dim x As Short
        x = mciExecute("play " & FileName)
    End Sub
End Class