Imports System.ComponentModel Imports System.IO Imports System.Net Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Status Public Class Form33 Dim intex As Integer = 1 Dim nimage As Integer = 0 Private Sub Form33_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim maj1 As New WebClient Dim vri1 As String = maj1.DownloadString(Form32.urldl & "/image.txt") nimage = vri1 If vri1 = 1 Then My.Computer.Network.DownloadFile(Form32.urldl & "/image1.png", dostemps & "image1.png") PictureBox1.Image = Image.FromFile(dostemps & "image1.png") ElseIf vri1 = 2 Then My.Computer.Network.DownloadFile(Form32.urldl & "/image1.png", dostemps & "image1.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image2.png", dostemps & "image2.png") PictureBox1.Image = Image.FromFile(dostemps & "image1.png") ElseIf vri1 = 3 Then My.Computer.Network.DownloadFile(Form32.urldl & "/image1.png", dostemps & "image1.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image2.png", dostemps & "image2.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image3.png", dostemps & "image3.png") PictureBox1.Image = Image.FromFile(dostemps & "image1.png") ElseIf vri1 = 4 Then My.Computer.Network.DownloadFile(Form32.urldl & "/image1.png", dostemps & "image1.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image2.png", dostemps & "image2.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image3.png", dostemps & "image3.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image4.png", dostemps & "image4.png") PictureBox1.Image = Image.FromFile(dostemps & "image1.png") ElseIf vri1 = 5 Then My.Computer.Network.DownloadFile(Form32.urldl & "/image1.png", dostemps & "image1.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image2.png", dostemps & "image2.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image3.png", dostemps & "image3.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image4.png", dostemps & "image4.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image5.png", dostemps & "image5.png") PictureBox1.Image = Image.FromFile(dostemps & "image1.png") ElseIf vri1 = 6 Then My.Computer.Network.DownloadFile(Form32.urldl & "/image1.png", dostemps & "image1.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image2.png", dostemps & "image2.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image3.png", dostemps & "image3.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image4.png", dostemps & "image4.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image5.png", dostemps & "image5.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image6.png", dostemps & "image6.png") PictureBox1.Image = Image.FromFile(dostemps & "image1.png") ElseIf vri1 = 7 Then My.Computer.Network.DownloadFile(Form32.urldl & "/image1.png", dostemps & "image1.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image2.png", dostemps & "image2.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image3.png", dostemps & "image3.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image4.png", dostemps & "image4.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image5.png", dostemps & "image5.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image6.png", dostemps & "image6.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image7.png", dostemps & "image7.png") PictureBox1.Image = Image.FromFile(dostemps & "image1.png") ElseIf vri1 = 8 Then My.Computer.Network.DownloadFile(Form32.urldl & "/image1.png", dostemps & "image1.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image2.png", dostemps & "image2.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image3.png", dostemps & "image3.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image4.png", dostemps & "image4.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image5.png", dostemps & "image5.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image6.png", dostemps & "image6.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image7.png", dostemps & "image7.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image8.png", dostemps & "image8.png") PictureBox1.Image = Image.FromFile(dostemps & "image1.png") ElseIf vri1 = 9 Then My.Computer.Network.DownloadFile(Form32.urldl & "/image1.png", dostemps & "image1.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image2.png", dostemps & "image2.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image3.png", dostemps & "image3.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image4.png", dostemps & "image4.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image5.png", dostemps & "image5.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image6.png", dostemps & "image6.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image7.png", dostemps & "image7.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image8.png", dostemps & "image8.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image9.png", dostemps & "image9.png") PictureBox1.Image = Image.FromFile(dostemps & "image1.png") ElseIf vri1 = 10 Then My.Computer.Network.DownloadFile(Form32.urldl & "/image1.png", dostemps & "image1.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image2.png", dostemps & "image2.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image3.png", dostemps & "image3.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image4.png", dostemps & "image4.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image5.png", dostemps & "image5.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image6.png", dostemps & "image6.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image7.png", dostemps & "image7.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image8.png", dostemps & "image8.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image9.png", dostemps & "image9.png") My.Computer.Network.DownloadFile(Form32.urldl & "/image10.png", dostemps & "image10.png") PictureBox1.Image = Image.FromFile(dostemps & "image1.png") End If Text = "image de " & Form32.Text & " " & intex & "/" & nimage End Sub Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click If intex = nimage Then intex = 1 PictureBox1.Image.Dispose() PictureBox1.Image = Image.FromFile(dostemps & "image1.png") Text = "image de " & Form32.Text & " " & intex & "/" & nimage Else intex = intex + 1 PictureBox1.Image.Dispose() PictureBox1.Image = Image.FromFile(dostemps & "image" & intex & ".png") Text = "image de " & Form32.Text & " " & intex & "/" & nimage End If End Sub Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click If intex = 1 Then PictureBox1.Image.Dispose() PictureBox1.Image = Image.FromFile(dostemps & "image" & nimage & ".png") intex = nimage Text = "image de " & Form32.Text & " " & intex & "/" & nimage Else intex = intex - 1 PictureBox1.Image.Dispose() PictureBox1.Image = Image.FromFile(dostemps & "image" & intex & ".png") Text = "image de " & Form32.Text & " " & intex & "/" & nimage End If End Sub Private Sub Form33_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing PictureBox1.Image.Dispose() If nimage = 1 Then File.Delete(dostemps & "image1.png") ElseIf nimage = 2 Then File.Delete(dostemps & "image1.png") File.Delete(dostemps & "image2.png") ElseIf nimage = 3 Then File.Delete(dostemps & "image1.png") File.Delete(dostemps & "image2.png") File.Delete(dostemps & "image3.png") ElseIf nimage = 4 Then File.Delete(dostemps & "image1.png") File.Delete(dostemps & "image2.png") File.Delete(dostemps & "image3.png") File.Delete(dostemps & "image4.png") ElseIf nimage = 5 Then File.Delete(dostemps & "image1.png") File.Delete(dostemps & "image2.png") File.Delete(dostemps & "image3.png") File.Delete(dostemps & "image4.png") File.Delete(dostemps & "image5.png") ElseIf nimage = 6 Then File.Delete(dostemps & "image1.png") File.Delete(dostemps & "image2.png") File.Delete(dostemps & "image3.png") File.Delete(dostemps & "image4.png") File.Delete(dostemps & "image5.png") File.Delete(dostemps & "image6.png") ElseIf nimage = 7 Then File.Delete(dostemps & "image1.png") File.Delete(dostemps & "image2.png") File.Delete(dostemps & "image3.png") File.Delete(dostemps & "image4.png") File.Delete(dostemps & "image5.png") File.Delete(dostemps & "image6.png") File.Delete(dostemps & "image7.png") ElseIf nimage = 8 Then File.Delete(dostemps & "image1.png") File.Delete(dostemps & "image2.png") File.Delete(dostemps & "image3.png") File.Delete(dostemps & "image4.png") File.Delete(dostemps & "image5.png") File.Delete(dostemps & "image6.png") File.Delete(dostemps & "image7.png") File.Delete(dostemps & "image8.png") ElseIf nimage = 9 Then File.Delete(dostemps & "image1.png") File.Delete(dostemps & "image2.png") File.Delete(dostemps & "image3.png") File.Delete(dostemps & "image4.png") File.Delete(dostemps & "image5.png") File.Delete(dostemps & "image6.png") File.Delete(dostemps & "image7.png") File.Delete(dostemps & "image8.png") File.Delete(dostemps & "image9.png") ElseIf nimage = 10 Then File.Delete(dostemps & "image1.png") File.Delete(dostemps & "image2.png") File.Delete(dostemps & "image3.png") File.Delete(dostemps & "image4.png") File.Delete(dostemps & "image5.png") File.Delete(dostemps & "image6.png") File.Delete(dostemps & "image7.png") File.Delete(dostemps & "image8.png") File.Delete(dostemps & "image9.png") File.Delete(dostemps & "image10.png") End If nimage = 0 intex = 1 End Sub Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint End Sub Private Sub Panel1_Click(sender As Object, e As EventArgs) Handles Panel1.Click If intex = nimage Then intex = 1 PictureBox1.Image.Dispose() PictureBox1.Image = Image.FromFile(dostemps & "image1.png") Text = "image de " & Form32.Text & " " & intex & "/" & nimage Else intex = intex + 1 PictureBox1.Image.Dispose() PictureBox1.Image = Image.FromFile(dostemps & "image" & intex & ".png") Text = "image de " & Form32.Text & " " & intex & "/" & nimage End If End Sub Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs) Handles Panel2.Paint End Sub Private Sub Panel2_Click(sender As Object, e As EventArgs) Handles Panel2.Click If intex = 1 Then PictureBox1.Image.Dispose() PictureBox1.Image = Image.FromFile(dostemps & "image" & nimage & ".png") intex = nimage Text = "image de " & Form32.Text & " " & intex & "/" & nimage Else intex = intex - 1 PictureBox1.Image.Dispose() PictureBox1.Image = Image.FromFile(dostemps & "image" & intex & ".png") Text = "image de " & Form32.Text & " " & intex & "/" & nimage End If End Sub Private Sub Panel2_MouseEnter(sender As Object, e As EventArgs) Handles Panel2.MouseEnter Panel2.BackColor = Color.FromArgb(32, 32, 32) PictureBox3.BackColor = Color.FromArgb(32, 32, 32) End Sub Private Sub Panel2_MouseLeave(sender As Object, e As EventArgs) Handles Panel2.MouseLeave Panel2.BackColor = Color.FromArgb(64, 64, 64) PictureBox3.BackColor = Color.FromArgb(64, 64, 64) End Sub Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox3.MouseEnter Panel2.BackColor = Color.FromArgb(32, 32, 32) PictureBox3.BackColor = Color.FromArgb(32, 32, 32) End Sub Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox3.MouseLeave Panel2.BackColor = Color.FromArgb(64, 64, 64) PictureBox3.BackColor = Color.FromArgb(64, 64, 64) End Sub Private Sub Panel1_MouseEnter(sender As Object, e As EventArgs) Handles Panel1.MouseEnter Panel1.BackColor = Color.FromArgb(32, 32, 32) PictureBox2.BackColor = Color.FromArgb(32, 32, 32) End Sub Private Sub Panel1_MouseLeave(sender As Object, e As EventArgs) Handles Panel1.MouseLeave Panel1.BackColor = Color.FromArgb(64, 64, 64) PictureBox2.BackColor = Color.FromArgb(64, 64, 64) End Sub Private Sub PictureBox2_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox2.MouseEnter Panel1.BackColor = Color.FromArgb(32, 32, 32) PictureBox2.BackColor = Color.FromArgb(32, 32, 32) End Sub Private Sub PictureBox2_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox2.MouseLeave Panel1.BackColor = Color.FromArgb(64, 64, 64) PictureBox2.BackColor = Color.FromArgb(64, 64, 64) End Sub End Class