1995 lines
121 KiB
VB.net
1995 lines
121 KiB
VB.net
Imports System.ComponentModel
|
||
Imports System.IO
|
||
Imports System.Net
|
||
Imports AxWMPLib
|
||
|
||
Public Class Form12
|
||
Dim nom As String = ""
|
||
Public volumep As Integer
|
||
Public mp3s() As String
|
||
Public index As Integer = 0
|
||
Private Sub OuvrirUnDosierToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirUnDosierToolStripMenuItem.Click
|
||
Dim lines3() As String = File.ReadAllLines(notification)
|
||
If lines3(0) = 1 Then
|
||
ouvrirfr()
|
||
ElseIf lines3(0) = 0 Then
|
||
ouvrirnfr()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As _WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
|
||
Dim lines3() As String = File.ReadAllLines(notification)
|
||
If lines3(0) = 1 Then
|
||
langfr2()
|
||
ElseIf lines3(0) = 0 Then
|
||
langfr5()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
||
Dim lines3() As String = File.ReadAllLines(notification)
|
||
If lines3(0) = 1 Then
|
||
langfr()
|
||
ElseIf lines3(0) = 0 Then
|
||
langfr5()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
|
||
Dim lines3() As String = File.ReadAllLines(notification)
|
||
If lines3(0) = 1 Then
|
||
langfr3()
|
||
ElseIf lines3(0) = 0 Then
|
||
langfr6()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Form12_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||
Dim lines1a() As String = File.ReadAllLines(théme)
|
||
|
||
If lines1a(0) = 2 Then
|
||
PlaylistStoreToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
PlaylistStoreToolStripMenuItem.ForeColor = Color.White
|
||
Me.BackColor = Color.FromArgb(64, 64, 64)
|
||
ImporterUnePlaylistToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
ImporterUnePlaylistToolStripMenuItem.ForeColor = Color.White
|
||
ExporterUnePlaylistToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
ExporterUnePlaylistToolStripMenuItem.ForeColor = Color.White
|
||
PlaylistToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
PlaylistToolStripMenuItem.ForeColor = Color.White
|
||
OuvrirUnePlaylistToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
OuvrirUnePlaylistToolStripMenuItem.ForeColor = Color.White
|
||
CréerToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
CréerToolStripMenuItem.ForeColor = Color.White
|
||
ModifierToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
ModifierToolStripMenuItem.ForeColor = Color.White
|
||
SupprimerToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
SupprimerToolStripMenuItem.ForeColor = Color.White
|
||
AjjouterLaMusiqueEnCoursAUnePlalistToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
AjjouterLaMusiqueEnCoursAUnePlalistToolStripMenuItem.ForeColor = Color.White
|
||
Label1.ForeColor = Color.White
|
||
Button1.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button1.ForeColor = Color.White
|
||
Button2.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button2.ForeColor = Color.White
|
||
ListBox1.BackColor = Color.FromArgb(64, 64, 64)
|
||
ListBox1.ForeColor = Color.White
|
||
TextBox1.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox1.ForeColor = Color.White
|
||
TextBox2.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox2.ForeColor = Color.White
|
||
PictureBox1.BackColor = Color.FromArgb(64, 64, 64)
|
||
GunaMetroTrackBar1.BackColor = Color.FromArgb(64, 64, 64)
|
||
FichierToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
FichierToolStripMenuItem.ForeColor = Color.White
|
||
OuvrirLesOptionToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
OuvrirLesOptionToolStripMenuItem.ForeColor = Color.White
|
||
OptionToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
OptionToolStripMenuItem.ForeColor = Color.White
|
||
OuvrirLesOptionToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
OuvrirLesOptionToolStripMenuItem.ForeColor = Color.White
|
||
QuitterToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
QuitterToolStripMenuItem.ForeColor = Color.White
|
||
QuitterLaPlaylistToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
QuitterLaPlaylistToolStripMenuItem.ForeColor = Color.White
|
||
ToutQuitterToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToutQuitterToolStripMenuItem.ForeColor = Color.White
|
||
FenêtreToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
FenêtreToolStripMenuItem.ForeColor = Color.White
|
||
AgrnadireToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
AgrnadireToolStripMenuItem.ForeColor = Color.White
|
||
NormalToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
NormalToolStripMenuItem.ForeColor = Color.White
|
||
MinimiserToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
MinimiserToolStripMenuItem.ForeColor = Color.White
|
||
MédiaToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
MédiaToolStripMenuItem.ForeColor = Color.White
|
||
VolumeToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
VolumeToolStripMenuItem.ForeColor = Color.White
|
||
InformationDuMédiaToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
InformationDuMédiaToolStripMenuItem.ForeColor = Color.White
|
||
PlayToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
PlayToolStripMenuItem.ForeColor = Color.White
|
||
PauseToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
PauseToolStripMenuItem.ForeColor = Color.White
|
||
StopToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
StopToolStripMenuItem.ForeColor = Color.White
|
||
VitesseToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
VitesseToolStripMenuItem.ForeColor = Color.White
|
||
AllerToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
AllerToolStripMenuItem.ForeColor = Color.White
|
||
OuvrirUnDosierToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
OuvrirUnDosierToolStripMenuItem.ForeColor = Color.White
|
||
FichierToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
MenuStrip1.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox1.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox3.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox4.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox5.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox6.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label1.BackColor = Color.FromArgb(64, 64, 64)
|
||
Label1.ForeColor = Color.White
|
||
VolumeToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64)
|
||
VolumeToolStripMenuItem1.ForeColor = Color.White
|
||
VolumeMuteToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
VolumeMuteToolStripMenuItem.ForeColor = Color.White
|
||
A10ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
A10ToolStripMenuItem.ForeColor = Color.White
|
||
A20ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
A20ToolStripMenuItem.ForeColor = Color.White
|
||
A30ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
A30ToolStripMenuItem.ForeColor = Color.White
|
||
A40ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
A40ToolStripMenuItem.ForeColor = Color.White
|
||
A50ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
A50ToolStripMenuItem.ForeColor = Color.White
|
||
A60ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
A60ToolStripMenuItem.ForeColor = Color.White
|
||
A70ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
A70ToolStripMenuItem.ForeColor = Color.White
|
||
A80ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
A80ToolStripMenuItem.ForeColor = Color.White
|
||
A90ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
A90ToolStripMenuItem.ForeColor = Color.White
|
||
A100ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
||
A100ToolStripMenuItem.ForeColor = Color.White
|
||
ToolStripMenuItem2.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem2.ForeColor = Color.White
|
||
ToolStripMenuItem3.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem3.ForeColor = Color.White
|
||
ToolStripMenuItem4.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem4.ForeColor = Color.White
|
||
ToolStripMenuItem5.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem5.ForeColor = Color.White
|
||
ToolStripMenuItem6.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem6.ForeColor = Color.White
|
||
ToolStripMenuItem7.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem7.ForeColor = Color.White
|
||
ToolStripMenuItem8.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem8.ForeColor = Color.White
|
||
ToolStripMenuItem9.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem9.ForeColor = Color.White
|
||
ToolStripMenuItem10.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem10.ForeColor = Color.White
|
||
ToolStripMenuItem11.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem11.ForeColor = Color.White
|
||
ToolStripMenuItem12.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem12.ForeColor = Color.White
|
||
ToolStripMenuItem13.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem13.ForeColor = Color.White
|
||
ToolStripMenuItem14.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem14.ForeColor = Color.White
|
||
ToolStripMenuItem15.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem15.ForeColor = Color.White
|
||
ToolStripMenuItem16.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem16.ForeColor = Color.White
|
||
ToolStripMenuItem17.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem17.ForeColor = Color.White
|
||
ToolStripMenuItem18.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem18.ForeColor = Color.White
|
||
ToolStripMenuItem19.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem19.ForeColor = Color.White
|
||
ToolStripMenuItem20.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem20.ForeColor = Color.White
|
||
ToolStripMenuItem21.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem21.ForeColor = Color.White
|
||
ToolStripMenuItem22.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem22.ForeColor = Color.White
|
||
ToolStripMenuItem23.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem23.ForeColor = Color.White
|
||
ToolStripMenuItem24.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem24.ForeColor = Color.White
|
||
ToolStripMenuItem25.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem25.ForeColor = Color.White
|
||
ToolStripMenuItem26.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem26.ForeColor = Color.White
|
||
ToolStripMenuItem27.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem27.ForeColor = Color.White
|
||
ToolStripMenuItem28.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem28.ForeColor = Color.White
|
||
ToolStripMenuItem29.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem29.ForeColor = Color.White
|
||
ToolStripMenuItem30.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem30.ForeColor = Color.White
|
||
ToolStripMenuItem31.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem31.ForeColor = Color.White
|
||
ToolStripMenuItem32.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem32.ForeColor = Color.White
|
||
ToolStripMenuItem33.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem33.ForeColor = Color.White
|
||
ToolStripMenuItem34.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem34.ForeColor = Color.White
|
||
ToolStripMenuItem35.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem35.ForeColor = Color.White
|
||
ToolStripMenuItem36.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem36.ForeColor = Color.White
|
||
ToolStripMenuItem37.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem37.ForeColor = Color.White
|
||
ToolStripMenuItem38.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem38.ForeColor = Color.White
|
||
ToolStripMenuItem39.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem39.ForeColor = Color.White
|
||
ToolStripMenuItem40.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem40.ForeColor = Color.White
|
||
ToolStripMenuItem41.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem41.ForeColor = Color.White
|
||
ToolStripMenuItem42.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem42.ForeColor = Color.White
|
||
ToolStripMenuItem43.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem43.ForeColor = Color.White
|
||
ToolStripMenuItem44.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem44.ForeColor = Color.White
|
||
ToolStripMenuItem45.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem45.ForeColor = Color.White
|
||
ToolStripMenuItem46.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem46.ForeColor = Color.White
|
||
ToolStripMenuItem47.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem47.ForeColor = Color.White
|
||
ToolStripMenuItem48.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem48.ForeColor = Color.White
|
||
ToolStripMenuItem49.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem49.ForeColor = Color.White
|
||
ToolStripMenuItem50.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem50.ForeColor = Color.White
|
||
ToolStripMenuItem51.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem51.ForeColor = Color.White
|
||
ToolStripMenuItem52.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem52.ForeColor = Color.White
|
||
ToolStripMenuItem53.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem53.ForeColor = Color.White
|
||
ToolStripMenuItem54.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem54.ForeColor = Color.White
|
||
ToolStripMenuItem55.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem55.ForeColor = Color.White
|
||
ToolStripMenuItem56.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem56.ForeColor = Color.White
|
||
ToolStripMenuItem57.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem57.ForeColor = Color.White
|
||
ToolStripMenuItem58.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem58.ForeColor = Color.White
|
||
ToolStripMenuItem59.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem59.ForeColor = Color.White
|
||
ToolStripMenuItem60.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem60.ForeColor = Color.White
|
||
ToolStripMenuItem61.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem61.ForeColor = Color.White
|
||
ToolStripMenuItem62.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem62.ForeColor = Color.White
|
||
ToolStripMenuItem63.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem63.ForeColor = Color.White
|
||
ToolStripMenuItem64.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem64.ForeColor = Color.White
|
||
ToolStripMenuItem65.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem65.ForeColor = Color.White
|
||
ToolStripMenuItem66.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem66.ForeColor = Color.White
|
||
ToolStripMenuItem67.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem67.ForeColor = Color.White
|
||
ToolStripMenuItem68.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem68.ForeColor = Color.White
|
||
ToolStripMenuItem69.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem69.ForeColor = Color.White
|
||
ToolStripMenuItem70.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem70.ForeColor = Color.White
|
||
ToolStripMenuItem71.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem71.ForeColor = Color.White
|
||
ToolStripMenuItem72.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem72.ForeColor = Color.White
|
||
ToolStripMenuItem73.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem73.ForeColor = Color.White
|
||
ToolStripMenuItem74.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem74.ForeColor = Color.White
|
||
ToolStripMenuItem75.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem75.ForeColor = Color.White
|
||
ToolStripMenuItem76.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem76.ForeColor = Color.White
|
||
ToolStripMenuItem77.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem77.ForeColor = Color.White
|
||
ToolStripMenuItem78.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem78.ForeColor = Color.White
|
||
ToolStripMenuItem79.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem79.ForeColor = Color.White
|
||
ToolStripMenuItem80.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem80.ForeColor = Color.White
|
||
ToolStripMenuItem81.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem81.ForeColor = Color.White
|
||
ToolStripMenuItem82.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem82.ForeColor = Color.White
|
||
ToolStripMenuItem83.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem83.ForeColor = Color.White
|
||
ToolStripMenuItem84.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem84.ForeColor = Color.White
|
||
ToolStripMenuItem85.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem85.ForeColor = Color.White
|
||
ToolStripMenuItem86.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem86.ForeColor = Color.White
|
||
ToolStripMenuItem87.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem87.ForeColor = Color.White
|
||
ToolStripMenuItem88.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem88.ForeColor = Color.White
|
||
ToolStripMenuItem89.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem89.ForeColor = Color.White
|
||
ToolStripMenuItem90.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem90.ForeColor = Color.White
|
||
ToolStripMenuItem91.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem91.ForeColor = Color.White
|
||
ToolStripMenuItem92.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem92.ForeColor = Color.White
|
||
ToolStripMenuItem93.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem93.ForeColor = Color.White
|
||
ToolStripMenuItem94.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem94.ForeColor = Color.White
|
||
ToolStripMenuItem95.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem95.ForeColor = Color.White
|
||
ToolStripMenuItem96.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem96.ForeColor = Color.White
|
||
ToolStripMenuItem97.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem97.ForeColor = Color.White
|
||
ToolStripMenuItem98.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem98.ForeColor = Color.White
|
||
ToolStripMenuItem99.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem99.ForeColor = Color.White
|
||
ToolStripMenuItem100.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem100.ForeColor = Color.White
|
||
ToolStripMenuItem101.BackColor = Color.FromArgb(64, 64, 64)
|
||
ToolStripMenuItem101.ForeColor = Color.White
|
||
PictureBox7.BackColor = Color.FromArgb(64, 64, 64)
|
||
PictureBox8.BackColor = Color.FromArgb(64, 64, 64)
|
||
ElseIf lines1a(0) = 3 Then
|
||
PictureBox4.Image = Form1.PictureBox7.Image
|
||
PlayToolStripMenuItem.Image = Form1.PictureBox7.Image
|
||
PictureBox3.Image = Form1.PictureBox4.Image
|
||
PauseToolStripMenuItem.Image = Form1.PictureBox4.Image
|
||
PictureBox5.Image = Form1.PictureBox5.Image
|
||
StopToolStripMenuItem.Image = Form1.PictureBox5.Image
|
||
PictureBox6.Image = Form1.PictureBox8.Image
|
||
VolumeMuteToolStripMenuItem.Image = Form1.PictureBox8.Image
|
||
PictureBox7.Image = Form1.GunaAdvenceButton2.Image
|
||
PictureBox8.Image = Form1.GunaAdvenceButton1.Image
|
||
GunaMetroTrackBar1.TrackColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
|
||
GunaMetroTrackBar1.TrackHoverColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
|
||
GunaMetroTrackBar1.TrackPressedColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
|
||
GunaMetroTrackBar1.TrackIdleColor = Color.FromArgb(Form1.trackparcolorA, Form1.trackparcolorR, Form1.trackparcolorG, Form1.trackparcolorB)
|
||
PlaylistStoreToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PlaylistStoreToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ImporterUnePlaylistToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ImporterUnePlaylistToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ExporterUnePlaylistToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ExporterUnePlaylistToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
PlaylistToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PlaylistToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
OuvrirUnePlaylistToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
OuvrirUnePlaylistToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
CréerToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
CréerToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ModifierToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ModifierToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
SupprimerToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
SupprimerToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
AjjouterLaMusiqueEnCoursAUnePlalistToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
AjjouterLaMusiqueEnCoursAUnePlalistToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ListBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ListBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
GunaMetroTrackBar1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
FichierToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
FichierToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
OuvrirLesOptionToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
OuvrirLesOptionToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
OptionToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
OptionToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
OuvrirLesOptionToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
OuvrirLesOptionToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
QuitterToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
QuitterToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
QuitterLaPlaylistToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
QuitterLaPlaylistToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToutQuitterToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToutQuitterToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
FenêtreToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
FenêtreToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
AgrnadireToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
AgrnadireToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
NormalToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
NormalToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
MinimiserToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
MinimiserToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
MédiaToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
MédiaToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
VolumeToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
VolumeToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
InformationDuMédiaToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
InformationDuMédiaToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
PlayToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PlayToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
PauseToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PauseToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
StopToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
StopToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
VitesseToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
VitesseToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
AllerToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
AllerToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
OuvrirUnDosierToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
OuvrirUnDosierToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
FichierToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
MenuStrip1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
VolumeToolStripMenuItem1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
VolumeToolStripMenuItem1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
VolumeMuteToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
VolumeMuteToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
A10ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
A10ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
A20ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
A20ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
A30ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
A30ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
A40ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
A40ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
A50ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
A50ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
A60ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
A60ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
A70ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
A70ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
A80ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
A80ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
A90ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
A90ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
A100ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
A100ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem19.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem19.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem20.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem21.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem22.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem22.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem23.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem23.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem24.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem24.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem25.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem25.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem26.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem26.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem27.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem27.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem28.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem28.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem29.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem29.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem30.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem30.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem31.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem31.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem32.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem32.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem33.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem33.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem34.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem34.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem35.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem35.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem36.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem36.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem37.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem37.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem38.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem38.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem39.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem39.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem40.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem40.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem41.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem41.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem42.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem42.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem43.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem43.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem44.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem44.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem45.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem45.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem46.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem46.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem47.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem47.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem48.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem48.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem49.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem49.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem50.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem50.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem51.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem51.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem52.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem52.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem53.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem53.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem54.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem54.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem55.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem55.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem56.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem56.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem57.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem57.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem58.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem58.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem59.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem59.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem60.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem60.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem61.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem61.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem62.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem62.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem63.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem63.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem64.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem64.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem65.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem65.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem66.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem66.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem67.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem67.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem68.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem68.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem69.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem69.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem70.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem70.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem71.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem71.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem72.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem72.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem73.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem73.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem74.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem74.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem75.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem75.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem76.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem76.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem77.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem77.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem78.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem78.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem79.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem79.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem80.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem80.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem81.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem81.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem82.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem82.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem83.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem83.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem84.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem84.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem85.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem85.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem86.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem86.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem87.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem87.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem88.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem88.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem89.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem89.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem90.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem90.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem91.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem91.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem92.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem92.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem93.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem93.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem94.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem94.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem95.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem95.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem96.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem96.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem97.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem97.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem98.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem98.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem99.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem99.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem100.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem100.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
ToolStripMenuItem101.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
ToolStripMenuItem101.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
PictureBox7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
PictureBox8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Else
|
||
|
||
End If
|
||
|
||
PictureBox6.Hide()
|
||
PictureBox3.Hide()
|
||
TextBox2.Hide()
|
||
|
||
|
||
AxWindowsMediaPlayer1.enableContextMenu = False
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
|
||
PlayToolStripMenuItem.Enabled = False
|
||
PauseToolStripMenuItem.Enabled = False
|
||
StopToolStripMenuItem.Enabled = False
|
||
AllerToolStripMenuItem.Enabled = False
|
||
VitesseToolStripMenuItem.Enabled = False
|
||
|
||
Dim lines() As String = File.ReadAllLines(settings3)
|
||
If lines(0) <> 0 Then
|
||
AxWindowsMediaPlayer1.settings.volume = lines(0)
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End If
|
||
If lines(1) = 1 Then
|
||
TextBox1.Show()
|
||
Else
|
||
TextBox1.Hide()
|
||
End If
|
||
If lines(2) = 1 Then
|
||
ListBox1.Show()
|
||
Else
|
||
ListBox1.Hide()
|
||
End If
|
||
If lines(3) = 1 Then
|
||
TopMost = True
|
||
Else
|
||
TopMost = False
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub QuitterLaPlaylistToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitterLaPlaylistToolStripMenuItem.Click
|
||
Dim sw4 As New StreamWriter(historique)
|
||
For Each item In Form1.ListBox1.Items
|
||
sw4.WriteLine(item)
|
||
Next
|
||
sw4.Close()
|
||
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
||
Form1.Show()
|
||
Me.Hide()
|
||
End Sub
|
||
|
||
Private Sub ToutQuitterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToutQuitterToolStripMenuItem.Click
|
||
Form1.NotifyIcon1.Visible = False
|
||
Me.Close()
|
||
End Sub
|
||
|
||
Private Sub AgrnadireToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AgrnadireToolStripMenuItem.Click
|
||
Me.WindowState = WindowState.Maximized
|
||
End Sub
|
||
|
||
Private Sub NormalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NormalToolStripMenuItem.Click
|
||
Me.WindowState = WindowState.Normal
|
||
End Sub
|
||
|
||
Private Sub MinimiserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimiserToolStripMenuItem.Click
|
||
Me.WindowState = WindowState.Minimized
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 1
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 2
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 3
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 4
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 5
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 6
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 7
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 8
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 9
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 10
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 11
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 12
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 13
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 14
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 15
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem17_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem17.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 16
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 17
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 18
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 19
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 20
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem22_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem22.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 21
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 22
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem24_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem24.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 23
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem25_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem25.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 24
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem26_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem26.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 25
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem27_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem27.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 26
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem28_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem28.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 27
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem29_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 28
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem30_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem30.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 29
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 30
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem32_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem32.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 31
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem33_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem33.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 32
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem34_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem34.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 33
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem35_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem35.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 34
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem36_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem36.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 35
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem37_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem37.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 36
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem38_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem38.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 37
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem39_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem39.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 38
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem40_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem40.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 39
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem41_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem41.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 40
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem42_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem42.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 41
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem43_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem43.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 42
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem44_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem44.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 43
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem45_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem45.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 44
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem46_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem46.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 45
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem47_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem47.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 46
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem48_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem48.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 47
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem49_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem49.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 48
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem50_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem50.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 49
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem51_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem51.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 50
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem52_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem52.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 51
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem53_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem53.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 52
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem54_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem54.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 53
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem55_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem55.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 54
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem56_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem56.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 55
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem57_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem57.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 56
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem58_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem58.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 57
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem59_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem59.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 58
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem60_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem60.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 59
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem61_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem61.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 60
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem62_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem62.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 61
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem63_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem63.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 62
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem64_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem64.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 63
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem65_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem65.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 64
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem66_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem66.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 65
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem67_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem67.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 66
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem68_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem68.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 67
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem69_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem69.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 68
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem70_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem70.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 69
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem71_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem71.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 70
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem72_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem72.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 71
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem73_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem73.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 72
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem74_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem74.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 73
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem75_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem75.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 74
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem76_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem76.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 75
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem77_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem77.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 76
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem78_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem78.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 77
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem79_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem79.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 78
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem80_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem80.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 79
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem81_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem81.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 80
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem82_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem82.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 81
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem83_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem83.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 82
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem84_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem84.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 83
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem85_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem85.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 84
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem86_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem86.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 85
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem87_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem87.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 86
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem88_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem88.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 87
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem89_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem89.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 88
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem90_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem90.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 89
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem91_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem91.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 90
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem92_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem92.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 91
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem93_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem93.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 92
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem94_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem94.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 93
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem95_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem95.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 94
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem96_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem96.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 95
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem97_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem97.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 96
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem98_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem98.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 97
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem99_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem99.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 98
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem100_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem100.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 99
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub ToolStripMenuItem101_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem101.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 100
|
||
PictureBox6.Hide()
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
End Sub
|
||
|
||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||
volumep = AxWindowsMediaPlayer1.settings.volume.ToString()
|
||
volumep -= 1
|
||
AxWindowsMediaPlayer1.settings.volume = volumep
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
If AxWindowsMediaPlayer1.settings.volume = 0 Then
|
||
PictureBox6.Show()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||
volumep = AxWindowsMediaPlayer1.settings.volume.ToString()
|
||
volumep += 1
|
||
AxWindowsMediaPlayer1.settings.volume = volumep
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
PictureBox6.Hide()
|
||
End Sub
|
||
|
||
Private Sub VolumeMuteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VolumeMuteToolStripMenuItem.Click
|
||
AxWindowsMediaPlayer1.settings.mute = True
|
||
PictureBox6.Show()
|
||
End Sub
|
||
|
||
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
|
||
AxWindowsMediaPlayer1.settings.volume = 1
|
||
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
||
PictureBox6.Hide()
|
||
End Sub
|
||
Sub play()
|
||
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
|
||
AxWindowsMediaPlayer1.Ctlcontrols.play()
|
||
PauseToolStripMenuItem.Enabled = True
|
||
PlayToolStripMenuItem.Enabled = False
|
||
StopToolStripMenuItem.Enabled = True
|
||
PictureBox4.Hide()
|
||
PictureBox3.Show()
|
||
End If
|
||
End Sub
|
||
Sub pause()
|
||
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
|
||
PauseToolStripMenuItem.Enabled = False
|
||
PlayToolStripMenuItem.Enabled = True
|
||
StopToolStripMenuItem.Enabled = True
|
||
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
||
PictureBox4.Show()
|
||
PictureBox3.Hide()
|
||
End If
|
||
End Sub
|
||
Sub stop1()
|
||
PauseToolStripMenuItem.Enabled = False
|
||
PlayToolStripMenuItem.Enabled = True
|
||
StopToolStripMenuItem.Enabled = True
|
||
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
||
AxWindowsMediaPlayer1.currentPlaylist.clear()
|
||
TextBox1.Clear()
|
||
TextBox2.Clear()
|
||
ListBox1.Items.Clear()
|
||
ListBox2.Items.Clear()
|
||
PictureBox4.Show()
|
||
PictureBox3.Hide()
|
||
PictureBox7.Hide()
|
||
PictureBox8.Hide()
|
||
Me.Text = "Playlist"
|
||
End Sub
|
||
|
||
Private Sub PlayToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PlayToolStripMenuItem.Click
|
||
play()
|
||
End Sub
|
||
|
||
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
|
||
play()
|
||
End Sub
|
||
|
||
Private Sub PauseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PauseToolStripMenuItem.Click
|
||
pause()
|
||
End Sub
|
||
|
||
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
||
pause()
|
||
End Sub
|
||
|
||
Private Sub StopToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StopToolStripMenuItem.Click
|
||
stop1()
|
||
End Sub
|
||
|
||
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
|
||
stop1()
|
||
End Sub
|
||
Private Sub OuvrirLesOptionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirLesOptionToolStripMenuItem.Click
|
||
Form13.ShowDialog()
|
||
End Sub
|
||
Sub ouvrirfr()
|
||
Dim dossier As New FolderBrowserDialog
|
||
Dim sw4 As New StreamWriter(historique)
|
||
If dossier.ShowDialog = 1 Then
|
||
ListBox1.Items.Clear()
|
||
TextBox1.Text = dossier.SelectedPath
|
||
mp3s = IO.Directory.GetFiles(dossier.SelectedPath, "*.mp3")
|
||
Dim info As IO.FileInfo
|
||
For Each mp3 As String In mp3s
|
||
info = New IO.FileInfo(mp3)
|
||
ListBox1.Items.Add(info.Name)
|
||
index = 0
|
||
AxWindowsMediaPlayer1.URL = mp3s(0)
|
||
TextBox2.Text = mp3s(0)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.ListBox1.Items.Add(info.Name & " : " & Today & " : " & TimeOfDay)
|
||
For Each item In Form1.ListBox1.Items
|
||
|
||
Next
|
||
sw4.Close()
|
||
PictureBox4.Hide()
|
||
PictureBox3.Show()
|
||
PictureBox7.Show()
|
||
PictureBox8.Show()
|
||
PauseToolStripMenuItem.Enabled = True
|
||
PlayToolStripMenuItem.Enabled = False
|
||
AllerToolStripMenuItem.Enabled = True
|
||
VitesseToolStripMenuItem.Enabled = True
|
||
StopToolStripMenuItem.Enabled = True
|
||
ListBox1.SetSelected(0, True)
|
||
Next
|
||
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
||
Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.ShowBalloonTip(1)
|
||
Timer1.Start()
|
||
If ListBox1.Items.Count = 0 Then
|
||
sw4.Close()
|
||
nomusique()
|
||
Else
|
||
|
||
End If
|
||
End If
|
||
End Sub
|
||
Sub langfr()
|
||
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsReady Then
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
||
Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.ShowBalloonTip(1)
|
||
AxWindowsMediaPlayer1.Ctlcontrols.play()
|
||
End If
|
||
End Sub
|
||
Sub langfr2()
|
||
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then
|
||
If ListBox1.Items.Count - 1 = index Then
|
||
index = 0
|
||
AxWindowsMediaPlayer1.URL = mp3s(0)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
TextBox2.Text = mp3s(0)
|
||
ListBox1.SetSelected(0, True)
|
||
Else
|
||
index = index + 1
|
||
AxWindowsMediaPlayer1.URL = mp3s(index)
|
||
TextBox2.Text = mp3s(index)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
ListBox1.SetSelected(index, True)
|
||
End If
|
||
End If
|
||
End Sub
|
||
Sub langfr3()
|
||
If ListBox1.Text <> "" Then
|
||
index = ListBox1.SelectedIndex
|
||
AxWindowsMediaPlayer1.URL = mp3s(index)
|
||
TextBox2.Text = mp3s(index)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
||
Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.ShowBalloonTip(1)
|
||
End If
|
||
End Sub
|
||
Sub ouvrirnfr()
|
||
Dim dossier As New FolderBrowserDialog
|
||
Dim sw4 As New StreamWriter(historique)
|
||
If dossier.ShowDialog = 1 Then
|
||
PictureBox7.Show()
|
||
PictureBox8.Show()
|
||
ListBox1.Items.Clear()
|
||
TextBox1.Text = dossier.SelectedPath
|
||
mp3s = IO.Directory.GetFiles(dossier.SelectedPath, "*.mp3")
|
||
Dim info As IO.FileInfo
|
||
For Each mp3 As String In mp3s
|
||
info = New IO.FileInfo(mp3)
|
||
ListBox1.Items.Add(info.Name)
|
||
|
||
index = 0
|
||
AxWindowsMediaPlayer1.URL = mp3s(0)
|
||
TextBox2.Text = mp3s(0)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.ListBox1.Items.Add(info.Name & " : " & Today & " : " & TimeOfDay)
|
||
For Each item In Form1.ListBox1.Items
|
||
|
||
Next
|
||
sw4.Close()
|
||
PictureBox4.Hide()
|
||
PictureBox3.Show()
|
||
PictureBox7.Show()
|
||
PictureBox8.Show()
|
||
PauseToolStripMenuItem.Enabled = True
|
||
PlayToolStripMenuItem.Enabled = False
|
||
StopToolStripMenuItem.Enabled = True
|
||
AllerToolStripMenuItem.Enabled = True
|
||
VitesseToolStripMenuItem.Enabled = True
|
||
ListBox1.SetSelected(0, True)
|
||
Timer1.Start()
|
||
|
||
Next
|
||
|
||
If ListBox1.Items.Count = 0 Then
|
||
sw4.Close()
|
||
nomusique()
|
||
Else
|
||
|
||
End If
|
||
End If
|
||
End Sub
|
||
Sub langfr5()
|
||
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then
|
||
If ListBox1.Items.Count - 1 = index Then
|
||
index = 0
|
||
AxWindowsMediaPlayer1.URL = mp3s(0)
|
||
TextBox2.Text = mp3s(0)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
ListBox1.SetSelected(0, True)
|
||
Else
|
||
index = index + 1
|
||
AxWindowsMediaPlayer1.URL = mp3s(index)
|
||
TextBox2.Text = mp3s(index)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
ListBox1.SetSelected(index, True)
|
||
End If
|
||
End If
|
||
End Sub
|
||
Sub langfr6()
|
||
If ListBox1.Text <> "" Then
|
||
index = ListBox1.SelectedIndex
|
||
AxWindowsMediaPlayer1.URL = mp3s(index)
|
||
TextBox2.Text = mp3s(index)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub AvanceRapiteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AvanceRapiteToolStripMenuItem.Click
|
||
AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
|
||
End Sub
|
||
|
||
Private Sub AvanceNormalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AvanceNormalToolStripMenuItem.Click
|
||
AxWindowsMediaPlayer1.Ctlcontrols.play()
|
||
End Sub
|
||
|
||
Private Sub MinutesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinutesToolStripMenuItem.Click
|
||
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 600
|
||
End Sub
|
||
|
||
Private Sub MinutesToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles MinutesToolStripMenuItem1.Click
|
||
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1200
|
||
End Sub
|
||
|
||
Private Sub MinutesToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles MinutesToolStripMenuItem2.Click
|
||
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1800
|
||
End Sub
|
||
|
||
Private Sub MinutesToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles MinutesToolStripMenuItem3.Click
|
||
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2400
|
||
End Sub
|
||
|
||
Private Sub MinutesToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles MinutesToolStripMenuItem4.Click
|
||
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3000
|
||
End Sub
|
||
|
||
Private Sub HeuresToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HeuresToolStripMenuItem.Click
|
||
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3600
|
||
End Sub
|
||
|
||
Private Sub AllerÀToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllerÀToolStripMenuItem.Click
|
||
Form20.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub Form12_Closed(sender As Object, e As EventArgs) Handles Me.Closed
|
||
Dim sw4 As New StreamWriter(historique)
|
||
For Each item In Form1.ListBox1.Items
|
||
sw4.WriteLine(item)
|
||
Next
|
||
sw4.Close()
|
||
Dim dw8 As New StreamWriter(lançer)
|
||
dw8.WriteLine(0)
|
||
dw8.Close()
|
||
Form1.NotifyIcon1.Visible = False
|
||
End
|
||
End Sub
|
||
Private Sub InformationDuMédiaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InformationDuMédiaToolStripMenuItem.Click
|
||
Form69.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub Form12_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||
Dim lines() As String = File.ReadAllLines(settings1)
|
||
If BCstart = 1 Then
|
||
e.Cancel = True
|
||
MsgBox("Une sauvegarde est en cours merci de patienter...", MsgBoxStyle.Critical)
|
||
Else
|
||
If misdlno = 1 Then
|
||
e.Cancel = True
|
||
MsgBox("Une mise à jour est en cours de téléchargement" & vbNewLine & "merci de patienter", MsgBoxStyle.Exclamation)
|
||
Else
|
||
If opentchat = 1 Then
|
||
MsgBox("Merci de fermer le tchat", MsgBoxStyle.Information)
|
||
e.Cancel = True
|
||
Dim msg2 = MsgBox("Voulez-vous fermer le tchat ?", MsgBoxStyle.YesNo)
|
||
If msg2 = MsgBoxResult.Yes Then
|
||
tchat.Close()
|
||
Close()
|
||
Else
|
||
tchat.WindowState = FormWindowState.Normal
|
||
tchat.TopMost = True
|
||
tchat.TopMost = False
|
||
End If
|
||
Else
|
||
If lines(4) = 1 Then
|
||
Dim msg = MsgBox("Voulez-vous vraiment quitter ?", MsgBoxStyle.YesNo)
|
||
If msg = MsgBoxResult.Yes Then
|
||
Dim dw8 As New StreamWriter(lançer)
|
||
dw8.WriteLine(0)
|
||
dw8.Close()
|
||
Form1.NotifyIcon1.Visible = False
|
||
fermature.Show()
|
||
Hide()
|
||
Else
|
||
e.Cancel = True
|
||
End If
|
||
Else
|
||
Dim dw8 As New StreamWriter(lançer)
|
||
dw8.WriteLine(0)
|
||
dw8.Close()
|
||
Form1.NotifyIcon1.Visible = False
|
||
fermature.Show()
|
||
Hide()
|
||
End If
|
||
End If
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
||
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
|
||
GunaMetroTrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
|
||
GunaMetroTrackBar1.Maximum = AxWindowsMediaPlayer1.currentMedia.duration + 1
|
||
Else
|
||
GunaMetroTrackBar1.Value = 0
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub GunaMetroTrackBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles GunaMetroTrackBar1.Scroll
|
||
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
|
||
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = GunaMetroTrackBar1.Value
|
||
GunaMetroTrackBar1.Maximum = AxWindowsMediaPlayer1.currentMedia.duration + 1
|
||
Else
|
||
GunaMetroTrackBar1.Value = 0
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Form12_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
||
If e.KeyData = Keys.Space And AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
|
||
AxWindowsMediaPlayer1.Ctlcontrols.play()
|
||
PlayToolStripMenuItem.Enabled = False
|
||
PauseToolStripMenuItem.Enabled = True
|
||
PictureBox4.Hide()
|
||
PictureBox3.Show()
|
||
Exit Sub
|
||
End If
|
||
|
||
If e.KeyData = Keys.Space And AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
|
||
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
||
PlayToolStripMenuItem.Enabled = True
|
||
PauseToolStripMenuItem.Enabled = False
|
||
PictureBox4.Show()
|
||
PictureBox3.Hide()
|
||
Exit Sub
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub OuvrirUnePlaylistToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirUnePlaylistToolStripMenuItem.Click
|
||
ListBox2.Items.Clear()
|
||
|
||
For Each fichier As String In IO.Directory.GetDirectories(dosplaylist)
|
||
Dim info As New IO.DirectoryInfo(fichier)
|
||
ListBox2.Items.Add(info.Name)
|
||
Next
|
||
If ListBox2.Items.Count = 0 Then
|
||
ListBox2.Items.Clear()
|
||
MsgBox("Aucune playlist trouvez", MsgBoxStyle.Critical)
|
||
Else
|
||
ListBox2.Items.Clear()
|
||
ouvrirplaylist.ShowDialog()
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub ModifierToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ModifierToolStripMenuItem.Click
|
||
ListBox2.Items.Clear()
|
||
|
||
For Each fichier As String In IO.Directory.GetDirectories(dosplaylist)
|
||
Dim info As New IO.DirectoryInfo(fichier)
|
||
ListBox2.Items.Add(info.Name)
|
||
Next
|
||
If ListBox2.Items.Count = 0 Then
|
||
ListBox2.Items.Clear()
|
||
MsgBox("Aucune playlist trouvez", MsgBoxStyle.Critical)
|
||
Else
|
||
ListBox2.Items.Clear()
|
||
Form183.ShowDialog()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub SupprimerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SupprimerToolStripMenuItem.Click
|
||
ListBox2.Items.Clear()
|
||
|
||
For Each fichier As String In IO.Directory.GetDirectories(dosplaylist)
|
||
Dim info As New IO.DirectoryInfo(fichier)
|
||
ListBox2.Items.Add(info.Name)
|
||
Next
|
||
If ListBox2.Items.Count = 0 Then
|
||
ListBox2.Items.Clear()
|
||
MsgBox("Aucune playlist trouvez", MsgBoxStyle.Critical)
|
||
Else
|
||
ListBox2.Items.Clear()
|
||
supprimerplaylist.ShowDialog()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub CréerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CréerToolStripMenuItem.Click
|
||
addplaylist.ShowDialog()
|
||
End Sub
|
||
Sub nomusique()
|
||
TextBox1.Text = ""
|
||
MsgBox("Il n'y a pas de musique dans le dossier sélectionnez", MsgBoxStyle.Critical)
|
||
End Sub
|
||
|
||
Private Sub ExporterUnePlaylistToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExporterUnePlaylistToolStripMenuItem.Click
|
||
ListBox2.Items.Clear()
|
||
|
||
For Each fichier As String In IO.Directory.GetDirectories(dosplaylist)
|
||
Dim info As New IO.DirectoryInfo(fichier)
|
||
ListBox2.Items.Add(info.Name)
|
||
Next
|
||
If ListBox2.Items.Count = 0 Then
|
||
ListBox2.Items.Clear()
|
||
MsgBox("Aucune playlist trouvez", MsgBoxStyle.Critical)
|
||
Else
|
||
ListBox2.Items.Clear()
|
||
exportplaylist.ShowDialog()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub ImporterUnePlaylistToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ImporterUnePlaylistToolStripMenuItem.Click
|
||
If OpenFileDialog1.ShowDialog = 1 Then
|
||
Directory.CreateDirectory(dosplaylist & "\temp\")
|
||
Dim fileplaylist As String = OpenFileDialog1.FileName
|
||
IO.Compression.ZipFile.ExtractToDirectory(fileplaylist, dosplaylist & "\temp\")
|
||
Dim lines1a() As String = File.ReadAllLines(dosplaylist & "\temp\nom.txt")
|
||
nom = lines1a(0).ToString
|
||
Directory.Delete(dosplaylist & "\temp\", recursive:=True)
|
||
If Directory.Exists(dosplaylist & nom) = True Then
|
||
MsgBox("La playlist: " & nom & " existe déjà", MsgBoxStyle.Critical)
|
||
Else
|
||
ProgressBar1.Value = 0
|
||
ProgressBar1.Style = ProgressBarStyle.Marquee
|
||
ProgressBar1.Show()
|
||
Me.Text = "Importation de la playlist: " & nom
|
||
Me.Enabled = False
|
||
Try
|
||
Directory.CreateDirectory(dosplaylist & "\" & nom & "\")
|
||
BackgroundWorker1.RunWorkerAsync()
|
||
Catch ex As Exception
|
||
ProgressBar1.Hide()
|
||
Me.Text = "Playlist"
|
||
MsgBox("L’Importation de la playlist: " & nom & " est corrompus", MsgBoxStyle.Critical)
|
||
Me.Enabled = True
|
||
End Try
|
||
|
||
End If
|
||
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
|
||
Dim fileplaylist As String = OpenFileDialog1.FileName
|
||
IO.Compression.ZipFile.ExtractToDirectory(fileplaylist, dosplaylist & "\" & nom & "\")
|
||
File.Delete(dosplaylist & "\" & nom & "\nom.txt")
|
||
End Sub
|
||
|
||
Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
|
||
ProgressBar1.Style = ProgressBarStyle.Blocks
|
||
ProgressBar1.Value = 100
|
||
Me.Text = "Playlist"
|
||
MsgBox("La playlist: " & nom & " a bien été importer", MsgBoxStyle.Information)
|
||
nom = ""
|
||
ProgressBar1.Hide()
|
||
Me.Enabled = True
|
||
End Sub
|
||
|
||
Private Sub AjjouterLaMusiqueEnCoursAUnePlalistToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AjjouterLaMusiqueEnCoursAUnePlalistToolStripMenuItem.Click
|
||
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
|
||
ListBox2.Items.Clear()
|
||
|
||
For Each fichier As String In IO.Directory.GetDirectories(dosplaylist)
|
||
Dim info As New IO.DirectoryInfo(fichier)
|
||
ListBox2.Items.Add(info.Name)
|
||
Next
|
||
If ListBox2.Items.Count = 0 Then
|
||
ListBox2.Items.Clear()
|
||
MsgBox("Aucune playlist trouvez", MsgBoxStyle.Critical)
|
||
Else
|
||
ListBox2.Items.Clear()
|
||
Form184.ShowDialog()
|
||
End If
|
||
Else
|
||
MsgBox("Aucun média lancer", MsgBoxStyle.Critical)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
|
||
Dim lines3() As String = File.ReadAllLines(notification)
|
||
If lines3(0) = 1 Then
|
||
changefrplus()
|
||
ElseIf lines3(0) = 0 Then
|
||
changfrfonoplus()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
|
||
Dim lines3() As String = File.ReadAllLines(notification)
|
||
If lines3(0) = 1 Then
|
||
changefrmoins()
|
||
ElseIf lines3(0) = 0 Then
|
||
changfrfonomoins()
|
||
End If
|
||
End Sub
|
||
Sub changefrplus()
|
||
If ListBox1.Items.Count - 1 = index Then
|
||
index = 0
|
||
AxWindowsMediaPlayer1.URL = mp3s(0)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
TextBox2.Text = mp3s(0)
|
||
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
||
Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.ShowBalloonTip(1)
|
||
ListBox1.SetSelected(0, True)
|
||
Else
|
||
index = index + 1
|
||
AxWindowsMediaPlayer1.URL = mp3s(index)
|
||
TextBox2.Text = mp3s(index)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
||
Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.ShowBalloonTip(1)
|
||
ListBox1.SetSelected(index, True)
|
||
End If
|
||
End Sub
|
||
Sub changefrmoins()
|
||
If ListBox1.Items.Count - 1 = index Then
|
||
index = 0
|
||
AxWindowsMediaPlayer1.URL = mp3s(0)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
TextBox2.Text = mp3s(0)
|
||
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
||
Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.ShowBalloonTip(1)
|
||
ListBox1.SetSelected(0, True)
|
||
Else
|
||
index = index - 1
|
||
Try
|
||
AxWindowsMediaPlayer1.URL = mp3s(index)
|
||
Catch ex As Exception
|
||
index = 0
|
||
TextBox2.Text = mp3s(index)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
||
Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.ShowBalloonTip(1)
|
||
ListBox1.SetSelected(index, True)
|
||
End Try
|
||
TextBox2.Text = mp3s(index)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
||
Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.ShowBalloonTip(1)
|
||
ListBox1.SetSelected(index, True)
|
||
End If
|
||
End Sub
|
||
Sub changfrfonoplus()
|
||
If ListBox1.Items.Count - 1 = index Then
|
||
index = 0
|
||
AxWindowsMediaPlayer1.URL = mp3s(0)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
TextBox2.Text = mp3s(0)
|
||
ListBox1.SetSelected(0, True)
|
||
Else
|
||
index = index + 1
|
||
AxWindowsMediaPlayer1.URL = mp3s(index)
|
||
TextBox2.Text = mp3s(index)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
ListBox1.SetSelected(index, True)
|
||
End If
|
||
End Sub
|
||
Sub changfrfonomoins()
|
||
If ListBox1.Items.Count - 1 = index Then
|
||
index = 0
|
||
AxWindowsMediaPlayer1.URL = mp3s(0)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
TextBox2.Text = mp3s(0)
|
||
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
||
Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
Form1.NotifyIcon1.ShowBalloonTip(1)
|
||
ListBox1.SetSelected(0, True)
|
||
Else
|
||
index = index - 1
|
||
Try
|
||
AxWindowsMediaPlayer1.URL = mp3s(index)
|
||
Catch ex As Exception
|
||
index = 0
|
||
TextBox2.Text = mp3s(index)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
ListBox1.SetSelected(index, True)
|
||
End Try
|
||
TextBox2.Text = mp3s(index)
|
||
Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name
|
||
ListBox1.SetSelected(index, True)
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub PlaylistStoreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PlaylistStoreToolStripMenuItem.Click
|
||
Try
|
||
If My.Computer.Network.Ping("www.google.com") = True Then
|
||
Dim maj As New WebClient
|
||
Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
|
||
If vri = 1 Then
|
||
MsgBox("Le serveur de Lecteur média est indisponible", MsgBoxStyle.Critical, "server")
|
||
Else
|
||
playliststore.ShowDialog()
|
||
End If
|
||
Else
|
||
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
|
||
End If
|
||
Catch ex As Exception
|
||
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
|
||
End Try
|
||
End Sub
|
||
End Class |