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
Complete thread:
- ContactSearchDone Samples - zyq11111111, 2011-01-18, 18:25
- Re: ContactSearchDone Samples - wodDamir, 2011-01-18, 18:32
- Re: ContactSearchDone Samples - zyq11111111, 2011-01-18, 19:21
- Re: ContactSearchDone Samples - wodDamir, 2011-01-18, 20:13
- Re: ContactSearchDone Samples - zyq11111111, 2011-01-18, 20:33
- Re: ContactSearchDone Samples - wodDamir, 2011-01-18, 22:18
- chatrooms - algadry, 2011-04-06, 23:02
- Re: ContactSearchDone Samples - wodDamir, 2011-04-06, 23:06
- chatrooms - algadry, 2011-04-06, 23:02
- Re: ContactSearchDone Samples - wodDamir, 2011-01-18, 22:18
- Re: ContactSearchDone Samples - zyq11111111, 2011-01-18, 20:33
- Re: ContactSearchDone Samples - wodDamir, 2011-01-18, 20:13
- Re: ContactSearchDone Samples - zyq11111111, 2011-01-18, 19:21
- Re: ContactSearchDone Samples - wodDamir, 2011-01-18, 18:32