ContactSearchDone Samples - WeOnlyDo Discussion board

ContactSearchDone Samples (wodXMPP)

by zyq11111111, Tuesday, January 18, 2011, 18:25 (4846 days ago)

i try wodXMPP 1.43
and try C:Program FilesWeOnlyDo.ComXMPPSamplesVBComponent6. Search And Add Samples

Private Sub wodXMPP1_ContactSearchDone(ByVal Service As WODXMPPCOMLib.IXMPPService, ByVal items As WODXMPPCOMLib.IXMPPVars)
If (items.Type = VarForm) Then
Dim fok As Boolean
fok = items.Show( Please enter criteria to search for: , Me.hWnd)
If (fok) Then
wodXMPP1.Contacts.Search Service, items
End If
End If

If (items.Type = VarReport) Then
Dim srchResult As SearchResult
Set srchResult = New SearchResult
srchResult.Show
Dim i As Integer
For i = 0 To items.Count - 1
srchResult.List1.AddItem items( jid ).SubValue(i)
Next
End If

End Sub

but srchResult.List1.AddItem items( jid ).SubValue(i) not work


Complete thread: