Windows 8 - Fotoğraf(Resim Ekleme)

1 2 3
09/10/2015, 11:46

yorum70

Merhaba.
modülü kaldırdım.

Sn.Taruz'un bir örneğini adapte ettim.

FrmTrz Formunu program içine aldım ve Foto Ekleme yapıyor.
Ancak, aynı kodları Frm_PERSONEL'e aktardığımda Fotoğraf ekleme yapmıyor. Referansları kontrol ettim, bire bir aynı.

Tşk.
09/10/2015, 12:18

yorum70

Örneğe 2003 eklendi.

Tşk.
09/10/2015, 13:12

atoz112

Sayın yorum70,

Uygulamanız incelendiğinde aşağıdaki hususlara yönelik olarak açıklamalarda bulunmak uygun görülmüştür.

1)       
Mod1 adlı modül içerisinde yer alan
Kod:
#If VBA7 Then
    Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
     Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If

kod ifadesinde,ELSE tabirinden sonraki fonksiyon declare edilmesinde ptrsafe ifadesini çıkarmayı unutmayınız.çünkü;ELSE öncesindeki kod ifadesinin anlamı 64bit geçerliyse o satıra göre değilse ELSE ifadesinden sonraki satıra göre işlem yapması adınadır.bu,SADECE hatırlatma anlamındadır.

2)       
frm_PERSONEL adlı formun içerisine iki adet aynı işlemi gerçekleştiren Komut297 ve Komut298 adında buton eklemişsiniz.bahsettiğiniz sorunun nedeni de bu.çünkü;aynı form içerisinde aynı tanımlamaları içeren kodlar söz konusu olduğu için çakışmaya neden olmaktadır.

Çözüm için;geçerli olan butonun dışında kalan ve form tasarımından iptal ettiğiniz fakat kodları hala mevcut bulunan buton olay yordamı kodlarını tamamen temizlemelisiniz.

Bu konuda size şu tavsiyede bulunmayı uygun görmekteyim.eğer bir formun tasarımından herhangi bir denetimi (textbox,buton,v.s.gibi) iptal etmek istiyorsanız,direkt tasarımdaki denetimi silmek yerine önce olay yordamı içerisine (kod sayfasına) geçiniz ve bu olay yordamındaki kodları siliniz daha sonra denetimi siliniz.aksi takdirde,buradaki gibi,denetimi silseniz bile kodları kalacaktır.bu da,yaşandığı üzere sorunlara maruz kalmaya yol açacaktır.

3)       
İkinci madde ile bağlantılı olarak,sorununa maruz kalmanızın bir diğer nedeni de,her ne kadar bazı kod sayfalarında Option Explicit ifadesi yer alsa bile,büyük bir ihtimal ile uygulamanızı konunuza dahil etmeden öncesinde DEBUG-COMPILE yapmamış olacaksınız ki,bazı değişken tanımlamalarının yapılmamış olmasından kaynaklı bu compile işleminde birçok uyarı vermektedir.bu bilgilendirmeden hareket ile,size tavsiye olması adına;lütfen bu compile işlemini uygulamak sureti ile belirecek olan uyarılar nezdinde gerekli düzeltmeleri ve düzenlemeleri yapmayı sağlayınız.kimi sorunları bu düzenlemeler ile gidermiş olacaksınız.

EK'te;
bahsettiğiniz talebinize ve yukarıda açıklamaları yapılan hususların düzenlenmesi ile hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.bilginize…iyi çalışmalar,saygılar.
09/10/2015, 21:39

yorum70

Sn. ATOZ112, ilginiz ve düzenlemiş olduğunuz uygulama için teşekkür ediyorum. Konu başlığı ile alakalı sorun çözülmüştür.

Burada, Windows8 64 Bit sistemlerde(bazı pc lerde) hata veren basopenFile modülünü kullanmadan ''GetOpenFile' hatasını gidererek eklemiş olduğunuz uygulama ile bu sorun çözülmüştür.

Teşekkür edip; saygılarımı sunuyorum.
1 2 3