Open File Dialog Komutu

          Bir resim yöneticisinde, pdf dosyalarını açtığımız programlarda çoğu zaman var olan dosyaları rahatlıkla açabiliriz. Hatta kimileri filtrelenmiş bir şekilde açılır. Mesela sadece resim dosyalarının görüntülenmesi için seçeceğimiz uzantılar da bellidir. 

          Bu komutu öğrenmek için bir örnek hazırlayalım ve bu dialog komutunun önemli özelliklerini tanıyalım.

    -      Öncelikle aşağıdaki form örneğinin aynısı visual studioda hazırlayalım.

    -      Ardından form üzerine OpenFileDialog nesnesini bırakalım.

    -      Şimdi OpenFileDialog nesnesinin Properties ayarlarına gelelim. Tittle özelline gelerek, bu pencere açıldığında sol üst köşesinde ad olarak ne yazmasını istiyorsak onu yazalım.

    -      Properties penceresinde OpenFileDialog nesnesinin FileName özelliğine gelerek Pencere açıldığında "Dosya Adı" kısmında yazacak geçici ismi belirleriz. 

    -      Properties penceresinde OpenFileDialog nesnesinin Filter  özelliğine gelerek hangi formatta dosyaların gözükmesini istiyorsak onları belirteceğiz. Bu belirleme işlemi aşağıdaki şekilde olacaktır.

             "     jpeg files (*.jpeg)|*.jpg|png files (*.png)|*.png|bmp files (*.bmp)|*.bmp     " şeklinde bir dizim olacak.

    -      Properties penceresinde OpenFileDialog nesnesinin InitialDirectory özelliğine gelerek pencere açıldığında hangi klasörün içindeki dosyaların gözükmesini istiyorsak o klasörün uzantısını yazarız.

    -      Kod kısmı da aşağıdaki gibi olacak.

Imports System.IO

Public Class Form1

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

        OpenFileDialog1.ShowDialog()

    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

        Dim way As String

        way = System.IO.Path.GetFullPath(OpenFileDialog1.FileName)

        Dim StreamFile As System.IO.FileStream = New System.IO.FileStream(way, FileMode.Open, FileAccess.Read)

        Dim pict As System.Drawing.Bitmap = New System.Drawing.Bitmap(StreamFile, True)

        PictureBox1.Image = pict

    End Sub

End Class

    -      Programı çalıştırdığınızda sonuç aşağıdaki gibi olacaktır.