[ unisoft @ 15.11.2008. 08:16 ] @
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.
[ unisoft @ 15.11.2008. 08:20 ] @
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 )
[ Trtko @ 20.11.2008. 07:32 ] @
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
[ unisoft @ 20.11.2008. 12:04 ] @
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