Seçtiğiniz Resimler Arasında Geçişler Yapma

2 Tane button ekleyin ve kodları yapıştırın(hata yok) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Enabled = False

Timer1.Interval = 1000

PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize

OpenFileDialog1.ShowHelp = True

OpenFileDialog1.Filter = "Resimler|*.GIF;*.BMP;*.JPG;*.WMF;*.PNG;*.ICO"

OpenFileDialog1.Title = "Gösterilecek Resimleri Seçiniz"


OpenFileDialog1.Multiselect = True

OpenFileDialog2.ShowHelp = True

OpenFileDialog2.Filter = "Geçici dosyalar|*.TMP;*.~*;~*.*|" & _

"Bütün dosyalar|*.*"

OpenFileDialog2.Title = "Sileceğniz Dosyaları Seçiniz"

OpenFileDialog2.Multiselect = True

OpenFileDialog2.ShowReadOnly = True




End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

Timer1.Enabled = True

End If

End Sub



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


If OpenFileDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then

Dim c As DialogResult

c = MsgBox("Dikkat! Seçtiğiniz bütün dosyalar silinecek", _

MsgBoxStyle.Critical MsgBoxStyle.OkCancel MsgBoxStyle.DefaultButton2, _

"Dikkat")

If c = Windows.Forms.DialogResult.OK Then

Dim i

For i = 0 To OpenFileDialog2.FileNames.Length - 1


Try

Kill(OpenFileDialog2.FileNames(i))

Catch

MsgBox(OpenFileDialog2.FileNames(i) & " Bu dosya silinemedi")

End Try

Next

End If

End If


End Sub



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Static i

i = 1

i = i Mod OpenFileDialog1.FileNames.Length()

Try

PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileNames(i))

Me.Text = OpenFileDialog1.FileNames(i)


Catch

Me.Text = OpenFileDialog1.FileNames(i) & " dosyası geçersiz"

End Try

End Sub



Private Sub OpenFileDialog1_HelpRequest(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenFileDialog1.HelpRequest

MsgBox("Gösterilecek resimleri seçiniz. Birden fazla resmi seçmek için Shift veya Ctrl tuşlarını basılı tutunuz")

End Sub




Private Sub OpenFileDialog2_HelpRequest(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenFileDialog2.HelpRequest

MsgBox("Silinecek dosyaları seçiniz. Birden fazla resmi seçmek için Shift veya Ctrl tuşlarını basılı tutunuz")

End Sub