Author Topic: Direct bass : Vb.net (vb2008, vb2010, vb6, vc#, vc++, devC++, delphi, AutoIt)  (Read 161671 times)

sak2005

  • Posts: 911
Free Download: BassMidiActiveX.dll  ::) Clickhere

Example:
Code: [Select]
Public Class Form1
    Public Declare Auto Function BASS_PluginLoad Lib "bass.dll" (ByVal strFile As String, ByVal BASSFlag As Integer) As Integer
    Public Declare Auto Function BASS_StreamFree Lib "bass.dll" (ByVal handle As Integer) As Boolean
    Public Declare Auto Function BASS_StreamCreateFile Lib "bass.dll" (ByVal mem As Boolean, ByVal strFile As String, ByVal offset As Long, ByVal length As Long, ByVal BASSFlag As Integer) As Integer
    Public Declare Auto Function BASS_ChannelPlay Lib "bass.dll" (ByVal handle As Integer, ByVal restart As Boolean) As Boolean
    Public md As New BassMidiATLActiveXLib.BassMidiATL
    Public Const BASS_UNICODE As Integer = -2147483648
    Public chan As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        md.BASS_MIDI_Init(chan, Me.Handle)
        BASS_PluginLoad("bassmidi.dll", BASS_UNICODE)
        Button2.Enabled = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.FileName = String.Empty
        OpenFileDialog1.Filter = "MediaFile|*.*"
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            If CBool(chan) Then BASS_StreamFree(chan)
            chan = BASS_StreamCreateFile(False, OpenFileDialog1.FileName, 0, 0, BASS_UNICODE)
            If Not CBool(chan) Then Return
            Me.Text = OpenFileDialog1.SafeFileName
            BASS_ChannelPlay(chan, False)
            Button2.Enabled = True
            md.BASS_MIDI_SetFont(chan, OpenFileDialog2.FileName)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog2.FileName = String.Empty
        OpenFileDialog2.Filter = "SoundFont(*.sf2)|*.sf2"
        If OpenFileDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then
            md.BASS_MIDI_SetFont(chan, OpenFileDialog2.FileName)
        End If
    End Sub
End Class
« Last Edit: 25 Feb '17 - 12:05 by sak2005 »

sak2005

  • Posts: 911
FreeDownload: BassMidiAPI  ::) Clickhere

Info: Include defualtfont in the resource and hidden.

Example:
Code: [Select]
Public Class Form1
    Public Declare Auto Function BASS_MIDI_Init Lib "BassMidiAPI.dll" (ByVal handle As Integer, ByVal win As IntPtr) As Boolean
    Public Declare Auto Function BASS_MIDI_SetFont Lib "BassMidiAPI.dll" (ByVal handle As Integer, ByVal newfont As String) As Boolean
    Public Declare Auto Function BASS_PluginLoad Lib "bass.dll" (ByVal strFile As String, ByVal BASSFlag As Integer) As Integer
    Public Declare Auto Function BASS_StreamFree Lib "bass.dll" (ByVal handle As Integer) As Boolean
    Public Declare Auto Function BASS_StreamCreateFile Lib "bass.dll" (ByVal mem As Boolean, ByVal strFile As String, ByVal offset As Long, ByVal length As Long, ByVal BASSFlag As Integer) As Integer
    Public Declare Auto Function BASS_ChannelPlay Lib "bass.dll" (ByVal handle As Integer, ByVal restart As Boolean) As Boolean
    Public Const BASS_UNICODE As Integer = -2147483648
    Public chan As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BASS_MIDI_Init(chan, Me.Handle)
        BASS_PluginLoad("bassmidi.dll", BASS_UNICODE)
        Button2.Enabled = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            If CBool(chan) Then BASS_StreamFree(chan)
            chan = BASS_StreamCreateFile(False, OpenFileDialog1.FileName, 0, 0, BASS_UNICODE)
            BASS_ChannelPlay(chan, False)
            BASS_MIDI_SetFont(chan, OpenFileDialog2.FileName)
            Button2.Enabled = True
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog2.FileName = Nothing
        OpenFileDialog2.Filter = "SoundFont(*.sf2)|*.sf2"
        If OpenFileDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then
            BASS_MIDI_SetFont(chan, OpenFileDialog2.FileName)
        End If
    End Sub
End Class
« Last Edit: 27 Feb '17 - 13:41 by sak2005 »

sak2005

  • Posts: 911
TryNow! with BassCom.dll  ::) Download: Clickhere

Info: Include bass and aac , midi , wma dlls plugins to the resource and hidden.

Some methods sample:
Code: [Select]
BASS_StreamCreateFile(ฺByval strFile As String, Byval BASSFlag As Integer, ByVal sf As SoundFormat)
Code: [Select]
Pulic Enum SoundFormat
    AUTO = 0
    MIDI = 1
    MP4 = 2
    WMA = 3
