first commit
This commit is contained in:
@@ -0,0 +1,268 @@
|
||||
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
|
||||
Reference in New Issue
Block a user