1083 lines
60 KiB
VB.net
1083 lines
60 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Net
|
|
|
|
Public Class upséries
|
|
Public pages As Integer = 1
|
|
Public pagesacctuel As Integer = 1
|
|
Public dostempfilm As String = ""
|
|
Private Sub upséries_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.BackColor = Form1.BackColor
|
|
Me.ForeColor = Form1.ForeColor
|
|
PictureBox1.BackColor = BackColor
|
|
PictureBox2.BackColor = BackColor
|
|
PictureBox3.BackColor = BackColor
|
|
PictureBox4.BackColor = BackColor
|
|
PictureBox5.BackColor = BackColor
|
|
PictureBox6.BackColor = BackColor
|
|
PictureBox7.BackColor = BackColor
|
|
PictureBox8.BackColor = BackColor
|
|
Button3.BackColor = BackColor
|
|
Button5.BackColor = BackColor
|
|
Button6.BackColor = BackColor
|
|
MenuStrip1.BackColor = BackColor
|
|
SériesToolStripMenuItem.BackColor = BackColor
|
|
SériesToolStripMenuItem.ForeColor = ForeColor
|
|
NouvelleSériesToolStripMenuItem.BackColor = BackColor
|
|
NouvelleSériesToolStripMenuItem.ForeColor = ForeColor
|
|
ComboBox1.BackColor = BackColor
|
|
ComboBox1.ForeColor = ForeColor
|
|
ComboBox1.Items.Clear()
|
|
Dim fwr5 As FtpWebRequest
|
|
fwr5 = FtpWebRequest.Create(ipserver & "/Série/find/")
|
|
fwr5.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr5.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr1 As New StreamReader(fwr5.GetResponse().GetResponseStream())
|
|
|
|
Dim str1 As String = sr1.ReadLine()
|
|
While Not str1 Is Nothing
|
|
|
|
Dim azaz = str1.Replace(".txt", "")
|
|
|
|
ComboBox1.Items.Add(azaz)
|
|
|
|
str1 = sr1.ReadLine()
|
|
|
|
End While
|
|
|
|
sr1.Close()
|
|
|
|
If Directory.Exists(dosier) = True Then
|
|
For Each fichier1 As String In IO.Directory.GetDirectories(dosier)
|
|
Dim info As New IO.FileInfo(fichier1)
|
|
Directory.Delete(fichier1, recursive:=True)
|
|
Next
|
|
Directory.Delete(dosier)
|
|
End If
|
|
ListBox1.Hide()
|
|
dostempfilm = dosier & "\temp\"
|
|
If Directory.Exists(dostempfilm) = True Then
|
|
|
|
Else
|
|
Directory.CreateDirectory(dostempfilm)
|
|
End If
|
|
|
|
|
|
Dim fwr As FtpWebRequest
|
|
fwr = FtpWebRequest.Create(ipserver & "/Série/pages/")
|
|
fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
|
|
fwr.Method = WebRequestMethods.Ftp.ListDirectory
|
|
Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
|
|
|
|
Dim str As String = sr.ReadLine()
|
|
While Not str Is Nothing
|
|
|
|
ListBox1.Items.Add(str)
|
|
|
|
str = sr.ReadLine()
|
|
End While
|
|
|
|
sr.Close()
|
|
|
|
pages = ListBox1.Items.Count
|
|
|
|
pagesacctuel = 1
|
|
Me.Text = "upséries " & pagesacctuel & "/" & pages
|
|
|
|
Button5.Enabled = False
|
|
Button6.Enabled = True
|
|
|
|
Button6.Focus()
|
|
|
|
If ListBox1.Items.Count = 1 Then
|
|
Button6.Enabled = False
|
|
Button5.Enabled = False
|
|
End If
|
|
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt")
|
|
If vri = 1 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 2 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 3 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 4 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 5 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 6 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 7 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 8 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série8/image.jpg", dostempfilm & "image8.jpg")
|
|
PictureBox8.Image = Image.FromFile(dostempfilm & "image8.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
|
If pagesacctuel = ListBox1.Items.Count Then
|
|
|
|
Else
|
|
Button6.Enabled = False
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt")
|
|
If vri2 = 1 Then
|
|
PictureBox1.Image.Dispose()
|
|
ElseIf vri2 = 2 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
ElseIf vri2 = 3 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
ElseIf vri2 = 4 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
ElseIf vri2 = 5 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
ElseIf vri2 = 6 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
ElseIf vri2 = 7 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
ElseIf vri2 = 8 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
PictureBox8.Image.Dispose()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetFiles(dostempfilm)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dostempfilm & info.Name)
|
|
Next
|
|
|
|
pagesacctuel = pagesacctuel + 1
|
|
Button3.Text = pagesacctuel
|
|
Me.Text = "upséries pages " & pagesacctuel & "/" & pages
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt")
|
|
If vri = 1 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 2 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 3 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 4 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 5 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 6 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 7 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 8 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série8/image.jpg", dostempfilm & "image8.jpg")
|
|
PictureBox8.Image = Image.FromFile(dostempfilm & "image8.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Show()
|
|
End If
|
|
End If
|
|
|
|
If pagesacctuel = ListBox1.Items.Count Then
|
|
Button6.Enabled = False
|
|
Button5.Focus()
|
|
Else
|
|
Button6.Enabled = True
|
|
Button6.Focus()
|
|
End If
|
|
|
|
Button5.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
If pagesacctuel = 1 Then
|
|
|
|
Else
|
|
Button5.Enabled = False
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt")
|
|
If vri2 = 1 Then
|
|
PictureBox1.Image.Dispose()
|
|
ElseIf vri2 = 2 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
|
|
ElseIf vri2 = 3 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
ElseIf vri2 = 4 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
ElseIf vri2 = 5 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
ElseIf vri2 = 6 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
ElseIf vri2 = 7 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
ElseIf vri2 = 8 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
PictureBox8.Image.Dispose()
|
|
End If
|
|
|
|
For Each fichier As String In IO.Directory.GetFiles(dostempfilm)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dostempfilm & info.Name)
|
|
Next
|
|
|
|
pagesacctuel = pagesacctuel - 1
|
|
Button3.Text = pagesacctuel
|
|
Me.Text = "upséries pages " & pagesacctuel & "/" & pages
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt")
|
|
If vri = 1 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 2 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 3 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 4 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 5 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 6 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 7 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 8 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série8/image.jpg", dostempfilm & "image8.jpg")
|
|
PictureBox8.Image = Image.FromFile(dostempfilm & "image8.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Show()
|
|
End If
|
|
If pagesacctuel = 1 Then
|
|
|
|
Button5.Enabled = False
|
|
Button6.Focus()
|
|
Else
|
|
Button5.Enabled = True
|
|
Button5.Focus()
|
|
End If
|
|
Button6.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub upséries_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "Série/pages/page" & pagesacctuel & "/Série.txt")
|
|
If vri2 = 1 Then
|
|
PictureBox1.Image.Dispose()
|
|
ElseIf vri2 = 2 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
ElseIf vri2 = 3 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
ElseIf vri2 = 4 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
ElseIf vri2 = 5 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
ElseIf vri2 = 6 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
ElseIf vri2 = 7 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
ElseIf vri2 = 8 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
PictureBox8.Image.Dispose()
|
|
End If
|
|
For Each fichier As String In IO.Directory.GetFiles(dostempfilm)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dostempfilm & info.Name)
|
|
Next
|
|
ListBox1.Items.Clear()
|
|
pages = 1
|
|
pagesacctuel = 1
|
|
Button3.Text = pagesacctuel
|
|
|
|
nouvelle_série.PictureBox1.Image.Dispose()
|
|
nouvelle_série.PictureBox1.Image = My.Resources._40140
|
|
|
|
|
|
If Directory.Exists(dosier) = True Then
|
|
For Each fichier1 As String In IO.Directory.GetDirectories(dosier)
|
|
Dim info As New IO.FileInfo(fichier1)
|
|
Directory.Delete(fichier1, recursive:=True)
|
|
Next
|
|
Directory.Delete(dosier)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub NouvelleSériesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NouvelleSériesToolStripMenuItem.Click
|
|
nouvelle_série.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série1/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
upséries2.nom = lines1(0)
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image1.jpg")
|
|
upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série1/"
|
|
upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série1/"
|
|
upséries2.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série2/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
upséries2.nom = lines1(0)
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image2.jpg")
|
|
upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série2/"
|
|
upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série2/"
|
|
upséries2.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série3/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
upséries2.nom = lines1(0)
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image3.jpg")
|
|
upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série3/"
|
|
upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série3/"
|
|
upséries2.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série4/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
upséries2.nom = lines1(0)
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image4.jpg")
|
|
upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série4/"
|
|
upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série4/"
|
|
upséries2.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série5/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
upséries2.nom = lines1(0)
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image5.jpg")
|
|
upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série5/"
|
|
upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série5/"
|
|
upséries2.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série6/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
upséries2.nom = lines1(0)
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image6.jpg")
|
|
upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série6/"
|
|
upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série6/"
|
|
upséries2.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série7/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
upséries2.nom = lines1(0)
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image7.jpg")
|
|
upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série7/"
|
|
upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série7/"
|
|
upséries2.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/Série8/nom.txt", dostempfilm & "nom.txt")
|
|
Dim lines1() As String = File.ReadAllLines(dostempfilm & "nom.txt")
|
|
upséries2.nom = lines1(0)
|
|
File.Delete(dostempfilm & "nom.txt")
|
|
upséries2.PictureBox1.Image = Image.FromFile(dostempfilm & "\image8.jpg")
|
|
upséries2.urllike = ipserver & "/Série/pages/page" & pagesacctuel & "/Série8/"
|
|
upséries2.url = ipsite & "/Série/pages/page" & pagesacctuel & "/Série8/"
|
|
upséries2.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
|
|
Dim maj20 As New WebClient
|
|
Dim vri20 As String = maj20.DownloadString(ipsite & "/Série/find/" & ComboBox1.SelectedItem & ".txt")
|
|
Button6.Enabled = False
|
|
Dim maj2 As New WebClient
|
|
Dim vri2 As String = maj2.DownloadString(ipsite & "/Série/pages/page" & pagesacctuel & "/série.txt")
|
|
If vri2 = 1 Then
|
|
PictureBox1.Image.Dispose()
|
|
ElseIf vri2 = 2 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
ElseIf vri2 = 3 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
ElseIf vri2 = 4 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
ElseIf vri2 = 5 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
ElseIf vri2 = 6 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
ElseIf vri2 = 7 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
ElseIf vri2 = 8 Then
|
|
PictureBox1.Image.Dispose()
|
|
PictureBox2.Image.Dispose()
|
|
PictureBox3.Image.Dispose()
|
|
PictureBox4.Image.Dispose()
|
|
PictureBox5.Image.Dispose()
|
|
PictureBox6.Image.Dispose()
|
|
PictureBox7.Image.Dispose()
|
|
PictureBox8.Image.Dispose()
|
|
End If
|
|
|
|
Try
|
|
For Each fichier As String In IO.Directory.GetFiles(dostempfilm)
|
|
Dim info As New IO.FileInfo(fichier)
|
|
File.Delete(dostempfilm & info.Name)
|
|
Next
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
End Try
|
|
|
|
pagesacctuel = vri20
|
|
Button3.Text = pagesacctuel
|
|
Me.Text = "upséries " & pagesacctuel & "/" & pages
|
|
Dim maj As New WebClient
|
|
Dim vri As String = maj.DownloadString(ipsite & "/Série/pages/page" & pagesacctuel & "/série.txt")
|
|
If vri = 1 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "/Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Hide()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 2 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Hide()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 3 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Hide()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 4 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Hide()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 5 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Hide()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 6 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Hide()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 7 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/fsérie6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Hide()
|
|
ElseIf vri = 8 Then
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série1/image.jpg", dostempfilm & "image1.jpg")
|
|
PictureBox1.Image = Image.FromFile(dostempfilm & "image1.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série2/image.jpg", dostempfilm & "image2.jpg")
|
|
PictureBox2.Image = Image.FromFile(dostempfilm & "image2.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série3/image.jpg", dostempfilm & "image3.jpg")
|
|
PictureBox3.Image = Image.FromFile(dostempfilm & "image3.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série4/image.jpg", dostempfilm & "image4.jpg")
|
|
PictureBox4.Image = Image.FromFile(dostempfilm & "image4.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série5/image.jpg", dostempfilm & "image5.jpg")
|
|
PictureBox5.Image = Image.FromFile(dostempfilm & "image5.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série6/image.jpg", dostempfilm & "image6.jpg")
|
|
PictureBox6.Image = Image.FromFile(dostempfilm & "image6.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série7/image.jpg", dostempfilm & "image7.jpg")
|
|
PictureBox7.Image = Image.FromFile(dostempfilm & "image7.jpg")
|
|
My.Computer.Network.DownloadFile(ipsite & "Série/pages/page" & pagesacctuel & "/série8/image.jpg", dostempfilm & "image8.jpg")
|
|
PictureBox8.Image = Image.FromFile(dostempfilm & "image8.jpg")
|
|
PictureBox1.Show()
|
|
PictureBox2.Show()
|
|
PictureBox3.Show()
|
|
PictureBox4.Show()
|
|
PictureBox5.Show()
|
|
PictureBox6.Show()
|
|
PictureBox7.Show()
|
|
PictureBox8.Show()
|
|
End If
|
|
|
|
If pagesacctuel = ListBox1.Items.Count Then
|
|
Button5.Enabled = False
|
|
Button6.Focus()
|
|
Else
|
|
Button6.Enabled = True
|
|
Button5.Enabled = True
|
|
Button5.Focus()
|
|
End If
|
|
|
|
Button5.Enabled = True
|
|
|
|
If pagesacctuel = 1 Then
|
|
Button5.Enabled = False
|
|
Button6.Enabled = True
|
|
Button5.Focus()
|
|
End If
|
|
End Sub
|
|
End Class |