[es] - Microsft Access - dodavanjem slike u OLE Objekat klikom na BUTTON

unisoft
Uzice

Član broj: 124050
Poruke: 346
*.adsl.verat.net.

+1 Profil

Microsft Access - dodavanjem slike u OLE Objekat klikom na BUTTON

^{15.11.2008. u 08:16 - pre 188 meseci}

Ovako eve mene sa novim problemo.Ovaj naslov teme umem da resim u cistom VB-u i radi se na sledeci nacin.

Posto odaberemo po pokretaju VB-a i izaberemo STANDARD WINDOWS FORM radimo sledece.Na formu stavljamo jedan IMAGE BOX , JEDAN BUTTON , i dodajemo kontrolu OPEN FILE DIALOG.

Imagebox - je dodeljeno u svojstvu Caption sledece ime : picShowPicture
Buttonu - je dodeljeno sledece svojstvo : btnSelectPicture
a kontroli Open FILE DIALOG je dodeljeno sldece svojstvo : ofdSelectedPicture

Kada to dodamo na formu onda idemo na programiranje .Klikne se dva puta na na dugme button i pisemo sledeci kod a to je i jedini koji se pise za ovaj zadatak:

IF ofdSelectedPicture.ShowDialog=Result.OK Then
picShowPicture.Image=Image.FromFIle ( ofdSelectedPicture.FileName )

i zadatak je sa ovim gotov.

Sta ovo radi pa kada kliknemo na dugme button na nasoj formi on nam otvori dijalog kao u svakom programu kada idemo na INSERT PICTURE ili OPEN FILE ... i selektovanu sliku nam ubaci u IMAGE BOX.

Odgovor na temu

unisoft
Uzice

Član broj: 124050
Poruke: 346
*.adsl.verat.net.

+1 Profil

Re: Microsft Access - dodavanjem slike u OLE Objekat klikom na BUTTON

^{15.11.2008. u 08:20 - pre 188 meseci}

Moj problem je u tome sto ovo ne znam da uradim u Accessu.

A to sto meni treba je : posto u b.podataka imam jednu formu koja se ondosi na zaposlene i tu se upisuju njihovi podatci ( ime , prezime , adresa i slika ).
Da bi u Accessu ubacili sliku treba da kada pravimo tabelu za tu formu jednoj celiji damo svojstvo OLE object.

Meni treba da kada kliknem na button u OLE Object ubaci slika koju ja odaberem.

I mene sada zanima.Ja na toj formi imam dugme za SAVE te forme.Da li ce se i ta slika sacuvat ( ovo je drugo pitanje )

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Microsft Access - dodavanjem slike u OLE Objekat klikom na BUTTON

^{20.11.2008. u 07:32 - pre 188 meseci}

Najbolje riješenje je da slike držiš u jednom folderu a da putanju do te slike i naziv slike upisuješ
u tablicu. Razlog tomu je da ti se ne povečava baza, mana tome je što ako instaliraš sliku na drugi komp
moraš i iskopirati folder s slikama ( jedino ako slike uzimaš preko mreže i ako si takvu putanju upisao u tablicu )

da bi se otvorio dialog explorer i odabrao sliku

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Filters.Clear
.Filters.Add "All files", "*.*"
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Slika.Picture = vrtSelectedItem
Imeslike = vrtSelectedItem
Next vrtSelectedItem
Else
Slika.Picture = ""
Imeslike = ""
End If
End With
Set fd = Nothing

da bi ubacio sliku na formi uzmeš putanju iz tablice,
( ovo dolje je primjer koji sam ja koristio, ti samo pridodjeliš polje iz tablice )

Slika.Picture = DLookup("slika", "tblartikli", "sif_artikla='" & sifartikla & "'")

ako želiš da ti tu sliku otvori u PAINTU

na primjer da je u bazi ----> imeslike="c:\mojeslike\lopta.jpg"

Dim dput As String
dput = Dir(Imeslike)
If Len(dput) < 3 Then
MsgBox "NE POSTOJI " + Imeslike
Exit Sub
Else
Dim RetVal
RetVal = Shell("C:\WINDOWS\system32\mspaint.EXE " + Imeslike, vbMaximizedFocus)
End If

eto , nadam se da sam malo pomogao

Odgovor na temu

unisoft
Uzice

Član broj: 124050
Poruke: 346
85.222.179.*

+1 Profil

Re: Microsft Access - dodavanjem slike u OLE Objekat klikom na BUTTON

^{20.11.2008. u 12:04 - pre 188 meseci}

Citat:

Trtko: Najbolje riješenje je da slike držiš u jednom folderu a da putanju do te slike i naziv slike upisuješ
u tablicu. Razlog tomu je da ti se ne povečava baza, mana tome je što ako instaliraš sliku na drugi komp
moraš i iskopirati folder s slikama ( jedino ako slike uzimaš preko mreže i ako si takvu putanju upisao u tablicu )

da bi se otvorio dialog explorer i odabrao sliku

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Filters.Clear
.Filters.Add "All files", "*.*"
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Slika.Picture = vrtSelectedItem
Imeslike = vrtSelectedItem
Next vrtSelectedItem
Else
Slika.Picture = ""
Imeslike = ""
End If
End With
Set fd = Nothing

da bi ubacio sliku na formi uzmeš putanju iz tablice,
( ovo dolje je primjer koji sam ja koristio, ti samo pridodjeliš polje iz tablice )

Slika.Picture = DLookup("slika", "tblartikli", "sif_artikla='" & sifartikla & "'")

ako želiš da ti tu sliku otvori u PAINTU

na primjer da je u bazi ----> imeslike="c:\mojeslike\lopta.jpg"

Dim dput As String
dput = Dir(Imeslike)
If Len(dput) < 3 Then
MsgBox "NE POSTOJI " + Imeslike
Exit Sub
Else
Dim RetVal
RetVal = Shell("C:\WINDOWS\system32\mspaint.EXE " + Imeslike, vbMaximizedFocus)
End If

eto , nadam se da sam malo pomogao

Brate verujem da je ovo ISPRAVNO.Ali ja nista nisam razumeo.

Izvini ali moram da te zamolim AKO TI NIJE PROBLEM DA MI U ACCESSU NAPRAVIS PRIMER SA OVIM I POSTAVIS NA RAPIDSHARE ( ovde stavi link ) ili da mi poslajes na moju E-mail adrsu [email protected].

Jel stvarno ne razumem gde se koji kod upisuje.Ove funkcije su skroz nove za mene a jos sam pocetnik pa mi je tesko da to razumem.Ako imas neki ti primer naracinaru u kome si ovo primeni molim te posalji mi ga.

Pliz

Odgovor na temu