Mesut

Public Class Form1
    Private Sub Ekle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rsm_Ekle.Click
        Try
            OpenFileDialog1.Multiselect = False ' fazladan seçemiyo (heralde :s )
            OpenFileDialog1.ShowDialog() ' OFDialog'u açtık.
            TextBox1.Text = OpenFileDialog1.FileName ' Dosya yolu ..
            ListBox1.Items.Add(TextBox1.Text) ' Kasten Text'den aldım dosya yolunu . OFDialogdan alıyodum ama daha şekil oluyo kod böyle (h) + Herhangi bir dosya seçilmemişse işime yarıyo ;)
            OpenFileDialog1.Filter = "Jpeg dosyası |*.jpg" ' vsvs... resim uzantıları
            OpenFileDialog1.Title = "Resim seç" ' OFDialog başlığını ayarladık.
            PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName) ' Seçtiğimizi pbox'da gösterdik.
            If TextBox1.Text = "OpenFileDialog1" Then ' Catch'de olmadı Allah Allah :s 
                MsgBox("Resim seçmemiş olabilir misiniz ?")
                TextBox1.Text = TextBox1.Text + ""
            End If
        Catch
        End Try
    End Sub

    Private Sub Goster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sld_Basla.Click
        Try
            Dim sorusn
            sorusn = InputBox("Resim kaç sn. aralıklarla gösterilecek ? (örn: 100 = 1sn)")
            Dim Slide_Dongu As Integer
            For Slide_Dongu = 0 To ListBox1.Items.Count - 1 ' 0 , Lbox1 =)
                PictureBox1.Image = Image.FromFile(ListBox1.Items(Slide_Dongu).ToString) ' a'dan o anki resme kadar !
                System.Threading.Thread.Sleep(sorusn) ' Yeni öğrendim ne yalan atım :d bare şekil olsun Inputdan alıyım saniyeyi dedim =)
            Next
        Catch
        End Try
    End Sub