102 lines
4.6 KiB
VB.net
102 lines
4.6 KiB
VB.net
Imports System.Net
|
|
Imports System.ComponentModel
|
|
Imports System.IO
|
|
|
|
Public Class Form26
|
|
Private Sub Form26_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
|
|
|
|
Dim lines1() As String = File.ReadAllLines(théme)
|
|
If lines1(0) = 2 Then
|
|
Me.BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox1.ForeColor = Color.White
|
|
ElseIf lines1(0) = 3 Then
|
|
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
End If
|
|
|
|
|
|
For Each fichier As String In IO.Directory.GetDirectories(dosplaylist)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
ComboBox1.Items.Add(info.Name)
|
|
Next
|
|
|
|
If ComboBox1.Items.Count = 0 Then
|
|
MsgBox("Aucune playlist trouvez", MsgBoxStyle.Critical)
|
|
Close()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
|
|
If Form25.AxWindowsMediaPlayer1.URL.Contains("Autre") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox1.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
ElseIf Form25.AxWindowsMediaPlayer1.URL.Contains("Rap") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox2.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
ElseIf Form25.AxWindowsMediaPlayer1.URL.Contains("Classique") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox3.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
ElseIf Form25.AxWindowsMediaPlayer1.URL.Contains("Pop") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox4.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
ElseIf Form25.AxWindowsMediaPlayer1.URL.Contains("Youtube") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox5.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
ElseIf Form25.AxWindowsMediaPlayer1.URL.Contains("Jazz") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox6.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
ElseIf Form25.AxWindowsMediaPlayer1.URL.Contains("Libre de droit") Then
|
|
Try
|
|
téléchargerfr = New WebClient
|
|
téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox7.SelectedItem & ".mp3"))
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub téléchargerfr_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles téléchargerfr.DownloadProgressChanged
|
|
ComboBox1.Hide()
|
|
ProgressBar1.Show()
|
|
ProgressBar1.Value = e.ProgressPercentage
|
|
End Sub
|
|
|
|
Private Sub téléchargerfr_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles téléchargerfr.DownloadFileCompleted
|
|
ProgressBar1.Value = 0
|
|
ProgressBar1.Hide()
|
|
ComboBox1.Show()
|
|
MsgBox("La musique a bien été ajouter a la playlist: " & ComboBox1.SelectedItem, MsgBoxStyle.Information)
|
|
ComboBox1.Items.Clear()
|
|
Close()
|
|
End Sub
|
|
|
|
Dim WithEvents téléchargerfr As WebClient
|
|
End Class |