buldum başak forumda...
Merhaba..
Olabildiğince kolay anlatmaya çalışayım:
İlk olarak tablomuzda resim adında bir alan ilave edelim.. Veri Türü, Not olsun.. Kaydedip çıkalım..
Şimdi formumuza gidip bu alanı bir metin kutusu ile ilişkilendirelim.. Kutunun adı da aynı; resim olsun.. Bu kutada resmin bilgisayarımızdaki yolunu göstereceğiz..
Daha sonra Araç Kutusundan form üzerine bir resim çerçevesi yerleştirelim..(İlk, bilgisayarımızdan bir resmi yükleyelim.. Eklendikten sonra Biçim / Resim kısmından dosya yolunu silelebiliriz.) Form üzerine yerleştirdiğimiz bu resim kutusunun ismini de cercevekoyalım.. Bu çerceveye Gözat komutu yardımıyla bilgisayarımızdan seçtiğimiz bir resmi yerleştireceğiz..
Evet, şimdi de "Gözat"mamız için formun üzerine bir düğme yerleştirelim.. Düğmenin olay özelliklerinden Tıklatıldığında yordamına şu kodları yazalım:
Kod:
Dim dlg As FileDialog
Dim si As Variant
Dim FileName As String
Dim vrtSelectedItem As Variant
Set trz = Application.FileDialog(msoFileDialogFilePicker)
With trz
.AllowMultiSelect = False
.ButtonName = "Resim Seç"
.Filters.Add "Resimler", "*.gif; *.jpg; *.jpeg; *.bmp"
.Filters.Add "Hepsi", "*.*"
.FilterIndex = 0
.InitialFileName = Environ("UserProfile") & "\My Documents\*.bmp;*.gif;*.jpg;*"
.InitialView = msoFileDialogViewThumbnail
.Title = "Resim Seç..."
If .Show = True Then
For Each vrtSelectedItem In .SelectedItems
FileName = vrtSelectedItem
Next vrtSelectedItem
Me.resim = FileName
Me.cerceve.Picture = FileName
End If
End With
Bu aşamalardan sonra resmimizin yolunu tablomuza kaydetmiş ve de bağlantılı resmi çercevemizde göstermiş olduk..
Şimdi de kayıtlar arasında gezinti, süzme, arama vb. işlemler yaptığımızda, ekrandaki kayda ait resmin çerceveye yerleşmesi için ayrı bir işlem daha yapmamız gerekiyor..
Formumuzun Geçerli Olduğunda olay yordamına
Kod:
On Error GoTo trz
If Not IsNull([resim]) Then
Me.cerceve.Picture = [resim]
Else
Me.cerceve.Picture = ""
End If
Exit Sub
trz:
If Err = 2220 Then
Me.cerceve.Picture = ""
Else
MsgBox Err.Description, vbExclamation
End If
bu kod kümesini yazın.. Aynı pencereden Tools / References kısmından Microsoft Office 1x.x Object Library seçeneğini de işaretlediniz mi tamamdır..
Artık formunuz üzerine Gözat kutusunu kullanarak ve de sadece yolunu depolayarak resimlerimizi ekleyip, görüntüleyebiliriz..
