Resmimizi seçmek için OpenFileDialog pencecesini kullanacağız. Seçtiğimiz resmi görmemiz için PictureBox′ımızdan faydalanacağız. OpenFileDialog ve PictureBox′ımızı kullarak getirdiğimiz resmin boyutunu,Height ve Width özellikleri kullanacağız. Kaydet butonuna tıkladığımızdaise resmin bulunduğu dizini ve boyutunu bayt olarak kaydedeceğiz.
Kaydettiğimiz resmi tekrar çağırmak için ise TextBox3.Text′imize resmi kaydettiğimiz id yazıp Resmi Göster butonuna tıkladığımızda resmi PictureBox′a tekrar çağırmış oluyoruz. Bu tür uygulamayı daha çok grafik işleriyle uğraşanlar kullanabilir. Grafik yönetimini sağlayan güzel bir yöntemdir.
Private Sub btnResimSec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnResimSec.Click
ResimSec.FileName = "" ′OpenFileDialog′taki Dosya Adi kismi
ResimSec.Filter = "Bitmap Files (*)|*.bmp;*.gif;*.jpg" ′OpenFileDialog′taki Dosya Turu kismi
ResimSec.Title = "Resim Seç" ′OpenFileDialog′taki Baslik kismi
ResimSec.ShowDialog() ′OpenFileDialog penceresinin acilmasi
End Sub
Private Sub ResimSec_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ResimSec.FileOk
Dim ResimSecYol As String = Path.GetFullPath(ResimSec.FileName) ′OpenFileDialog′tan Resim Adiyla beraber bulundugu yeri belli etmek
Dim ResimSecDosya As FileStream = New FileStream(ResimSecYol, FileMode.Open, FileAccess.Read, FileShare.Read) ′Resim hakkinda bilgiler
Dim resim As Bitmap = New Bitmap(ResimSecDosya, True) ′Resim adinda bitmap olusturmak
pbResim.Image = resim ′PictureBox′a resim yukleniyor.
pbResim.Height = resim.Height ′PictureBox′in boyutlandirilmasi
pbResim.Width = resim.Width ′PictureBox′in boyutlandirilmasi
Me.Height = resim.Height * 1.1
Me.Width = resim.Width * 1.1
TextBox1.Text = ResimSecYol
TextBox2.Text = ResimSecDosya.Length
End Sub
Private Sub btnKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaydet.Click
Try
Dim Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath.ToString + "/Data.mdb")
Dim Cmd As New OleDbCommand("INSERT INTO resim (yol,boyut) VALUES (@yol,@boyut)", Con)
Cmd.Parameters.AddWithValue("@yol", TextBox1.Text)
Cmd.Parameters.AddWithValue("@boyut", TextBox2.Text)
Con.Open()
Cmd.ExecuteNonQuery()
Con.Close()
Con.Dispose()
Cmd.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btnResimGoster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnResimGoster.Click
Dim Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath.ToString + "/Data.mdb")
Dim cmd As New OleDb.OleDbCommand("SELECT * FROM resim WHERE id=" + TextBox3.Text + " ", Con)
Con.Open()
Dim myReader As OleDb.OleDbDataReader
cmd.CommandType = CommandType.Text
myReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
myReader.Read()
TextBox1.Text = myReader(1)
TextBox2.Text = myReader(2)
Try
Dim ResimSecYol As String = Path.GetFullPath(TextBox1.Text)
Dim ResimSecDosya As FileStream = New FileStream(ResimSecYol, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim resim As Bitmap = New Bitmap(ResimSecDosya, True)
With pbResim
.Image = resim
.Height = resim.Height
.Width = resim.Width
End With
Me.Height = resim.Height * 1.1
Me.Width = resim.Width * 1.1
Catch exp As Exception
MsgBox(exp.Message)
End Try
myReader.Close()
End Sub
Örnek Uygulamayı İndirmek İçin Tıklayınız...
İyi Çalışmalar.
