Pomoć oko LoadPicture

Pomoć oko LoadPicture 13.01.2009. u 05:30 · pre 216 meseci #1

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)

Re: Pomoć oko LoadPicture 15.01.2009. u 18:42 · pre 216 meseci #2

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

Re: Pomoć oko LoadPicture 16.01.2009. u 13:31 · pre 216 meseci #3

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, ...

Re: Pomoć oko LoadPicture 16.01.2009. u 15:51 · pre 216 meseci #4

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

Re: Pomoć oko LoadPicture 18.01.2009. u 05:18 · pre 216 meseci #5

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.

foto-preglednik.rar151.5k

Re: Pomoć oko LoadPicture 18.01.2009. u 16:05 · pre 216 meseci #6

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

Re: Pomoć oko LoadPicture 19.01.2009. u 01:11 · pre 216 meseci #7

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.

Forum kao aplikacija na telefonu

Srodne teme