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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

newindmuh

Aktif Üye
Aktif Üye
85
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....
6.119
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
17/04/2018,11:04
Çö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
85
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....
10.812
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,10:59
Çö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
85
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 Tarih Son Yorum
Çözüldü Formda Resim Yoksa Hata Sorunu fascioğlu 11 202 31/05/2018, 16:45 fascioğlu
Çözüldü Yeni Kayıt Ekle İle Kayıt No Eklemek. fascioğlu 16 333 08/05/2018, 11:00 ozanakkaya
Çözüldü Ftp'ye Klasör Açma Ve Resim Yükleme donepezil 13 404 13/03/2018, 13:18 donepezil
Çözüldü Çoklu Resim Ekleme Ve Gösterme ates2014 5 362 12/03/2018, 16:17 ates2014
Çözüldü Butona Sol Tıklayınca Sağ Cilik Menüsü Çalışsın İstiyorum mengene2 3 240 19/02/2018, 19:55 mengene2

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