Pomoć oko LoadPicture

[ dilber @ 13.01.2009. 04:30 ] @

Naime, evo u ćemu je problem, ja sada imam u jednom folderu (tačnije u folderu odakle pokrećem i exe fail aplikacije) 100-tinjak fotografija različitog formata (.jpg, .bmp, .gif), kao što se u donjem dijelu cod-a može vidjeti ja mogu listati ili jpg ili bmp a sve nakon što izvršim promjenu u cod-u, ja bih htio dok te fotografije listam pomoću tipki koje sam formirao (Previous i Next) da mi se listaju fotografije bez obzira koji je format u pitanju. Moram pomenuti da ne koristim CommonDialog kontrolu, što mi je jako zgodno, jer ne moram da svaki put klikam na dugme Open pa da otvaram folder i tražim te fotografije, ovako imam 2 dugmeta Next i Previous i listam te fotografije, samo je problem što u određenom trenutku mogu listati samo jedan format tj. onaj format koji je definisam u cod-u. Pokušavao sam razlićite kombinacije, međutim nije išlo. Ukoliko neko ima iskustva sa ovom vrstom cod-a molio bih za pomoć da mogu umjesto jednog formata fotografija "čitati više formata", znaći da mi se lista fotografija za fotografijom bez obzira u kome je formatu.. Hvala

Dim jpegfile As String
JPEGFile = (direktorij & txtbarcod & ".jpg")

Picture1 = LoadPicture(JPEGFile)

Opis prethodne dvije linije cod-a

jpegfile = (folder u kojem se nalaze fotografije & txtpolje u koje se upisuje naziv fotografije iz baze & sve datoteke formata JPG)

[ Aleksandar Vasic @ 15.01.2009. 17:42 ] @

Ovo si mnogo prosto uradio, ako bi uneo te slike u bazu bilo bi mnogo bolje, al evo ti jedno banalno resenje...

Code:
Dim jpegfile As String
JPEGFile = (direktorij & txtbarcod & ".jpg")
Picture1 = LoadPicture(JPEGFile)
If Picture1.Picture = 0 Then
JPEGFile = (direktorij & txtbarcod & ".bmp")
Picture1 = LoadPicture(JPEGFile)
End If

[ dilber @ 16.01.2009. 12:31 ] @

Hvala na pomoći, sinoć sam ti htio odgovoriti i nešto me komp zezao.
Pokušavao sam ovaj kod što si mi napisao implementirati sinoć, i nisam mogao nikako, jednostavno kada loadiram samo jedan format slike on to čita bez problema. Znaš, Aleksandre izabrao sam ovaj naćin loadiranja zato što je mnogo jednostavnije (samo prekopiram slike u folder i to je to) kao što si mogao vidjeti naziv slike je isti kao šifra slike u bazi, tako da na osnovu šifre (koja je identićna nazivu faila) slike jako brzo loadiram i jednostavno fotografije samo iskopiram u folder, ...

[ Aleksandar Vasic @ 16.01.2009. 14:51 ] @

ajd uploaduj projekat molim te, da ne sastavljam sve sad...

[ dilber @ 18.01.2009. 04:18 ] @

Evo ja sam uradio upload ovog faila, a nisam siguran da li je prošlo jer mi je javilo kao na kraju bila neka greška. Ipak mislim da je OK, jer sam ga ja probao skinuti. Hvala ti i pozdrav.

_{[Ovu poruku je menjao dilber dana 18.01.2009. u 05:35 GMT+1]}

_{[Ovu poruku je menjao dilber dana 18.01.2009. u 05:37 GMT+1]}

[ Aleksandar Vasic @ 18.01.2009. 15:05 ] @

Code:
Private Sub Listaj()
    JPEGFile = (direktorij & txtbarcod & ".jpg")
    nemaslike = (direktorij & "nofoto.jpg")
    On Error Resume Next
    Err = False
    picViewX.Picture = LoadPicture()
    picViewX.Picture = LoadPicture(JPEGFile)
        If Err Then
           Err = False
           JPEGFile = (direktorij & txtbarcod & ".bmp")
           picViewX = LoadPicture(JPEGFile)
           If Err Then
              Screen.MousePointer = vbNormal
              picViewX.Picture = LoadPicture(nemaslike)
           End If
       End If
End Sub

[ dilber @ 19.01.2009. 00:11 ] @

To je ono što sam tražio. Nemam komentar. Bio sam tako blizu, a tako daleko! Ipak, da nije osoba poput tebe bio bih još dalje od rješenja. Hvala ti puno. Pozdrav.