A.S.C Filtre, Grafik ve Raporlama Eklentisi

Listeden Seçilen Resmi Form Içinde Gösterme
#1
Merhabalar yardımlarınız için peşinen teşekkür ederim ekte koyduğun dosyayı arşivimi karıştırırken buldum . İstediğim  listeden seçilen dosya aynı form üzerinde gözüksün (amacım alt klasörlerdeki resimleri görüntülemek denedim ama mantığı anlayamadım) lblPath etiketindeki veri ile lbxFiles listesindeki seçilen veriyi birleştirip referans oluşturma ve resimin görünmesini sağlamak (etiket olduğu için veriyi alamadım)


Eklenti Dosyaları
.rar   Explorer97.rar (Boyut: 729,6 KB / İndirilme: 12)



  Alıntı
Bu mesajı beğenenler:
#2
Merhaba.. 

Form üzerindeki resim nesnesinin biçim özelliğinde bulunan resim türü özelliğini BAĞLI yaptıktan sonra sağdaki listenin çift tıklandığında olay yordamında bulunan prosedürü aşağıdaki gibi değiştirirseniz resim dosyalarını nesnede görüntüleyebilirsiniz.. 



Visual Basic
  1. Dim varRet
  2. Dim stPath     As String
  3.  
  4.    If mstPath = vbNullString Then
  5.        stPath = Left$(Me!lbxFolders, Len(Me!lbxFolders) - 1)
  6.    Else
  7.        stPath = mstPath & "\" & Me!lbxFolders
  8.    End If
  9.    If Right(Me!lbxFiles, 3) = "jpg" Or Right(Me!lbxFiles, 3) = "png" Then
  10.        Resim18.Picture = mstFilePath & "\" & Me!lbxFiles
  11.    Else
  12.        varRet = fHandleFile(stPath & "\" & Me!lbxFiles, WIN_NORMAL)
  13.    End If





  Alıntı
Bu mesajı beğenenler:
#3
Teşekkür ederim işimi gördü. yalnız soldaki listeyi nasıl sabitlerim sadece o klasördeki resimler gözükmesi için



  Alıntı
Bu mesajı beğenenler:
#4
Başlangıç klasörünü sabitlemek istiyorsanız formun içindeki sFillRoot adlı prosedürü bu şekilde düzenleyebilirsiniz.. Düzenlediğim kısım masaüstünü başlangıç klasörü yapar; değiştirebilirsiniz..:


Visual Basic
  1. Private Sub sFillRoot()
  2. Dim strAllDrives As String
  3. Dim strTmp As String, strOut As String
  4. Dim loDir      As clsDir
  5.  
  6.    Set loDir = New clsDir
  7.  
  8.    '    strAllDrives = fGetDrives() Burayı pasif yaptım
  9.  
  10.    strOut = vbNullString
  11.  
  12.    mboolRoot = True
  13.  
  14.    Do
  15.        ' strTmp = Mid$(strAllDrives, 1, InStr(strAllDrives, vbNullChar) - 1) 'eskisi
  16.        strTmp = Environ("userprofile") & "\Desktop\"
  17.        strAllDrives = Mid$(strAllDrives, InStr(strAllDrives, vbNullChar) + 1)
  18.        strOut = strOut & strTmp & ";"
  19.    Loop While strAllDrives <> ""
  20.  
  21.    'trim strOut
  22.    strOut = Left$(strOut, Len(strOut) - 1)
  23.  
  24.    'populate the ListBox
  25.    With Me!lbxFolders
  26.        .RowSourceType = "Value List"
  27.        .RowSource = strOut
  28.    End With
  29.  
  30.    Me!cmdNavUp.Enabled = False
  31.    Set loDir = Nothing
  32.    mstPath = vbNullString
  33.  
  34. End Sub





  Alıntı
Bu mesajı beğenenler:
#5
Taruz hocam hakkını helal et
işyerinde senin tecrübelerinden çok yararlandım 
diğer yardımcı olan arkadaşlarda hakkını helal etsin
Hepinizden Allah razı olsun



  Alıntı
Bu mesajı beğenenler:
#6
Eksik olmayın.. Helal olsun..



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Listeden Seçilenlerin Raporunu Almak irfans 1 92 26-06-2020, 12:23
Son Mesaj: dsezgin
  [SORGU] Dıstınct Komutunda Sorgu Içinde Tek Bir Başlığı Baz Almak footprinting 2 101 23-06-2020, 12:53
Son Mesaj: footprinting
access-sql-4 [SORGU] Hücre Içinde Virgül Ile Ayrılan Verileri Alt Alta Sıralama alperalper 4 168 17-06-2020, 16:04
Son Mesaj: programmer67
  [SORGU] Sorgu Içinde Tekrarlayan Veriyi Engellemek footprinting 5 126 12-06-2020, 21:12
Son Mesaj: halily
  [VBA] Kurum Sistemlerine Giriş Yetkilerini Gösterme/yeni Yetki Başvurusu Yapma Bastürk E. 1 98 08-05-2020, 15:28
Son Mesaj: celalll
  [TABLO] Form üzerinden Liste Kutusu Içinde Sorgu aktepes 4 189 22-04-2020, 00:02
Son Mesaj: aktepes
  Iki Ayrı Alt Formdaki Toplamları Başka Forma Gösterme İcra 8 212 16-04-2020, 21:07
Son Mesaj: İcra
  [FONKSiYON] Metin Içinde Geçen Değerleri Indexleme alperalper 4 193 07-04-2020, 05:50
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi