Napravio sam jedan mali DLL u VB-u i sad imam problema pri radu sa njim. Ukoliko taj DLL dodam kao referencu nekom projektu sve radi kako treba, ali ako ga ucitvam sa "CreateObject" onda pri pozivanju njegovih funkcija sve radi, ali ako hocu da procitam neki property dobijam ovu gresku:
e sad evo delova koda test projekta
netDll objekat se lepo kreira i sa
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
izvucem odredjenu vrednost iz array dobijam gore pomenutu gresku.
Proceduru koju pozivam u DLL-u je ova
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
Citat:
Only user-defined types defined in public object modules can be coerced to or from variant or passed to late-bound functions
e sad evo delova koda test projekta
Code:
' 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
' 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
Code:
Dim netDll 'ovo se nalazi na pocetku formu
Set netDll = CreateObject("Imenik.extract") 'ovo se nalazi u form_load
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
Code:
for x = 1 to 10
intBroj = netDll.fnObrada(intParam1, netDll.ParamX(x), param3)
debug.print intBroj
next
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
Code:
dat = netDll.Vrednost(intVrednost)
dat = netDll.Vrednost(intVrednost)
izvucem odredjenu vrednost iz array dobijam gore pomenutu gresku.
Proceduru koju pozivam u DLL-u je ova
Code:
Public Property Get Vrednost(ByVal Index As Integer) As typVrednost
Vrednost= colVrednost(Index)
End Property
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
Code:
Dim colVrednost() As Integer
Dim colVrednost() As Integer
Potpis
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
Da je važnije biti ljubazan nego biti u pravu
