73 lines
3.0 KiB
VB.net
73 lines
3.0 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Reflection
|
|
Imports System.Reflection.Emit
|
|
|
|
Public Class Form9
|
|
Dim index = 0
|
|
Dim index2 = 1
|
|
Private Sub Form9_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
index = 0
|
|
index2 = 1
|
|
Form7.ListBox1.SelectedIndex = index
|
|
PictureBox4.Image = Image.FromFile(dostemps & "\imges\" & Form7.ListBox1.SelectedItem)
|
|
Text = "image " & index2 & "/" & Form7.ListBox1.Items.Count
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
|
PictureBox4.Image.Dispose()
|
|
If index = Form7.ListBox1.Items.Count - 1 Then
|
|
index = 0
|
|
index2 = index + 1
|
|
Form7.ListBox1.SelectedIndex = index
|
|
PictureBox4.Image = Image.FromFile(dostemps & "\imges\" & Form7.ListBox1.SelectedItem)
|
|
Text = "image " & index2 & "/" & Form7.ListBox1.Items.Count
|
|
Else
|
|
index = index + 1
|
|
index2 = index + 1
|
|
Form7.ListBox1.SelectedIndex = index
|
|
PictureBox4.Image = Image.FromFile(dostemps & "\imges\" & Form7.ListBox1.SelectedItem)
|
|
Text = "image " & index2 & "/" & Form7.ListBox1.Items.Count
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
PictureBox4.Image.Dispose()
|
|
If index = 0 Then
|
|
Form7.ListBox1.SelectedIndex = Form7.ListBox1.Items.Count - 1
|
|
index = Form7.ListBox1.Items.Count
|
|
index2 = index
|
|
PictureBox4.Image = Image.FromFile(dostemps & "\imges\" & Form7.ListBox1.SelectedItem)
|
|
Text = "image " & index2 & "/" & Form7.ListBox1.Items.Count
|
|
Else
|
|
index = index - 1
|
|
index2 = index + 1
|
|
Form7.ListBox1.SelectedIndex = index
|
|
PictureBox4.Image = Image.FromFile(dostemps & "\imges\" & Form7.ListBox1.SelectedItem)
|
|
Text = "image " & index2 & "/" & Form7.ListBox1.Items.Count
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
|
Dim msg = MsgBox("voulez vous vraiment supprimer l'image:" & Form7.ListBox1.SelectedItem & " ?", MsgBoxStyle.YesNo)
|
|
If msg = MsgBoxResult.Yes Then
|
|
PictureBox4.Image.Dispose()
|
|
File.Delete(dostemps & "\imges\" & Form7.ListBox1.SelectedItem)
|
|
Form7.ListBox1.Items.Clear()
|
|
For Each fichier As String In IO.Directory.GetFiles(dostemps & "\imges\")
|
|
Dim info As New IO.FileInfo(fichier)
|
|
Form7.ListBox1.Items.Add(info.Name)
|
|
Next
|
|
Form7.Label8.Text = Form7.ListBox1.Items.Count
|
|
MsgBox("L'image a bien êtê suppimer", MsgBoxStyle.Information)
|
|
Close()
|
|
Else
|
|
MsgBox("action annuler", MsgBoxStyle.Information)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form9_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
PictureBox4.Image.Dispose()
|
|
End Sub
|
|
End Class |