ContactSearchDone Samples (wodXMPP)
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
