Click here to Skip to main content
15,886,763 members
Articles / Programming Languages / Visual Basic

MultiWave - a portable multi-device .NET audio player

Rate me:
Please Sign up or sign in to vote.
4.93/5 (23 votes)
13 May 2015Ms-PL11 min read 48.5K   6.6K   33  
This article describes the creation of a fully managed multi-device audio player using several public C# libraries. Requirements: VB .NET, Visual Studio 2008, .NET Framework 3.5
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FormConvert
    Inherits IconForm

    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Wird vom Windows Form-Designer benötigt.
    Private components As System.ComponentModel.IContainer

    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.TBInput = New System.Windows.Forms.TextBox
        Me.LblInput = New System.Windows.Forms.Label
        Me.LblOutput = New System.Windows.Forms.Label
        Me.TBOutput = New System.Windows.Forms.TextBox
        Me.BtnConvert = New System.Windows.Forms.Button
        Me.BtnSelectInput = New System.Windows.Forms.Button
        Me.BtnSelectOutput = New System.Windows.Forms.Button
        Me.PBarProgress = New System.Windows.Forms.ProgressBar
        Me.PaProgressBack = New System.Windows.Forms.Panel
        Me.PaProgressBack.SuspendLayout()
        Me.SuspendLayout()
        '
        'TBInput
        '
        Me.TBInput.Location = New System.Drawing.Point(141, 47)
        Me.TBInput.Name = "TBInput"
        Me.TBInput.Size = New System.Drawing.Size(269, 20)
        Me.TBInput.TabIndex = 0
        '
        'LblInput
        '
        Me.LblInput.AutoSize = True
        Me.LblInput.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LblInput.Location = New System.Drawing.Point(35, 43)
        Me.LblInput.Name = "LblInput"
        Me.LblInput.Size = New System.Drawing.Size(57, 22)
        Me.LblInput.TabIndex = 1
        Me.LblInput.Text = "Input:"
        '
        'LblOutput
        '
        Me.LblOutput.AutoSize = True
        Me.LblOutput.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LblOutput.Location = New System.Drawing.Point(35, 103)
        Me.LblOutput.Name = "LblOutput"
        Me.LblOutput.Size = New System.Drawing.Size(71, 22)
        Me.LblOutput.TabIndex = 2
        Me.LblOutput.Text = "Output:"
        '
        'TBOutput
        '
        Me.TBOutput.Location = New System.Drawing.Point(141, 107)
        Me.TBOutput.Name = "TBOutput"
        Me.TBOutput.Size = New System.Drawing.Size(269, 20)
        Me.TBOutput.TabIndex = 3
        '
        'BtnConvert
        '
        Me.BtnConvert.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BtnConvert.Location = New System.Drawing.Point(374, 158)
        Me.BtnConvert.Name = "BtnConvert"
        Me.BtnConvert.Size = New System.Drawing.Size(74, 35)
        Me.BtnConvert.TabIndex = 4
        Me.BtnConvert.Text = "Convert"
        Me.BtnConvert.UseVisualStyleBackColor = True
        '
        'BtnSelectInput
        '
        Me.BtnSelectInput.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BtnSelectInput.Location = New System.Drawing.Point(416, 43)
        Me.BtnSelectInput.Name = "BtnSelectInput"
        Me.BtnSelectInput.Size = New System.Drawing.Size(32, 24)
        Me.BtnSelectInput.TabIndex = 5
        Me.BtnSelectInput.Text = "..."
        Me.BtnSelectInput.UseVisualStyleBackColor = True
        '
        'BtnSelectOutput
        '
        Me.BtnSelectOutput.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BtnSelectOutput.Location = New System.Drawing.Point(416, 103)
        Me.BtnSelectOutput.Name = "BtnSelectOutput"
        Me.BtnSelectOutput.Size = New System.Drawing.Size(32, 24)
        Me.BtnSelectOutput.TabIndex = 6
        Me.BtnSelectOutput.Text = "..."
        Me.BtnSelectOutput.UseVisualStyleBackColor = True
        '
        'PBarProgress
        '
        Me.PBarProgress.Dock = System.Windows.Forms.DockStyle.Fill
        Me.PBarProgress.Location = New System.Drawing.Point(0, 0)
        Me.PBarProgress.Name = "PBarProgress"
        Me.PBarProgress.Size = New System.Drawing.Size(327, 31)
        Me.PBarProgress.TabIndex = 7
        '
        'PaProgressBack
        '
        Me.PaProgressBack.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.PaProgressBack.Controls.Add(Me.PBarProgress)
        Me.PaProgressBack.Location = New System.Drawing.Point(39, 159)
        Me.PaProgressBack.Name = "PaProgressBack"
        Me.PaProgressBack.Size = New System.Drawing.Size(329, 33)
        Me.PaProgressBack.TabIndex = 8
        '
        'FormConvert
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(484, 217)
        Me.Controls.Add(Me.PaProgressBack)
        Me.Controls.Add(Me.BtnSelectOutput)
        Me.Controls.Add(Me.BtnSelectInput)
        Me.Controls.Add(Me.BtnConvert)
        Me.Controls.Add(Me.TBOutput)
        Me.Controls.Add(Me.LblOutput)
        Me.Controls.Add(Me.LblInput)
        Me.Controls.Add(Me.TBInput)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
        Me.Name = "FormConvert"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "2Wav"
        Me.PaProgressBack.ResumeLayout(False)
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents TBInput As System.Windows.Forms.TextBox
    Friend WithEvents LblInput As System.Windows.Forms.Label
    Friend WithEvents LblOutput As System.Windows.Forms.Label
    Friend WithEvents TBOutput As System.Windows.Forms.TextBox
    Friend WithEvents BtnConvert As System.Windows.Forms.Button
    Friend WithEvents BtnSelectInput As System.Windows.Forms.Button
    Friend WithEvents BtnSelectOutput As System.Windows.Forms.Button
    Friend WithEvents PBarProgress As System.Windows.Forms.ProgressBar
    Friend WithEvents PaProgressBack As System.Windows.Forms.Panel
End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Microsoft Public License (Ms-PL)


Written By
Engineer
Germany Germany
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions