com, Accessing DLL class Variables and values

by **Dixon** » Tue, 10 Jan 2006 21:42:09 GMT

I have a DLL file where i hav a type like the one below.......

public type Items
ItemName() as string
Count as integer
end type

and i have a variable declared for this type

public t as Items

I create an object for this DLL in my client application,

dim obj as new DLLClassName

now with this object when i need to put some value into the string
array how do i do that

i tried with this

obj.t.ItemName(0)="Item0"
msgbox obj.t.Count

This doesnt seem to be working

Should i use the get and let procedures to use this

by **Norm Cook** » Tue, 10 Jan 2006 22:38:51 GMT

Here's a very bare bones string array class. There more
efficient ways of doing this--namely a collection class.

'class Items
Option Explicit
Private ItemName() As String
Public Count As Long

Public Sub Add(ByVal Item As String)
'check validity of the string here
Count = Count + 1
ReDim Preserve ItemName(1 To Count)
ItemName(Count) = Item
End Sub
Public Function GetItem(ByVal Index As Long)
If Index > 0 And Index <= Count Then
GetItem = ItemName(Index)
End If
End Function

'form code
Option Explicit
Private Sub Form_Load()
Dim oItems As Items
Dim i As Long
Set oItems = New Items
oItems.Add "hello"
oItems.Add "world"
Debug.Print oItems.Count
For i = 1 To oItems.Count
Debug.Print oItems.GetItem(i)
Next
End Sub

by **Dixon** » Wed, 11 Jan 2006 15:25:25 GMT

Excellent Thank U soo much It worked

com, Accessing DLL class Variables and values

com >> Accessing DLL class Variables and values

com >> Accessing DLL class Variables and values

com >> Accessing DLL class Variables and values