Forma Resim Ekleme, Kopyalama ve Arşivleme

ercan hocam
ellerinize sağlık,yapmış olduğunuz program çok işime yaradı.
size bir sorum olacak;
programınızda sadece jpg formatında resimler jpg olarak resim klasörü içine kaydediliyor.Acaba jpg,ico vb formatta olan resimleri bmp formatına değiştirerek kaydedebilirmiyiz.
ben acemice sizin kodlarınızda aşağıdaki değişikleri yaptım.tabiki çalışmadı yardımcı olursanız sevinirim

Private Sub RESIM_DblClick(Cancel As Integer)
Dim ekocan As String
Dim altan As String
Dim bute As String


altan = StrReverse(CurrentDb.Name)
bute = Trim(Mid(altan, 13))
help = "help.file" '?

If Resim.Picture = StrReverse(bute) & "vetpro08\resim\" & Form_HASTAMASTERFM.PROTOKOL.Value & ".BMP" Then


ekocan = "C:\Program Files\IrfanView\i_view32.exe " & StrReverse(bute) & "VETPRO08\resim\" & Form_HASTAMASTERFM.PROTOKOL.Value & ".BMP"
Call Shell(ekocan, 1)
Exit Sub

Else
Dim r
r = MsgBox("Hastamızın Resmi Kayıtlarımızda Bulunmamaktadır!", 32 + vbYesNo, "VetPro08 Bilgilendirme!")


If r = vbYes Then

Dim Kaynak, Hedef
Kaynak = GetOpenFile_CLT("C:\", "VetPro08-Resim Seçiniz...")
Hedef = StrReverse(bute) & "vetpro08\resim\" & Form_HASTAMASTERFM.PROTOKOL.Value & ".bmp"
If Kaynak = "" Then
Exit Sub
Else

FileCopy Kaynak, Hedef
Me.Requery
End If


End If

End If
End Sub

değerli arkadaşlar,
mde formatında jpg resimleri form üzerinde gösteremediğim için önceki mesajda yazdığım gibi jpg yada diğer formattaki resimlerimi forma kod kullanarak bmp formatında nasıl ekleyebilirim.

Uygulamanın kodlarında yazılı *.jpg yazılı olan yerleri *.bmp ile değiştiriniz. Ancak bu durumda seçeceğiniz resimlerin bmp uzantılı olmasına dikkat etmeniz gerekecektir.

teşekkür ederim,ancak benim istediğim;seçtiğim resimlerin bmp formatı olmaması durumunda bmp olarak nasıl kaydedebilirim.

faydalı bir paylaşım,teşekkürler.kolay gelsin

Harika