e sad evo delova koda test projekta
' ovo se nalazi u modulu
Public Type typVrednost
Tip As String
Ime As String
Telefon As String
Vrsta As String
Adresa As String
End Type
Public dat As typVrednost
Dim netDll 'ovo se nalazi na pocetku formu
Set netDll = CreateObject("Imenik.extract") 'ovo se nalazi u form_load
netDll objekat se lepo kreira i sa
for x = 1 to 10
intBroj = netDll.fnObrada(intParam1, netDll.ParamX(x), param3)
debug.print intBroj
next
intBroj dobija neku vrednost. Param1 i Param3 su neke Integer vrednosti, a funkcija netdll.ParamX vraca takodje integer. E sad nastaje problem :( Ukoliko pokusam da sa
dat = netDll.Vrednost(intVrednost)
izvucem odredjenu vrednost iz array dobijam gore pomenutu gresku.
Proceduru koju pozivam u DLL-u je ova
Public Property Get Vrednost(ByVal Index As Integer) As typVrednost
Vrednost= colVrednost(Index)
End Property
i nalazi se u Class Modulu (ceo dll je samo jedan Class modul)
Ne znam sta jos treba da napisem, pa ako sam nesto vazno izostavio dodacu
EDIT:
ColVrednost je array definisan okviru general declarations kao
Dim colVrednost() As Integer
Da je važnije biti ljubazan nego biti u pravu