class module simpel question.

[Matrixxx]

Hi friends,

I have a class mudule and i have called it log.
I have some options in that class so i can for exaple scan a logfile wit it and ask the username. For example msgbox log.username
My question now is how can i add more options for that username. for example log.username(x).name or log.username(x).phonenr

the code i have now is:

Public Function user() As String
user = ..........
End Function


thanks,

[ZaidGS]

yeah, good u kno its a simple question
just hope i can explain it smoothly to make it seem so. :P


note that vb6 has no polymorphysm,
so you cannot define
a function .username and another .username(x).
(ignore this if you dont get it)

here is a small example code:

'class logs
'depends on another class called UserInfo
Public Property Get UserName(X as Long) as UserInfo
CollectInfo(UserName, X)
End Property
 
Public Sub CollectInfo(User as UserInfo, X as Long)
'''some code to set User to the wanted state
End Sub
 
'----------------
'class UserInfo
Private Name as String
Private ID as Long
 
Public Property Get Username() as String
Username=Name
End Property
 
Public Function phonenr
''' whateva u want ;)
End Function

hope this helps