[FORM] Eklediğimiz Resmi Önizleme de Açma
#1
arkadaşlar forma eklediğim
.jpeg- resim dosyasının üzerine çift tıkladığımda
bilgisayarımda ki herhangi bir resim önizleme programı (win. fotoğraf görüntüleyici, picasa, mic. office 2010 preview) açılmasını istiyorum
yardımcı olabilecek arkadaşlara şimdiden teşekkürler



  Alıntı
Bu mesajı beğenenler:
#2
Sayin Emre061;

Private Sub Resim_click()
Call Shell("Program dosya yeri" ,"resim dosya yeri")

'(win. fotoğraf görüntüleyici, picasa, mic. office 2010 preview)
End Sub

Program dosya yeri...C:\Windows\System32\mspaint.exe
resim dosya yeri.................C:\Resim.jpg

Deneyebilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#3
(16-09-2013, 12:28)dsezgin83260 demiş ki: Sayin Emre061;

Private Sub Resim_click()
Call Shell(Program dosya yeri , resim dosya yeri)

'(win. fotoğraf görüntüleyici, picasa, mic. office 2010 preview)
End Sub

Program dosya yeri...C:\Windows\System32\mspaint.exe
resim dosya yeri.................C:\Resim.jpg

Deneyebilirsiniz.



hocam C:\Windows\System32\mspaint.exe şeklinde yazdığımda dosya yolunda ":" olduğu için hata mesajı veriyor
başka bir yol yok mu




  Alıntı
Bu mesajı beğenenler:
#4
Sn Emre061,
arkadaş şu an formda olmadığı için ben yardımcı olayım, aşağıdaki kodu butonun Click olayına ekleyin, yol ve dosya adını kendinize uyarlayın;
Visual Basic
  1. Call Shell("C:\Windows\System32\mspaint.exe C:\Deneme\1.jpg", vbMaximizedFocus)


tırnak işaretlerine dikkat et, komutun sonunda değil dosya adının sonunda olacak.
iyi çalışmalar...



  Alıntı
Bu mesajı beğenenler:
#5
(16-09-2013, 14:31)onur_can demiş ki: Sn Emre061,
arkadaş şu an formda olmadığı için ben yardımcı olayım, aşağıdaki kodu butonun Click olayına ekleyin, yol ve dosya adını kendinize uyarlayın;
Visual Basic
  1. Call Shell("C:\Windows\System32\mspaint.exe C:\Deneme\1.jpg", vbMaximizedFocus)


tırnak işaretlerine dikkat et, komutun sonunda değil dosya adının sonunda olacak.
iyi çalışmalar...


teşekkürler belirttiğiniz gibi yaptığımda oluyor ancak
C:\Deneme\1.jpg
örneği üzeriden tarif edecek olursam
deneme klasörümün içerisine kopyalanan her bir resim
formda veri girişi yaptığım a ve b kolonlarındaki değeri alarak otomatik isimlendiriliyor. 700_1-1 gibi. bu isimler klasöre kopyalanıyor. bir sonraki kayıt 700_1-2 vb.
bu durumda Call Shell("C:\Windows\System32\mspaint.exe C:\Deneme\........jpg", vbMaximizedFocus)
resim isimlerini de otomatik olarak kodun içerisine nasıl yazdırabiliriz



  Alıntı
Bu mesajı beğenenler:
#6
Sayin Emre061;

a ve b kolonlarıni asagidaki gibi yazdiginizda deneme klasorunun icindeki resme ait dosyanin ismi ayni olmak kosuluyla on izleme yapabilirsiniz.

Call Shell("C:\Windows\System32\mspaint.exe C:\Deneme\" & Me.A & Me.b & ".jpg", vbMaximizedFocus)

NOT : Resim isleme programlarindan cok, resim goruntuleme programlarini tavsiye ederiz.





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [RAPOR] Access De Ki Raporu Word Belgesi Olarak Vba Kodu Ile Açma Ahmet51 10 882 01-08-2024, 10:28
Son Mesaj: dsezgin
  ERKANDA RAPOR ÖNİZLEME GÖZÜKMÜYOR ferda23 9 1.526 08-07-2024, 13:41
Son Mesaj: celalll
  Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk. adnnfrm 4 522 26-12-2023, 03:42
Son Mesaj: adnnfrm
  Klasor Açma Kars36 6 6.111 14-11-2023, 15:35
Son Mesaj: vetaltan
  [FORM] Içinde Başka Form Olan Formu Gizli Açma hedefkaya 8 818 27-03-2023, 17:05
Son Mesaj: hedefkaya
  Altformda Koşullu Filtreleme Ve Filtreli Raporu Açma ŞabanTR 2 694 25-01-2023, 21:31
Son Mesaj: ŞabanTR
  Sorgudaki Her Bir Kayıt Için Ayrı Excel Dosyası Açma tamersyilmaz 4 612 29-09-2022, 14:47
Son Mesaj: tamersyilmaz
  [RAPOR] Açılan Kutuda çoklu Seçim Ile Rapor Açma hedefkaya 4 557 01-08-2022, 19:35
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi