Sayın Taruz üstadın aşağıda ki kodunda "User defined type not defined " diye bir hata veriyor, yardımlarınızı bekliyorum, bu arada ( farkındayım burası yeri değil ama ) bu olayın aynısı excel de de yapılabilirmi, depolanmış resimler, excel hücrelerinde gösterilebilir mi ?
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 WithBu 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..
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 WithBu 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..