1941 lines
123 KiB
VB.net
1941 lines
123 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
|
|
Public Class Form8
|
|
Dim volumep As Integer
|
|
Private Sub OuvrirUneMusiqueToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirUneMusiqueToolStripMenuItem.Click
|
|
Dim lines2() As String = File.ReadAllLines(notification)
|
|
GunaMetroTrackBar1.Enabled = True
|
|
AjoutterAuFavorisToolStripMenuItem.Enabled = True
|
|
If lines2(0) = 1 Then
|
|
ouvrirfr()
|
|
ElseIf lines2(0) = 0 Then
|
|
ouvrirn()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim lines1a() As String = File.ReadAllLines(théme)
|
|
|
|
If lines1a(0) = 2 Then
|
|
Me.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button1.BackColor = Color.FromArgb(64, 64, 64)
|
|
Button1.ForeColor = Color.White
|
|
Button2.ForeColor = Color.White
|
|
Button2.BackColor = Color.FromArgb(64, 64, 64)
|
|
PictureBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
PictureBox2.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)
|
|
Label1.ForeColor = Color.White
|
|
Label1.BackColor = Color.FromArgb(64, 64, 64)
|
|
GunaMetroTrackBar1.BackColor = Color.FromArgb(64, 64, 64)
|
|
MenuStrip1.BackColor = Color.FromArgb(64, 64, 64)
|
|
MenuStrip1.ForeColor = Color.White
|
|
ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
|
|
ComboBox1.ForeColor = Color.White
|
|
OuvrirUneMusiqueToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
OurirLeOptionToolStripMenuItem.ForeColor = Color.White
|
|
OptionToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
OptionToolStripMenuItem.ForeColor = Color.White
|
|
OuvrirUneMusiqueToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
OuvrirUneMusiqueToolStripMenuItem.ForeColor = Color.White
|
|
OurirLeOptionToolStripMenuItem.ForeColor = Color.White
|
|
OurirLeOptionToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
AfficherLesFavorisToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
AfficherLesFavorisToolStripMenuItem.ForeColor = Color.White
|
|
FenêtreToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
FenêtreToolStripMenuItem.ForeColor = Color.White
|
|
MinimizerToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
MinimizerToolStripMenuItem.ForeColor = Color.White
|
|
QuitterToolStripMenuItem.ForeColor = Color.White
|
|
QuitterToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
ToutQuiterToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
ToutQuiterToolStripMenuItem.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
|
|
AjoutterAuFavorisToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
AjoutterAuFavorisToolStripMenuItem.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
|
|
QuitteLeMiniLecteurToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
QuitteLeMiniLecteurToolStripMenuItem.ForeColor = Color.White
|
|
NormalToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
NormalToolStripMenuItem.ForeColor = Color.White
|
|
AllerÀToolStripMenuItem.ForeColor = Color.White
|
|
AllerÀToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
AvanceNormalToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
AvanceNormalToolStripMenuItem.ForeColor = Color.White
|
|
AvanceRapiteToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
AvanceRapiteToolStripMenuItem.ForeColor = Color.White
|
|
MinutesToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64)
|
|
MinutesToolStripMenuItem1.ForeColor = Color.White
|
|
MinutesToolStripMenuItem2.BackColor = Color.FromArgb(64, 64, 64)
|
|
MinutesToolStripMenuItem2.ForeColor = Color.White
|
|
MinutesToolStripMenuItem3.BackColor = Color.FromArgb(64, 64, 64)
|
|
MinutesToolStripMenuItem3.ForeColor = Color.White
|
|
MinutesToolStripMenuItem4.BackColor = Color.FromArgb(64, 64, 64)
|
|
MinutesToolStripMenuItem4.ForeColor = Color.White
|
|
HeuresToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
HeuresToolStripMenuItem.ForeColor = Color.White
|
|
MinutesToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
|
|
MinutesToolStripMenuItem.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
|
|
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
|
|
ToolStripMenuItem102.BackColor = Color.FromArgb(64, 64, 64)
|
|
ToolStripMenuItem102.ForeColor = Color.White
|
|
ElseIf lines1a(0) = 3 Then
|
|
PictureBox3.Image = Form1.PictureBox7.Image
|
|
PlayToolStripMenuItem.Image = Form1.PictureBox7.Image
|
|
PictureBox2.Image = Form1.PictureBox4.Image
|
|
PauseToolStripMenuItem.Image = Form1.PictureBox4.Image
|
|
PictureBox4.Image = Form1.PictureBox5.Image
|
|
StopToolStripMenuItem.Image = Form1.PictureBox5.Image
|
|
PictureBox5.Image = Form1.PictureBox8.Image
|
|
VolumeMuteToolStripMenuItem.Image = Form1.PictureBox8.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)
|
|
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
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.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
PictureBox2.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)
|
|
Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
GunaMetroTrackBar1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
MenuStrip1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
MenuStrip1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
OuvrirUneMusiqueToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
OurirLeOptionToolStripMenuItem.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)
|
|
OuvrirUneMusiqueToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
OuvrirUneMusiqueToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
OurirLeOptionToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
OurirLeOptionToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
AfficherLesFavorisToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
AfficherLesFavorisToolStripMenuItem.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)
|
|
MinimizerToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
MinimizerToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
QuitterToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
QuitterToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ToutQuiterToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ToutQuiterToolStripMenuItem.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)
|
|
AjoutterAuFavorisToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
AjoutterAuFavorisToolStripMenuItem.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)
|
|
QuitteLeMiniLecteurToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
QuitteLeMiniLecteurToolStripMenuItem.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)
|
|
AllerÀToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
AllerÀToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
AvanceNormalToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
AvanceNormalToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
AvanceRapiteToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
AvanceRapiteToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
MinutesToolStripMenuItem1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
MinutesToolStripMenuItem1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
MinutesToolStripMenuItem2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
MinutesToolStripMenuItem2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
MinutesToolStripMenuItem3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
MinutesToolStripMenuItem3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
MinutesToolStripMenuItem4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
MinutesToolStripMenuItem4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
HeuresToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
HeuresToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
MinutesToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
MinutesToolStripMenuItem.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)
|
|
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)
|
|
ToolStripMenuItem102.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
|
ToolStripMenuItem102.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
|
Else
|
|
|
|
End If
|
|
|
|
GunaMetroTrackBar1.Enabled = False
|
|
Timer2.Start()
|
|
ComboBox1.Items.Clear()
|
|
ComboBox1.Items.Add("RFM")
|
|
ComboBox1.Items.Add("RMC")
|
|
ComboBox1.Items.Add("Chérie")
|
|
ComboBox1.Items.Add("Nostalgie France")
|
|
ComboBox1.Items.Add("NRJ France")
|
|
ComboBox1.Items.Add("Rire & Chansons")
|
|
ComboBox1.Items.Add("France Info")
|
|
ComboBox1.Items.Add("Fun Radio France")
|
|
ComboBox1.Items.Add("RTL")
|
|
ComboBox1.Items.Add("Ouï FM")
|
|
For Each fichier As String In IO.Directory.GetDirectories(radio)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
ComboBox1.Items.Add(info.Name)
|
|
Next
|
|
|
|
TextBox1.Hide()
|
|
|
|
Dim lines1() As String = File.ReadAllLines(settings2)
|
|
|
|
If lines1(0) <> 0 Then
|
|
AxWindowsMediaPlayer1.settings.volume = lines1(0)
|
|
End If
|
|
|
|
If lines1(1) = 1 Then
|
|
Me.TopMost = True
|
|
Else
|
|
Me.TopMost = False
|
|
End If
|
|
If lines1(2) = 1 Then
|
|
ComboBox1.Show()
|
|
Else
|
|
ComboBox1.Hide()
|
|
End If
|
|
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = False
|
|
StopToolStripMenuItem.Enabled = False
|
|
PictureBox2.Enabled = True
|
|
PictureBox3.Enabled = True
|
|
PictureBox4.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = False
|
|
AllerToolStripMenuItem.Enabled = False
|
|
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
PictureBox5.Hide()
|
|
AxWindowsMediaPlayer1.enableContextMenu = False
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 1
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 2
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 3
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 4
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 5
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 6
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 7
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 8
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 9
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 10
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 11
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 12
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 13
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 14
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem17_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem17.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 15
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 16
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 17
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 18
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 19
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem22_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem22.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 20
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 21
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem24_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem24.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 22
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem25_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem25.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 23
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem26_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem26.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 24
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem27_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem27.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 25
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem28_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem28.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 26
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem29_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 27
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem30_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem30.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 28
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 29
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem32_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem32.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 30
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem33_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem33.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 31
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem34_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem34.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 32
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem35_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem35.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 33
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem36_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem36.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 34
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem37_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem37.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 35
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem38_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem38.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 36
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem39_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem39.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 37
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem40_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem40.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 38
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem41_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem41.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 39
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem42_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem42.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 40
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem43_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem43.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 41
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem44_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem44.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 42
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem45_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem45.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 43
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem46_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem46.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 44
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem47_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem47.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 45
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem48_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem48.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 46
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem49_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem49.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 47
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem50_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem50.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 48
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem51_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem51.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 49
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem52_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem52.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 50
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem53_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem53.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 51
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem54_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem54.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 52
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem55_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem55.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 53
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem56_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem56.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 54
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem57_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem57.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 55
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem58_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem58.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 56
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem59_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem59.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 57
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem60_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem60.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 58
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem61_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem61.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 59
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem62_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem62.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 60
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem63_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem63.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 61
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem64_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem64.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 62
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem65_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem65.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 63
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem66_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem66.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 64
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem67_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem67.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 65
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem68_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem68.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 66
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem69_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem69.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 67
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem70_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem70.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 68
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem71_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem71.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 69
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem72_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem72.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 70
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem73_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem73.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 71
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem74_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem74.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 72
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem75_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem75.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 73
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem76_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem76.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 74
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem77_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem77.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 75
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem78_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem78.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 76
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem79_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem79.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 77
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem80_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem80.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 78
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem81_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem81.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 79
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem82_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem82.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 80
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem83_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem83.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 81
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem84_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem84.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 82
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem85_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem85.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 83
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem86_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem86.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 84
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem87_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem87.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 85
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem88_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem88.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 86
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem89_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem89.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 87
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem90_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem90.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 88
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem91_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem91.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 89
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem92_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem92.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 90
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem93_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem93.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 91
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem94_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem94.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 92
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem95_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem95.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 93
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem96_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem96.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 94
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem97_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem97.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 95
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem98_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem98.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 96
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem99_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem99.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 97
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem100_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem100.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 98
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem101_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem101.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 99
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem102_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem102.Click
|
|
AxWindowsMediaPlayer1.settings.volume = 100
|
|
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
|
|
PictureBox5.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 & "%"
|
|
If AxWindowsMediaPlayer1.settings.volume = 0 Then
|
|
PictureBox5.Show()
|
|
Else
|
|
PictureBox5.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub VolumeMuteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VolumeMuteToolStripMenuItem.Click
|
|
AxWindowsMediaPlayer1.settings.mute = True
|
|
PictureBox5.Show()
|
|
End Sub
|
|
|
|
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
|
|
If AxWindowsMediaPlayer1.settings.mute = True Then
|
|
AxWindowsMediaPlayer1.settings.mute = False
|
|
AxWindowsMediaPlayer1.settings.volume = 1
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
PictureBox5.Hide()
|
|
Else
|
|
AxWindowsMediaPlayer1.settings.mute = False
|
|
AxWindowsMediaPlayer1.settings.volume = 1
|
|
Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
|
|
PictureBox5.Hide()
|
|
End If
|
|
End Sub
|
|
Sub play()
|
|
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
|
|
AxWindowsMediaPlayer1.Ctlcontrols.play()
|
|
PauseToolStripMenuItem.Enabled = True
|
|
PlayToolStripMenuItem.Enabled = False
|
|
StopToolStripMenuItem.Enabled = True
|
|
PictureBox2.Show()
|
|
PictureBox3.Hide()
|
|
ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
|
|
If TextBox1.Text = "RFM" Or TextBox1.Text = "RMC" Or TextBox1.Text = "Chérie" Or TextBox1.Text = "Nostalgie France" Or TextBox1.Text = "NRJ France" Or TextBox1.Text = "Rire & Chansons" Or TextBox1.Text = "France Info" Or TextBox1.Text = "Fun Radio France" Or TextBox1.Text = "RTL" Or TextBox1.Text = "Ouï FM" Or TextBox1.Text = "radio" Then
|
|
AjoutterAuFavorisToolStripMenuItem.Enabled = False
|
|
AxWindowsMediaPlayer1.Ctlcontrols.play()
|
|
Timer2.Stop()
|
|
GunaMetroTrackBar1.Value = 1
|
|
PauseToolStripMenuItem.Enabled = True
|
|
PlayToolStripMenuItem.Enabled = False
|
|
StopToolStripMenuItem.Enabled = True
|
|
PictureBox2.Show()
|
|
PictureBox3.Hide()
|
|
End If
|
|
AxWindowsMediaPlayer1.Ctlcontrols.play()
|
|
PauseToolStripMenuItem.Enabled = True
|
|
PlayToolStripMenuItem.Enabled = False
|
|
StopToolStripMenuItem.Enabled = True
|
|
PictureBox2.Show()
|
|
PictureBox3.Hide()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
|
play()
|
|
End Sub
|
|
|
|
Private Sub PlayToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PlayToolStripMenuItem.Click
|
|
play()
|
|
End Sub
|
|
Sub pause()
|
|
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
|
|
AxWindowsMediaPlayer1.Ctlcontrols.pause()
|
|
PictureBox2.Hide()
|
|
PictureBox3.Show()
|
|
PauseToolStripMenuItem.Enabled = False
|
|
PlayToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PauseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PauseToolStripMenuItem.Click
|
|
pause()
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
|
pause()
|
|
End Sub
|
|
Sub stop1()
|
|
ComboBox1.DropDownStyle = ComboBoxStyle.Simple
|
|
ComboBox1.SelectedText = ""
|
|
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
|
|
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
|
AxWindowsMediaPlayer1.currentPlaylist.clear()
|
|
TextBox1.Clear()
|
|
End Sub
|
|
|
|
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
|
|
stop1()
|
|
End Sub
|
|
|
|
Private Sub StopToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StopToolStripMenuItem.Click
|
|
stop1()
|
|
End Sub
|
|
|
|
Private Sub QuitteLeMiniLecteurToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitteLeMiniLecteurToolStripMenuItem.Click
|
|
ComboBox1.DropDownStyle = ComboBoxStyle.Simple
|
|
ComboBox1.SelectedText = ""
|
|
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
|
|
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
|
Form1.Show()
|
|
Me.Hide()
|
|
End Sub
|
|
|
|
Private Sub ToutQuiterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToutQuiterToolStripMenuItem.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub MinimizerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimizerToolStripMenuItem.Click
|
|
Me.WindowState = FormWindowState.Minimized
|
|
End Sub
|
|
|
|
Private Sub NormalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NormalToolStripMenuItem.Click
|
|
Me.WindowState = FormWindowState.Normal
|
|
End Sub
|
|
|
|
Private Sub OurirLeOptionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OurirLeOptionToolStripMenuItem.Click
|
|
Form9.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
|
|
fr1()
|
|
End Sub
|
|
Sub fr1()
|
|
Try
|
|
If My.Computer.Network.Ping("www.Google.com") Then
|
|
AjoutterAuFavorisToolStripMenuItem.Enabled = False
|
|
radiofr()
|
|
Timer2.Stop()
|
|
GunaMetroTrackBar1.Value = 1
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information, "Hors connexion")
|
|
End Try
|
|
End Sub
|
|
Sub radiofr()
|
|
Dim lines1() As String = File.ReadAllLines(notification)
|
|
If lines1(0) = 1 Then
|
|
radiofr2()
|
|
ElseIf lines1(0) = 0 Then
|
|
radiofr3()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub AxWindowsMediaPlayer1_StatusChange(sender As Object, e As EventArgs) Handles AxWindowsMediaPlayer1.StatusChange
|
|
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
|
|
AjoutterAuFavorisToolStripMenuItem.Enabled = True
|
|
Timer2.Start()
|
|
PictureBox3.Show()
|
|
PictureBox2.Hide()
|
|
Me.Text = "Mini lecteur"
|
|
End If
|
|
End Sub
|
|
Sub radiofr2()
|
|
Dim sw4 As New StreamWriter(historique)
|
|
If ComboBox1.SelectedItem = "RFM" Then
|
|
AxWindowsMediaPlayer1.URL = "https://ais-live.cloud-services.paris:8443/rfm.mp3"
|
|
Form1.ListBox1.Items.Add("RFM" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous écouter: RFM"
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
Me.Text = "lecteur média" & ": " & "RFM"
|
|
TextBox1.Text = "RFM"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "RMC" Then
|
|
AxWindowsMediaPlayer1.URL = "http://audio.bfmtv.com/rmcradio_128.mp3"
|
|
Form1.ListBox1.Items.Add("RMC" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous écouter: RMC"
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
Me.Text = "lecteur média" & ": " & "RMC"
|
|
TextBox1.Text = "RMC"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "Chérie" Then
|
|
AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30201/mp3_128.mp3?origine=fluxradios"
|
|
Form1.ListBox1.Items.Add("Chérie" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous écouter: Chérie"
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
Me.Text = "lecteur média" & ": " & "Chérie"
|
|
TextBox1.Text = "Chérie"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "Nostalgie France" Then
|
|
AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30601/mp3_128.mp3?origine=fluxradios"
|
|
Form1.ListBox1.Items.Add("Nostalgie France" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous écouter: Nostalgie France"
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
Me.Text = "lecteur média" & ": " & "Nostalgie France"
|
|
TextBox1.Text = "Nostalgie France"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "NRJ France" Then
|
|
AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30001/mp3_128.mp3?origine=fluxradios"
|
|
Form1.ListBox1.Items.Add("NRJ France" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous écouter: NRJ France"
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
Me.Text = "lecteur média" & ": " & "NRJ France"
|
|
TextBox1.Text = "NRJ France"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "Rire & Chansons" Then
|
|
AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30401/mp3_128.mp3?origine=fluxradios"
|
|
Form1.ListBox1.Items.Add("Rire & Chansons" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous écouter: Rire & Chansons"
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
Me.Text = "lecteur média" & ": " & "Rire & Chansons"
|
|
TextBox1.Text = "Rire & Chansons"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "France Info" Then
|
|
AxWindowsMediaPlayer1.URL = "http://direct.franceinfo.fr/live/franceinfo-midfi.mp3"
|
|
Form1.ListBox1.Items.Add("France Info" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous écouter: France Info"
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
Me.Text = "lecteur média" & ": " & "France Info"
|
|
TextBox1.Text = "France Info"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "Fun Radio France" Then
|
|
AxWindowsMediaPlayer1.URL = "http://streaming.radio.funradio.fr/fun-1-48-192"
|
|
Form1.ListBox1.Items.Add("Fun Radio France" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous écouter: Fun Radio France"
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
Me.Text = "lecteur média" & ": " & "Fun Radio France"
|
|
TextBox1.Text = "Fun Radio France"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "RTL" Then
|
|
AxWindowsMediaPlayer1.URL = "http://streaming.radio.rtl.fr/rtl-1-48-192"
|
|
Form1.ListBox1.Items.Add("RTL" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous écouter: RTL"
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
Me.Text = "lecteur média" & ": " & "RTL"
|
|
TextBox1.Text = "RTL"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "Ouï FM" Then
|
|
AxWindowsMediaPlayer1.URL = "http://ouifm.ice.infomaniak.ch/ouifm-high.mp3"
|
|
Form1.ListBox1.Items.Add("Ouï FM" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous écouter: Ouï FM"
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
Me.Text = "lecteur média" & ": " & "Ouï FM"
|
|
TextBox1.Text = "Ouï FM"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
Else
|
|
Dim t1 = radio
|
|
Dim t2 = ComboBox1.SelectedItem
|
|
Dim t3 = t1 & t2 & "\flux.txt"
|
|
Dim lines1() As String = File.ReadAllLines(t3)
|
|
AxWindowsMediaPlayer1.URL = lines1(0)
|
|
Form1.ListBox1.Items.Add(ComboBox1.SelectedItem & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous écouter: " & ComboBox1.SelectedItem
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
Me.Text = "lecteur média" & ": " & ComboBox1.SelectedItem
|
|
TextBox1.Text = "radio"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
End If
|
|
End Sub
|
|
Sub radiofr3()
|
|
Dim sw4 As New StreamWriter(historique)
|
|
If ComboBox1.SelectedItem = "RFM" Then
|
|
AxWindowsMediaPlayer1.URL = "https://ais-live.cloud-services.paris:8443/rfm.mp3"
|
|
Form1.ListBox1.Items.Add("RFM" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Me.Text = "lecteur média" & ": " & "RFM"
|
|
TextBox1.Text = "RFM"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "RMC" Then
|
|
AxWindowsMediaPlayer1.URL = "http://audio.bfmtv.com/rmcradio_128.mp3"
|
|
Form1.ListBox1.Items.Add("RMC" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Me.Text = "lecteur média" & ": " & "RMC"
|
|
TextBox1.Text = "RMC"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "Chérie" Then
|
|
AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30201/mp3_128.mp3?origine=fluxradios"
|
|
Form1.ListBox1.Items.Add("Chérie" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Me.Text = "lecteur média" & ": " & "Chérie"
|
|
TextBox1.Text = "Chérie"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "Nostalgie France" Then
|
|
AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30601/mp3_128.mp3?origine=fluxradios"
|
|
Form1.ListBox1.Items.Add("Nostalgie France" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Me.Text = "lecteur média" & ": " & "Nostalgie France"
|
|
TextBox1.Text = "Nostalgie France"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "NRJ France" Then
|
|
AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30001/mp3_128.mp3?origine=fluxradios"
|
|
Form1.ListBox1.Items.Add("NRJ France" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Me.Text = "lecteur média" & ": " & "NRJ France"
|
|
TextBox1.Text = "NRJ France"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "Rire & Chansons" Then
|
|
AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30401/mp3_128.mp3?origine=fluxradios"
|
|
Form1.ListBox1.Items.Add("Rire & Chansons" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Me.Text = "lecteur média" & ": " & "Rire & Chansons"
|
|
TextBox1.Text = "Rire & Chansons"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "France Info" Then
|
|
AxWindowsMediaPlayer1.URL = "http://direct.franceinfo.fr/live/franceinfo-midfi.mp3"
|
|
Form1.ListBox1.Items.Add("France Info" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Me.Text = "lecteur média" & ": " & "France Info"
|
|
TextBox1.Text = "France Info"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "Fun Radio France" Then
|
|
AxWindowsMediaPlayer1.URL = "http://streaming.radio.funradio.fr/fun-1-48-192"
|
|
Form1.ListBox1.Items.Add("Fun Radio France" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Me.Text = "lecteur média" & ": " & "Fun Radio France"
|
|
TextBox1.Text = "Fun Radio France"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "RTL" Then
|
|
AxWindowsMediaPlayer1.URL = "http://streaming.radio.rtl.fr/rtl-1-48-192"
|
|
Form1.ListBox1.Items.Add("RTL" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Me.Text = "lecteur média" & ": " & "RTL"
|
|
TextBox1.Text = "RTL"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
ElseIf ComboBox1.SelectedItem = "Ouï FM" Then
|
|
AxWindowsMediaPlayer1.URL = "http://ouifm.ice.infomaniak.ch/ouifm-high.mp3"
|
|
Form1.ListBox1.Items.Add("Ouï FM" & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Me.Text = "lecteur média" & ": " & "Ouï FM"
|
|
TextBox1.Text = "Ouï FM"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
Else
|
|
Dim t1 = radio
|
|
Dim t2 = ComboBox1.SelectedItem
|
|
Dim t3 = t1 & t2 & "\flux.txt"
|
|
Dim lines1() As String = File.ReadAllLines(t3)
|
|
AxWindowsMediaPlayer1.URL = lines1(0)
|
|
Form1.ListBox1.Items.Add(ComboBox1.SelectedItem & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Me.Text = "lecteur média" & ": " & ComboBox1.SelectedItem
|
|
TextBox1.Text = "radio"
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PlayToolStripMenuItem.Enabled = False
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
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
|
|
Form19.ShowDialog()
|
|
End Sub
|
|
Sub ouvrirfr()
|
|
If OpenFileDialog1.ShowDialog = 1 Then
|
|
ComboBox1.DropDownStyle = ComboBoxStyle.Simple
|
|
ComboBox1.SelectedText = ""
|
|
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
|
|
Dim sw4 As New StreamWriter(historique)
|
|
AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
|
|
TextBox1.Text = OpenFileDialog1.FileName
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PictureBox2.Enabled = True
|
|
PictureBox3.Enabled = True
|
|
PictureBox4.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
Me.Text = "Mini lecteur" & ":" & " " & AxWindowsMediaPlayer1.currentMedia.name
|
|
Form1.ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
|
|
Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ":" & " " & AxWindowsMediaPlayer1.currentMedia.name
|
|
Form1.NotifyIcon1.ShowBalloonTip(1)
|
|
End If
|
|
End Sub
|
|
Sub ouvrirn()
|
|
Dim sw4 As New StreamWriter(historique)
|
|
If OpenFileDialog1.ShowDialog = 1 Then
|
|
AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
|
|
TextBox1.Text = OpenFileDialog1.FileName
|
|
PauseToolStripMenuItem.Enabled = True
|
|
StopToolStripMenuItem.Enabled = True
|
|
PictureBox3.Hide()
|
|
PictureBox2.Show()
|
|
PictureBox2.Enabled = True
|
|
PictureBox3.Enabled = True
|
|
PictureBox4.Enabled = True
|
|
VitesseToolStripMenuItem.Enabled = True
|
|
AllerToolStripMenuItem.Enabled = True
|
|
Form1.ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
|
|
For Each item In Form1.ListBox1.Items
|
|
sw4.WriteLine(item)
|
|
Next
|
|
sw4.Close()
|
|
Me.Text = "Mini lecteur" & ":" & " " & AxWindowsMediaPlayer1.currentMedia.name
|
|
End If
|
|
End Sub
|
|
Private Sub InformationDuMédiaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InformationDuMédiaToolStripMenuItem.Click
|
|
Form68.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub AjoutterAuFavorisToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AjoutterAuFavorisToolStripMenuItem.Click
|
|
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
|
|
Form90.ShowDialog()
|
|
Else
|
|
MsgBox("Vous n'avez rien lancer sur le lecteur", MsgBoxStyle.Information)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub AfficherLesFavorisToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AfficherLesFavorisToolStripMenuItem.Click
|
|
Form91.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub Form8_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()
|
|
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()
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.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 Form8_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
|
|
PictureBox3.Hide()
|
|
PictureBox2.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
|
|
PictureBox3.Show()
|
|
PictureBox2.Hide()
|
|
Exit Sub
|
|
End If
|
|
End Sub
|
|
End Class |