Pomoc VB - slike

Pomoc VB - slike 22.05.2003. u 11:01 · pre 285 meseci #1

Zdravo svima!
Pocetnik sam u VB, pa mi treba mala pomoc. Hocu da napravim tabelu u Access- u sa dve kolone. U jednoj da budu imena i prezimena, a u drugoj slike tih ljudi. Iz VB bih pravio upite. Ne znam kako da smestim slike u Access, ako to uopste moze i, kako da ih prikazem u VB. Problem mi je i kako da kada izvrsim upit za nek osobu, da mi se pojavi i slika uz tu osobu. Mozda moze nekako drugacije da se to odradi.
Hvala unapred.

Re: Pomoc VB - slike 23.05.2003. u 13:43 · pre 285 meseci #2

U toj drugoj koloni gde bi slike, stavi samo putanju (path) do slike gde se nalazi slika. To ti je, po meni, najbolje resenje.

Re: Pomoc VB - slike 23.05.2003. u 17:06 · pre 285 meseci #3

Mozes sliku u bazi da cuvas kao OLE object, ali ako si pocetnik bolje je da koristis prethodno resenje sa pathom.

Potpis

Blue Man Group

Re: Pomoc VB - slike 02.06.2003. u 10:47 · pre 285 meseci #4

Hvala na pomoci, radi. Pozdrav!

Re: Pomoc VB - slike 03.06.2003. u 02:33 · pre 285 meseci #5

Jesi probao da upises u OLE Container polje u Accessu iz aplikacije?

Re: Pomoc VB - slike 06.06.2003. u 09:49 · pre 284 meseca #6

Probao sam sa putanjom, i to radi. Probao sam i drugi nacin.Ubacim slike u bazu kao ole object, a u vb postavim ole kontrolu i data kontrolu, kojoj odredim putanju za slike. I to radi, ali mi se ne svidja, jer kad aktiviram sliku ona se otvara u acd see,a ja bih hteo da se prikaze u okviru ole kontrole. Verovatno moze, ali ja ne znam kako. Ako mozes objasni mi ukratko sta si ti mislio. Da li mogu da izostavi data kontrolu i da preko upita prikazem sliku u ole kontroli i kako.

Re: Pomoc VB - slike 15.12.2003. u 23:34 · pre 278 meseci #7

Citat:

mladenovicz:
Mozes sliku u bazi da cuvas kao OLE object, ali ako si pocetnik bolje je da koristis prethodno resenje sa pathom.

Možeš li da pastuješ kod koji čita sliku pomoću patha (slika se nalazi u odvojenom folderu a ne u access bazi) i prikazuje je u VB6 bazi?
Pozdrav

Re: Pomoc VB - slike 16.12.2003. u 11:28 · pre 278 meseci #8

Citat:

BeastMaster:
Možeš li da pastuješ kod koji čita sliku pomoću patha (slika se nalazi u odvojenom folderu a ne u access bazi) i prikazuje je u VB6 bazi?
Pozdrav

Nije mi jasno sta hoces. Slika treba da se cita pomocu patha i da se prikaze u VB6 bazi? Ajde pojasni sta hoces.

Ovaj kod cita sliku koja je zadata preko svog patha i prikazuje je u PictureBoxu

Code:

Set Picture1.Picture = LoadPicture("C:\c1.gif")

Potpis

Blue Man Group

Re: Pomoc VB - slike 16.12.2003. u 15:42 · pre 278 meseci #9

Pazi baza je zasnovana na access bazi, i u polju slika u tabeli baze mi stoji samo putanja do slika koje se nalaze u zasebnom direktorijumu. Svaki record ima svoju sliku. E ono što meni treba je da kad iz baze pozovem podatke za recimo Peru Perića meni pored ostalih podataka u toj istoj formi prikaže i njegovu sliku (koja se ne nalazi u tabeli baze već van) i tako za sve ostale osobe iz te baze. Nadam se da sam bio jasniji :)

Re: Pomoc VB - slike 16.12.2003. u 16:08 · pre 278 meseci #10

to polje u kom se cuva path do slike, na formi predstavi jednim text boxom koji je Visible=False. Na formi treba da imas i jednu PictureBox kontrolu u kojoj ce se prikazivati slika. Onda na Change eventu za textbox stavis ovaj kod:

Code:

Private FSO As New Scripting.FileSystemObject

Private Sub Text1_Change()
    If FSO.FileExists(Text1.Text) Then
        'ako fajl postoji prikazi sliku
        Set Picture1.Picture = LoadPicture(Text1.Text)
    Else
        ' fajl ne postoji prikazi neku default sliku
        Set Picture1.Picture = LoadPicture(DefaultImagePath)
    End If
End Sub

ako su ti polja boundovana ovo bi trebalo da radi.

Ako polja na formi nisu boundovana onda tamo gde citas podtake iz baze i popunjavas text boxove na formi mozes da stavis

Code:

Text1.Text= adoRecordset("ImePoljaKojeSadrziPath")

i sa onim Change eventom ce raditi, a mozes umesto ove linije da stavis i ovo:

Code:

    If FSO.FileExists(adoRecordset("ImePoljaKojeSadrziPath")) Then
        'ako fajl postoji prikazi sliku
        Set Picture1.Picture = LoadPicture(adoRecordset("ImePoljaKojeSadrziPath"))
    Else
        ' fajl ne postoji prikazi neku default sliku
        Set Picture1.Picture = LoadPicture(DefaultImagePath)
    End If

s tim sto ti onda ne treba onaj kod na Change eventu

Potpis

Blue Man Group

Re: Pomoc VB - slike 16.12.2003. u 23:52 · pre 278 meseci #11

Hvala ti, ovo je rešilo moj problem:

Code:
Set Image1.Picture = LoadPicture(txtPic.Text)

Umesto Picture box-a sam koristio Image samo zbog stretch funkcije.
Pozdrav

Forum kao aplikacija na telefonu

Srodne teme