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