http://us.un4seen.com/files/bass24.zip
www.un4seen.com/filez/4/Bass24.Net.zip (http://www.un4seen.com/filez/4/Bass24.Net.zip)
www.un4seen.com/filez/4/Bass24.Net_update.zip (http://www.un4seen.com/filez/4/Bass24.Net_update.zip)
من اینو خودم ساختم فعلا که مشکلی نداره
فقط این که روی یه فایل دیگه که کلیک میکنی باز نمیشه
در صورت فعال کردن
make single instance application
در تنضیمات پروژه
اول پروژه با ادمین لود بشه و تنضیمات اعمال بشه
برای فرم و پروژه یه
icon بذارید
کدها به ترتیب
Module
Class
form
'Form1.Designer
بعد اهنگ رو با openwith و با پروژه باز کنید
Imports Microsoft.Win32
Imports System.Runtime.InteropServices
Imports Un4seen.Bass
Module player
Public fname As String
Public fpach As String
Public fex As String
Public stream As Integer
Public vis As New Un4seen.Bass.Misc.Visuals
Public Sub playfile(ByVal filename As String)
If stream <> 0 Then
Bass.BASS_SampleFree(stream)
Bass.BASS_MusicFree(stream)
End If
stream = Bass.BASS_StreamCreateFile(filename, 0, 0, 0)
Bass.BASS_ChannelPlay(stream, False)
End Sub
Public Sub addfile(ByVal filename As String)
fname = New IO.FileInfo(filename).Name
fex = New IO.FileInfo(filename).Extension
fpach = New IO.FileInfo(filename).FullName
Dim item As New ListViewItem
item.Text = fname
item.SubItems.Add(fex)
item.SubItems.Add(fpach)
Form1.ListView1.Items.Add(item)
End Sub
Public Sub addfileex()
If Form1.Label1.Text > "" Then
Dim item As New ListViewItem
item.Text = IO.Path.GetFileName(Form1.Label1.Text)
item.SubItems.Add(IO.Path.GetExtension(Form1.Label 1.Text))
item.SubItems.Add(IO.Path.GetFullPath(Form1.Label1 .Text))
Form1.ListView1.Items.Add(item)
End If
End Sub
End Module
Namespace FileAssociation
Friend NotInheritable Class FileAssociate
'Notifies the filesystem that a change has been made
<DllImport("Shell32.dll")>
Shared Sub SHChangeNotify(ByVal wEventId As Integer, ByVal uFlags As UInteger, ByVal dwItem1 As IntPtr, ByVal dwItem2 As IntPtr)
End Sub
Private Const SHCNE_ASSOCCHANGED As Integer = &H8000000
Private Const SHCNF_IDLIST As Integer = 0
Private Sub New()
End Sub
Public Shared Sub Associate(ByVal Extension As String, ByVal ProperName As String)
Try
If Extension.StartsWith(".") = False Then
Extension = "." & Extension
End If
Dim FullName As String = System.Reflection.Assembly.GetExecutingAssembly(). Location.ToString()
Dim RegKey As RegistryKey = Registry.ClassesRoot.CreateSubKey(Extension)
RegKey.SetValue("", ProperName)
RegKey.SetValue("Content Type", "Application/" & ProperName)
RegKey.Close()
RegKey = Registry.ClassesRoot.CreateSubKey(ProperName)
RegKey.SetValue("", ProperName)
RegKey.Close()
RegKey = Registry.ClassesRoot.CreateSubKey(ProperName & "\" & "DefaultIcon")
RegKey.SetValue("", FullName & ",0")
RegKey.Close()
RegKey = Registry.ClassesRoot.CreateSubKey(ProperName & "\" & "shell")
RegKey = RegKey.CreateSubKey("open")
RegKey = RegKey.CreateSubKey("command")
RegKey.SetValue("", FullName & " %1")
RegKey.Close()
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, IntPtr.Zero, IntPtr.Zero)
Catch ex As Exception
End Try
End Sub
''' <summary>
''' Removes the association with your program
''' </summary>
''' <param name="Extension">The extension your program is associated with</param>
''' <param name="ProperName">The name your program use for filetype, for ex textfile</param>
Public Shared Sub RemoveAssociation(ByVal Extension As String, ByVal ProperName As String)
Try
Registry.ClassesRoot.DeleteSubKeyTree(Extension)
Registry.ClassesRoot.DeleteSubKeyTree(ProperName)
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, IntPtr.Zero, IntPtr.Zero)
Catch ex As Exception
Throw ex
End Try
End Sub
''' <summary>
''' Get the filetype of choosen extension
''' </summary>
''' <param name="Extension">The extension you want to know what filetype it is.</param>
''' <returns>Filetype, for ex textfile</returns>
Public Shared Function GetProperName(ByVal Extension As String) As String
Try
If Extension.Length > 0 Then
If Extension.StartsWith(".") = False Then
Extension = "." & Extension
End If
Dim key As RegistryKey
key = Registry.ClassesRoot.OpenSubKey(Extension)
If key IsNot Nothing Then
Return key.GetValue("").ToString()
End If
End If
Return ""
Catch ex As Exception
Throw ex
End Try
End Function
End Class
End Namespace
Imports System.IO
Imports Mp3player.FileAssociation
Imports Un4seen.Bass
Public Class Form1
Public Sub New()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
If File.Exists(String.Join(" ", Environment.GetCommandLineArgs(), 1, Environment.GetCommandLineArgs().Length - 1)) Then
Label1.Text = File.Open(String.Join(" ", Environment.GetCommandLineArgs(), 1, Environment.GetCommandLineArgs().Length - 1), FileMode.Open).Name
End If
End Sub
Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If False = Bass.BASS_Init(-1, 44100, Un4seen.Bass.BASSInit.BASS_DEVICE_LATENCY, Me.Handle) Then
End If
FileAssociate.Associate("mp3", Application.ProductName + " File")
playfile(Label1.Text)
addfileex()
If ListView1.Items.Count > 0 Then
If ListView1.Items(0).Selected = False Then
ListView1.Items(0).Selected = True
Label2.Text = ListView1.Items(0).Text
Label1.Text = ListView1.Items(0).SubItems(2).Text
End If
End If
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
For Each s In OpenFileDialog1.FileNames
addfile(s)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
playfile(Label1.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
If ListView1.Items.Count > 0 Then
If ListView1.Items(0).Selected = False Then
ListView1.Items(0).Selected = True
Label1.Text = ListView1.Items(0).SubItems(2).Text
Label2.Text = ListView1.Items(0).Text
End If
playfile(Label1.Text)
End If
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
If ListView1.SelectedItems.Count > 0 Then
Dim item As ListViewItem
item = ListView1.SelectedItems(0)
Label1.Text = item.SubItems(2).Text
Label2.Text = item.Text
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
PictureBox1.Image = vis.CreateSpectrumLinePeak(stream, PictureBox1.Width, PictureBox1.Height, Color.Wheat, Color.Gold, Color.OrangeRed, Color.Black, 2, 1, 1, 13, False, True, False)
End Sub
End Class
'Form1.Designer.vb
<Global.Microsoft.VisualBasic.CompilerServices.Desi gnerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(Get Type(Form1))
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.FileBrowser = New System.Windows.Forms.OpenFileDialog()
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.Button1 = New System.Windows.Forms.Button()
Me.ListView1 = New System.Windows.Forms.ListView()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginIni t()
Me.SuspendLayout()
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.Black
Me.PictureBox1.Location = New System.Drawing.Point(9, 38)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(166, 52)
Me.PictureBox1.TabIndex = 12
Me.PictureBox1.TabStop = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(6, 287)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(0, 13)
Me.Label2.TabIndex = 11
'
'Timer1
'
Me.Timer1.Enabled = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(6, 316)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(0, 13)
Me.Label1.TabIndex = 10
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(69, 7)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(54, 25)
Me.Button2.TabIndex = 9
Me.Button2.Text = "Play"
Me.Button2.UseVisualStyleBackColor = True
'
'OpenFileDialog1
'
Me.OpenFileDialog1.Multiselect = True
'
'FileBrowser
'
Me.FileBrowser.Filter = "Executable Files|*.exe|All files|*.*"
'
'ColumnHeader1
'
Me.ColumnHeader1.Width = 284
'
'ColumnHeader2
'
Me.ColumnHeader2.Width = 55
'
'ColumnHeader3
'
Me.ColumnHeader3.Width = 451
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(9, 7)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(54, 25)
Me.Button1.TabIndex = 8
Me.Button1.Text = "open"
Me.Button1.UseVisualStyleBackColor = True
'
'ListView1
'
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3})
Me.ListView1.FullRowSelect = True
Me.ListView1.HideSelection = False
Me.ListView1.Location = New System.Drawing.Point(181, 7)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(653, 274)
Me.ListView1.TabIndex = 7
Me.ListView1.UseCompatibleStateImageBehavior = False
Me.ListView1.View = System.Windows.Forms.View.Details
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(840, 342)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.ListView1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "Form1"
Me.Text = "Form1"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit( )
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents FileBrowser As System.Windows.Forms.OpenFileDialog
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents ListView1 As System.Windows.Forms.ListView
End Class