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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

newindmuh

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

Uzman
OL....
 38
 6.138
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 15/12/2018,11:41
Çö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
 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

Kurucu
OZ.... AK....
 39
 11.618
 472
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:20
Çö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
 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ü Metin Kutusu Tıklandığında Olayına Kod İle " X" Yazdırmak İstiyorum alimadam 5 153 21/11/2018, 22:36
Son Yorum: alimadam
Çözüldü Seçenek Ve Onay Kutusu,genişlik-Yüksekliğini Ayarlamak İstiyorum alimadam 4 109 21/11/2018, 11:09
Son Yorum: alimadam
Çözüldü Resim Karşılaştırma notrino 10 232 20/11/2018, 18:49
Son Yorum: notrino
Çözüldü Access Hazır Satış Database De Müşteri Listesi -Form Bağlantı Problemi Erkan7450 2 91 16/11/2018, 18:05
Son Yorum: Erkan7450
Çözüldü Form Alanına Ek Yada Resim Çağırma Hk.. larion 4 148 14/11/2018, 17:30
Son Yorum: larion

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