Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
21/12/2010 00:38
Konu Sahibi
newindmuh
Yorumlar
4
Okunma
2993
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

newindmuh

Aktif Üye
Aktif Üye
 33
 85
 18
 18/03/2010
12
 Kocaeli
 
 Ofis 2007
 25/10/2013,14:19
Çözüldü 
Herkese Merhaba ;
Aşağıda ki kod benim programa resim çekmek için kullandığım Sn. okileturc sayesinde öğrendiğim bir koddur.Gayet güzel bir kod. Butona tıklayınca resim seç geliyor. Fakat sadece .bmp uzantılı resimleri çekiyor. Benim istediğim jpg yada bütün uzantıları çekmesi, Sorum şu ;
Aşağıda ki koda bir kaç satır ekleyerek bunu yapabilir miyim ? Teşekürler

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub resimekle()
    Dim filename As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = " CV ye resim ekle"
        .Filters.Add "All Files", "*.*"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "Bitmaps", "*.bmp"
        .FilterIndex = 3
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path & "\resimler\"
        result = .Show
        If (result <> 0) Then
            filename = Trim(.SelectedItems.Item(1))
    
            Forms!cv_frm!foto! = filename
            Forms!cv_frm!Kimlik.SetFocus
            Forms!cv_frm!Resim86.Picture = filename
            
            
           End If
    End With
End Sub


newindmuh, 18-03-2010 tarihinden beri AccessTr.neT

Kullanici Avatari

alpeki99

Düşünmek en zor iştir...
Uzman
OL....
 38
 6.120
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 30/08/2018,18:18
Çözüldü 

Visual Basic Code
.Filters.Add "JPEGs", "*.jpg"


satırı ile jpg resimleri de görebiliyor olmanız lazım.


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.

Kullanici Avatari

newindmuh

Aktif Üye
Aktif Üye
 33
 85
 18
 18/03/2010
12
 Kocaeli
 
 Ofis 2007
 25/10/2013,14:19
Çözüldü 
(21/12/2010 00:42)alpeki99 Adlı Kullanıcıdan Alıntı:

Visual Basic Code
.Filters.Add "JPEGs", "*.jpg"


satırı ile jpg resimleri de görebiliyor olmanız lazım.

Görmüyor, bende orayı anlamadım zaten. başka uzantılar var ama yinede görmüyor. kodda acaba bi hata mı var bir bilginiz var mı?


newindmuh, 18-03-2010 tarihinden beri AccessTr.neT

Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 41
 11.272
 464
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Çözüldü 
Kodda hata yok. Dosya seçme sayfasından dosya uzantısını seçmen gerekiyor. Koddaki

Visual Basic Code
        .FilterIndex = 3


satırını

Visual Basic Code
        .FilterIndex = 1


ile değiştirirsen tüm dosyaları görebilirsin.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

newindmuh

Aktif Üye
Aktif Üye
 33
 85
 18
 18/03/2010
12
 Kocaeli
 
 Ofis 2007
 25/10/2013,14:19
Çözüldü 
çok teşekkür ederim, harika oldu dediğinizi yapınca düzeldi. Ayrıca daha önceden resimi sığdırmak için cerceveye kalitesini bayağı bozuyordu. şimdi hiç bozmuyor ilginç bi şey daha düzeldi. teşekkürler tekrar..


newindmuh, 18-03-2010 tarihinden beri AccessTr.neT


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Qr Code Raporda Gösterme Problemi hbal09 10 208 21/09/2018, 17:40
Son Yorum: hbal09
Çözüldü Access Runtime İle Çalışırken İstemci Ayarlarında Sorgu Onayı Problemi hbal09 4 113 11/09/2018, 17:59
Son Yorum: hbal09
Çözüldü Vcard İçin Resim Kayıt Zorunluluğu Olmasın access acemisi 2 98 16/08/2018, 23:47
Son Yorum: access acemisi
Çözüldü Nesne-Form "özellik Sayfası" Problemi notrino 5 112 16/08/2018, 12:46
Son Yorum: notrino
Çözüldü Accessten Excele Veri Aktarımında Sorguda Nz Problemi mehmetb84 7 184 06/08/2018, 15:28
Son Yorum: mehmetb84

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.