End Enum

Example:
Code: [Select]
Public Class Form1
    Public Bass As New BassCom.BassClass
    Public chan As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Bass.BASS_Init(-1, 44100, 0, Me.Handle)
        ProgressBar1.Maximum = 32768
        ProgressBar2.Maximum = ProgressBar1.Maximum
        OpenFileDialog1.FileName = Nothing
        OpenFileDialog1.Filter = "Media Files(*.mid;*.wav;*.wma;*.mp3;*.mp4)|*.mid;*.wav;*.wma;*.mp3;*.mp4"
        TrackBar2.Maximum = 100
        TrackBar2.Value = TrackBar2.Maximum
        TrackBar3.Maximum = 100
        TrackBar3.Minimum = -100
        TrackBar3.Value = 0
        AddHandler Bass.PositionChanged, AddressOf Bass_PositionChanged
        AddHandler Bass.EndingChanged, AddressOf Bass_EndingChanged
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            If CBool(chan) Then Bass.BASS_StreamFree(chan)
            chan = Bass.BASS_StreamCreateFile(OpenFileDialog1.FileName, 0, BassCom.BassClass.SoundFormat.AUTO)
            If chan = 0 Then Return
            Label3.Text = Bass.BASS_FixTimeSpan(Bass.BASS_Duration, "mm:ss")
            TrackBar1.Maximum = CInt(Bass.BASS_MaxPosition)
            TrackBar2_Scroll(sender, e)
            If Label5.ForeColor = Color.Red Then
                Label5.ForeColor = Color.Black
                Bass.BASS_Volume(TrackBar2.Value)
            End If
            Button2_Click(sender, e)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Bass.BASS_ChannelPlay(chan, False)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Bass.BASS_ChannelPause(chan)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Bass.BASS_ChannelStop(chan)
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        Bass.BASS_ChangePosition = CDbl(TrackBar1.Value)
    End Sub

    Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
        If Label5.ForeColor = Color.Black Then
            Bass.BASS_Volume(TrackBar2.Value)
        End If
    End Sub

    Private Sub TrackBar3_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar3.Scroll
        Bass.BASS_Balance(TrackBar3.Value)
    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        If CBool(chan) Then
            If Bass.BASS_GetIntVol <> 0 Then
                Bass.BASS_Volume(0)
                Label5.ForeColor = Color.Red
            Else
                Bass.BASS_Volume(TrackBar2.Value)
                Label5.ForeColor = Color.Black
            End If
        End If
    End Sub

    Private Sub Bass_PositionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Label1.Text = Bass.BASS_FixTimeSpan(Bass.BASS_CurrentPosition, "mm:ss")
        TrackBar1.Value = Bass.BASS_CurrentPosition
        Label2.Text = Bass.BASS_Status
        Label4.Text = Bass.BASS_CPU
        If Label5.ForeColor = Color.Red Then
            ProgressBar1.Value = 0
            ProgressBar2.Value = ProgressBar1.Value
            Return
        End If
        ProgressBar1.Value = Bass.BASS_LevelMeter(BassCom.BassClass.SoundChannel.LEFT)
        ProgressBar2.Value = Bass.BASS_LevelMeter(BassCom.BassClass.SoundChannel.RIGHT)
    End Sub

    Private Sub Bass_EndingChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If CheckBox1.Checked Then
            Button2_Click(sender, e)
        End If
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Bass.BASS_SetVolume(1)
        Bass.BASS_Close()
    End Sub
End Class
« Last Edit: 27 Feb '17 - 21:55 by sak2005 »

sak2005

  • Posts: 911
Free Download: LibZPlayNet.dll  ::) Clickhere

Info: Include libzplay dll api to resource and hidden.

Example:
Code: [Select]
Imports LibZPlayNet

