Visual Basic Dersleri - Seçtiğiniz Resimler Arasında Geçiş Yapma

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

  Bu Ders Hakkında Sorularınız Varsa Lütfen Buraya Tıklayarak Forum Sayfamızda Bu Konunun Başlığı Hakkında Sorunlarınızı Yazınız.

2 tane button yapıştırın kodlar aşağıdadır. 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