|
Ćao svima.Unapred hvala na pomoći.
Imam jedan projekat i pokušao sam ga završiti sam,ali pošto mi je danas zadnji dan a hteo bih da mi radi kako treba molio bih vas da mi probate pomoći.
Projekat se zasniva na bazi koja je već urađena i sređena (97).
Koristim VB6.
Napravio sam modul Globals.bas i ubacio
Global path As String
Treba mi ova globalna da (koliko ja znam to bi trebao biti najlakši način..) pamti lokaciju foldera sa slikama.Naime u bazi imam polje koje sadrži ime slike,pa sam mislio da napravim preko VB-a da koristi tu putanju (koju odredim prethodno u formi) uz ime slike (koje bi izvadio iz txt box-a)...
Ovo je kod za formu u kojoj biram lokaciju foldera Slike:
Public Sub btnOK_Click()
frmMain.Refresh
path = listFolders.path & "\"
tmrUnload.Enabled = True
frmMain.lblPathCheck.Caption = path 'da proverim da li je _
zapamtio putanju
'stavio sam i frmRep.picCar.Picture = path & frmRep.txtPicture.Text _
ali nije radilo kad bih pokušao listati reporte
End Sub
Private Sub listDrives_Change()
listFolders.path = listDrives.Drive
listFolders.Refresh
End Sub
Public Sub listFolders_Change()
listFolders.path = listDrives.Drive
path = listFolders.path & "\"
txtLocation.Text = path
End Sub
Private Sub tmrUnload_timer() 'dodao sam tako da ima vremena da se _
otvori glavna forma pa da se tek tada zatvori ova (mada se nevidi)
Unload Me
End Sub
Slike mi se nalaze na različitim formama
frmRep.picCar sa txt koji označava lokaciju txtPicture (na istoj)
frmBrowsing sa txtSlika (na istoj)...
Nadam se da sam naveo dovoljno podataka.Još jednom hvala na pomoći.
|