Public Class Form1
    Public zp As New LibZPlayNet.Zplay

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            If zp.OpenFile(OpenFileDialog1.FileName, TStreamFormat.sfAutodetect) Then
                Dim StreamInfo As New TStreamInfo()
                zp.GetStreamInfo(StreamInfo)
                Label3.Text = ZPlay_Duration()
                TrackBar1.Maximum = ZPlay_MaxPosition()
                Button2_Click(sender, e)
                If Timer1.Interval <> 50 Then Timer1.Interval = 50
                If Not Timer1.Enabled Then Timer1.Start()
            Else
                MsgBox("Error! file not support.")
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        zp.StartPlayback()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        zp.PausePlayback()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        zp.StopPlayback()
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        ZPlay_SetPosition(TrackBar1.Value)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TrackBar1.Value = ZPlay_CurrentPosition()
        Label1.Text = ZPlay_Position()
        Label2.Text = Zplay_Status()
        Zplay_VUMeter(ProgressBar1, ProgressBar2)
    End Sub

    Public Function ZPlay_Duration() As String
        Dim StreamInfo As New TStreamInfo()
        zp.GetStreamInfo(StreamInfo)
        Return String.Concat(StreamInfo.Length.hms.minute, " : ", StreamInfo.Length.hms.second)
    End Function

    Public Function ZPlay_MaxPosition() As Integer
        Dim StreamInfo As New TStreamInfo()
        zp.GetStreamInfo(StreamInfo)
        Return CInt(StreamInfo.Length.sec)
    End Function

    Public Function ZPlay_CurrentPosition() As Integer
        Dim pos As New TStreamTime()
        zp.GetPosition(pos)
        Return CInt(pos.sec)
    End Function

    Public Function ZPlay_Position() As String
        Dim pos As New TStreamTime()
        zp.GetPosition(pos)
        Return Format(Format(pos.hms.minute, "00") & " : " & Format(pos.hms.second, "00"))
    End Function

    Public Function ZPlay_SetPosition(ByVal pos As Integer) As Boolean
        Dim newpos As New TStreamTime()
        Dim StreamInfo As New TStreamInfo()
        zp.GetStreamInfo(StreamInfo)
        newpos.sec = CUInt(pos)
        Return zp.Seek(TTimeFormat.tfSecond, newpos, TSeekMethod.smFromBeginning)
    End Function

    Public Function Zplay_Status() As String
        Dim Status As New TStreamStatus()
        zp.GetStatus(Status)
        Dim str As String = Nothing
        If Status.fPlay Then
            str = "Playing"
        ElseIf Status.fPause Then
            str = "Paused"
        Else
            str = "Stopped"
        End If
        Return str
    End Function

    Public Sub Zplay_VUMeter(ByVal vuL As ProgressBar, ByVal vuR As ProgressBar)
        Dim left As Integer = 0
        Dim right As Integer = 0
        zp.GetVUData(left, right)
        If Zplay_IsPlaying Then
            vuL.Value = left
            vuR.Value = right
        Else
            vuL.Value = 0
            vuR.Value = vuL.Value
        End If
    End Sub

    Public ReadOnly Property Zplay_IsPlaying() As Boolean
        Get
            Dim bl As Boolean = False
            Dim Status As New TStreamStatus()
            zp.GetStatus(Status)
            If Status.fPlay Then
                bl = True
            End If
            Return bl
        End Get
    End Property

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        zp.Close()
    End Sub
End Class
« Last Edit: 28 Feb '17 - 17:14 by sak2005 »

sak2005

  • Posts: 911
Free Download : BassEQLib.dll  ::) Clickhere

Info: Hidden bass.dll, BassNet.dll and bass_fx.dll
        Get Overload  methods function

Example1:
'Using type enums option is PARAM_EQ and PEAK_EQ

Code: [Select]
Public fx As Integer() = New Integer(4-0){}
Public chan As Integer

For i As Integer = 0 To 4
    fx(i) = BASS_EQ_SetFX(chan,  PEAK_EQ)
Next i
OR
Code: [Select]
BASS_EQ_SetFX(chan, fx, PEAK_EQ, 4)
« Last Edit: 2 Mar '17 - 15:30 by sak2005 »

sak2005

  • Posts: 911
Free Download : VisualsLib.dll (Shared Library WithOut BassNet). Easy to used.  ::) Clickhere

New thread LevelMeter is AutoSet MaxValue properties progress.

Tip: Changed display between SpectrumLinePeak and SpectrumWave on a PictureBox.

Code: [Select]
Import VisualsLib
Private bl As Boolean = False
Public chan As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Not bl Then
            Visuals.CreateSpectrumLinePeak(chan, PictureBox1, Color.Green, Color.Orange, Color.White, Color.Black, 3, 2, 1, 20, False, False, True)
        Else
            Visuals.CreateSpectrumWave(chan, PictureBox1, Color.Green, Color.Orange, Color.Black, 2, False, False, True)
        End If
    End Sub

   Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        If Not bl Then
            bl = True
        Else
            bl = False
        End If
    End Sub


Set timeCount toggle Display:
Code: [Select]
Private iCount As Integer = 0
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        iCount += 1
        If iCount < 500 Then
            Visuals.CreateSpectrumLinePeak(chan, PictureBox1, Color.Green, Color.Orange, Color.White, Color.Black, 3, 2, 1, 20, False, False, True)
        Else
            Visuals.CreateSpectrumWave(chan, PictureBox1, Color.Green, Color.Orange, Color.Black, 2, False, False, True)
            If iCount > 1000 Then iCount = 0
        End If
      End Sub

Example:
Code: [Select]
Imports VisualsLib

