268 lines
14 KiB
VB.net
268 lines
14 KiB
VB.net
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 |