accesse fotoğraf ekleme

[celoaga]

formuma bir butonla fotoğraf eklemek istiyorum yayrıntılar ve ornek ekte var. yardımınız için şimdiden teşekkürler.

 

[mehmetdemiral]

Eğer sadece obje alma penceresini açmak isterseniz


If Me.PHOTO.OLEType = acOLENone Then
Me.PHOTO.Action = acOLEInsertObjDlg
End If


yazmanız yeterlidir. Ama direkt olarak bir klasöre yönlendirilip oradaki bir resmi tabloya aktarmak isterseniz onun için farklı kodlar hazırlamak gerekir.

 

[mehmetdemiral]

Bu arada, eğer resmi tablodaki bir alana aktarıp her resmi de form üzerine kodlarla aktarmak isterseniz sizin formu sayın Taruz'un Telefon Rehberi uygulamasından alıntı yaparak isteğinize göre uyarladım. Bunun için vb referansları eklendi. Kodları kullanmak isterseniz referansları da iyice inceleyin.
Bu arada uygulamada resim için ole nesnesine ihtiyaç duyulmuyor. O yüzden tablodaki ole alanının kaldırabilirsiniz.

Kolay gelsin.

 

[celoaga]

Bu arada, eğer resmi tablodaki bir alana aktarıp her resmi de form üzerine kodlarla aktarmak isterseniz sizin formu sayın Taruz'un Telefon Rehberi uygulamasından alıntı yaparak isteğinize göre uyarladım. Bunun için vb referansları eklendi. Kodları kullanmak isterseniz referansları da iyice inceleyin.
Bu arada uygulamada resim için ole nesnesine ihtiyaç duyulmuyor. O yüzden tablodaki ole alanının kaldırabilirsiniz.

Kolay gelsin.

teşekkürler. bir deneyim. bu sefer olur herhalde.

 

[herdogan]

Sayın mehmetdemiral
formda resim gösterilen alanın türünü anlayamadım.

 

[mehmetdemiral]

Aslında onu sayın Taruz'a sormak lazım) Çünkü çalışma Taruz'un Telefon defteri çalışmasından uyarlandı. Bu arada celoaga'nın resim için kullandığı alan Ole nesnesiydi. Onu silerek oraya resim alanı eklendi. Resim nesnesini boş olarak koyamıyorsunuz. O yüzden seçim sırasında bir resim seçmek lazım. Sonradan silebilirsiniz. Ben bunu siz sorunca merak edip deneyerek öğrendim. Çalışmayı yapma sırasında ise sevgili TAruz'un çalışmasından kopyalayıp buraya yapıştırmıştım. Şimdi baktım ki nesne "resim"miş.

 

[herdogan]

Neden çalışmadığını anlamadım. Örnektekileri yaptım.
Dim dlg As FileDialog burada hata veriyor. örnekte dim tanımlamalarını nerede yaptığnı bulamadım

 

[mehmetdemiral]

Onunla ilgili uyarmıştım aslında.

"Bunun için vb referansları eklendi. Kodları kullanmak isterseniz referansları da iyice inceleyin."


Referansları inceleyip en alttaki "Microsoft Office 11.0 Object Library" referansını sizin projenize ekleyin . Böylece gözatma işlemi çalışacaktır.

Ama ben uğraşamam derseniz aşağıya eklenen projenizin düzenlenmiş halini kullanabilirsiniz.

Kolay gelsin.

 

[herdogan]

Sayın mehmetdemiral,
Referans dediğiniz yeri bir bulsam inceliycem. Modül bölümü boş. Vb bölünde butona yazılan kodlar ve açıldığına etkinleşecek kodlar var. fakat "Microsoft Office 11.0 Object Library" ibaresine hiç rastlamadım. zamanınız uygunsa biraz daha açıklamalı yazabilirmisiniz.
Teşekküler

 

[modalı]

Sayın herdogan,

Kod yazma penceresini açın (Alt+F11) Menü barından Tools u oradanda References i seçin açılan pencerede ekleyebileceğiniz refaransların listesini verir. İşaretliler eklenmiş olanlar işaretsizler ise eklenebilecek olanlar. Eğer ekleyeceğiniz referans listede yoksa o zaman Browse ile ilgili dll veya ocx dosyasını bulup sisteminize tanıtmanız gerekir.

İyi çalışmalar

 

[mehmetdemiral]

Teşekkürler modalı.. Ben henüz bakabilmiştim foruma. Siz yetişmişsiniz.

 

[herdogan]

Sayın modalı ve mehmetdemiral
her ikinizede çok teşekkür ederim.
Sayenizde projelerimiz bi şeye benziyor