Public Class Form1
    Public Declare Auto Function BASS_Init Lib "bass.dll" (ByVal device As Integer, ByVal freq As Integer, ByVal flags As BASSInit, ByVal win As IntPtr, ByVal clsid As IntPtr) As Boolean
    Public Declare Auto Function BASS_StreamFree Lib "bass.dll" (ByVal handle As Integer) As Boolean
    Public Declare Auto Function BASS_StreamCreateFile Lib "bass.dll" (ByVal mem As Boolean, ByVal strFile As String, ByVal offset As Long, ByVal length As Long, ByVal flags As BASSFlag) As Integer
    Public Declare Auto Function BASS_ChannelPlay Lib "bass.dll" (ByVal handle As Integer, ByVal restart As Boolean) As Boolean
    Public Declare Auto Function BASS_ChannelPause Lib "bass.dll" (ByVal handle As Integer) As Boolean
    Public Declare Auto Function BASS_ChannelStop Lib "bass.dll" (ByVal handle As Integer) As Boolean
    Public Declare Auto Function BASS_ChannelIsActive Lib "bass.dll" (ByVal handle As Integer) As Integer
    Public Declare Auto Function BASS_Free Lib "bass.dll" () As Boolean

    Private bl As Boolean = False
    Public chan As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT, Me.Handle, IntPtr.Zero)
        Timer1.Interval = 50
        Visuals.MaxFFT = BASSData.BASS_DATA_FFT16384
        Me.CenterToScreen()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            If CBool(chan) Then BASS_StreamFree(chan)
            chan = BASS_StreamCreateFile(False, OpenFileDialog1.FileName, 0, 0, BASSFlag.BASS_UNICODE)
            Button2_Click(sender, e)
            Timer1.Enabled = True
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If BASS_ChannelIsActive(chan) = 0 Then
            BASS_ChannelPlay(chan, True)
        Else
            BASS_ChannelPlay(chan, False)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        BASS_ChannelPause(chan)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        BASS_ChannelStop(chan)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Not bl Then
            Visuals.CreateSpectrumLinePeak(chan, PictureBox1, Color.Green, Color.Orange, Color.White, Color.Black, 3, 2, 1, 20, False, False, True)
        Else
            Visuals.CreateSpectrumWave(chan, PictureBox1, Color.Green, Color.Orange, Color.Black, 2, False, False, True)
        End If
        Visuals.LevelMeter(chan, ProgressBar1, ProgressBar2)
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        If Not bl Then
            bl = True
        Else
            bl = False
        End If
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        BASS_Free()
    End Sub
End Class

<Flags()> _
Public Enum BASSInit
    BASS_DEVICE_DEFAULT = 0
End Enum
<Flags()> _
Public Enum BASSFlag
    BASS_DEFAULT = 0
    BASS_UNICODE = -2147483648
    BASS_MUSIC_LOOP = 4
End Enum
« Last Edit: 4 Mar '17 - 12:54 by sak2005 »

sak2005

  • Posts: 911
How to easy Create BassPlugin sample ::) Download Lib only: Clickhere

Example:
Code: [Select]
Imports BASSPlugin
Public Class Form1
    Public Bass As IBASS = PluginLoader.LoadPlugin("BASSPlugin.dll")
    Public chan As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT, Me.Handle)
        ProgressBar1.Maximum = 32768
        ProgressBar2.Maximum = ProgressBar1.Maximum
        Me.CenterToScreen()
        AddHandler Bass.PositionChanged, New IBASS.PositionChangeEventHandler(AddressOf Bass_PositionChanged)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            If CBool(chan) Then Bass.BASS_StreamFree(chan)
            chan = Bass.BASS_StreamCreateFile(OpenFileDialog1.FileName, 0, 0, BASSFlag.BASS_MUSIC_LOOP)
            Label3.Text = Bass.FixTimeSpan(Bass.Duration, "mm:ss")
            TrackBar1.Maximum = CInt(Bass.MaxPosition)
            Button2_Click(sender, e)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Bass.BASS_ChannelPlay(chan, False)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Bass.BASS_ChannelPause(chan)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Bass.BASS_ChannelStop(chan)
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        Bass.ChangePosition = CDbl(TrackBar1.Value)
    End Sub

    Private Sub Bass_PositionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        TrackBar1.Value = CInt(Bass.CurrentPosition)
        Label1.Text = Bass.FixTimeSpan(Bass.CurrentPosition, "mm:ss")
        Label2.Text = Bass.Status
        Label4.Text = Bass.CPU
        ProgressBar1.Value = Bass.Level_Left
        ProgressBar2.Value = Bass.Level_Right
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Bass.BASS_Free()
    End Sub
End Class
« Last Edit: 14 Mar '17 - 21:18 by sak2005 »