Support forums - Re: Establishing User Relationships on the fly

Re: Establishing User Relationships on the fly

Reply Quote

create your own "GetUserInfo" method - i called mine "GetUserInfo2"

For i As Integer = 0 To friends.Length - 1

Debug.WriteLine("this is the friend value being passed in " & friends(i))

Dim friendid As Integer = qChat.ToUserId(friends(i))

arr(i) = qChat.GetUserInfo2(friendid)

Debug.WriteLine("adding to array..")

Debug.WriteLine("ended loop")

Return arr

-------- the method

Public Shared Function GetUserInfo2(ByVal friendid As Integer) As IChatUserInfo

Debug.WriteLine("about to create appUserINfo with this friend id " & friendid)

Dim userInfo As IChatUserInfo = New AppUserInfo(friendid.ToString())

Debug.WriteLine("app user info created")

Debug.WriteLine("this is the friend id now " & friendid)

userInfo.DisplayName = qFun.getUserNameFromID(friendid)

Debug.WriteLine("display name for info " & userInfo.DisplayName)

Return userInfo

End Function