Hallo,
Mijn onderstaande zorgt er voor dat mijn mp3 opstarten met dit programma.
Echter als ik er eentje aanklik is er geen probleem Mp3 wordt keurig ingeladen en afgespeeld.
Maar het probleem is dat als ik bijvoorbeeld 2 bestandjes selecteerd hij deze bestanden niet allebei in de playlist zet, namelijk hij zet de eerste in een playlist en start het programma nog een keer op en zet dan de tweede daar neer bij mp3 start hij drie keer op enz.
Dat dit te kunnen oplossen door meerdere keren opstarten te voorkomen door:
Dat helpt het meerdere keren opstarten wel maar nu selecteerd hij uiteindelijk maar 1 mp3 bestand.
Fijne dag verder en groetjes
Mijn onderstaande zorgt er voor dat mijn mp3 opstarten met dit programma.
Echter als ik er eentje aanklik is er geen probleem Mp3 wordt keurig ingeladen en afgespeeld.
Code:
Try
Dim Pad As String = My.Application.CommandLineArgs(0)
Dim Pad2 As String = (Path.GetFileNameWithoutExtension(My.Application.CommandLineArgs(0)))
Pad = LCase(Pad) : Pad2 = LCase(Pad2)
If Pad.EndsWith(".mp3") Or Pad.EndsWith(".wav") Or Pad.EndsWith(".flac") Then
ListBox1.Items.Add(UCase(Pad))
ListBox2.Items.Add(UCase(Pad2))
End If
Catch ex As Exception
End Try
Maar het probleem is dat als ik bijvoorbeeld 2 bestandjes selecteerd hij deze bestanden niet allebei in de playlist zet, namelijk hij zet de eerste in een playlist en start het programma nog een keer op en zet dan de tweede daar neer bij mp3 start hij drie keer op enz.
Dat dit te kunnen oplossen door meerdere keren opstarten te voorkomen door:
Code:
Try
Cursor = Cursors.AppStarting
Refresh()
'Get number of processes of you program
If Process.GetProcessesByName _
(Process.GetCurrentProcess.ProcessName).Length > 1 Then
MsgBox("Reeds opgestart")
NotifyIcon1.Visible = False
System.Diagnostics.Process.GetCurrentProcess().Kill()
End If
Catch ex As Exception
End Try
Dat helpt het meerdere keren opstarten wel maar nu selecteerd hij uiteindelijk maar 1 mp3 bestand.
Fijne dag verder en groetjes