Subject: Doubt regarding Xdataform in AgsXmpp dll
I would like to know in what ways the xdata form will work. It is include in the mainform? I shall mention the code listing:
' check for xData Message
Dim e As Element = msg.SelectSingleElement(GetType(Data))
If Not (e Is Nothing) Then
Dim xdata As Data = e '
If xdata.Type = XDataFormType.form Then
Dim fXData As New frmXData(xdata)
fXData.Text = "xData Form from " + msg.From.ToString()
fXData.Show()
End If
Else
If Not Util.ChatForms.ContainsKey(msg.From.Bare) Then
Dim rn As RosterNode = rosterControl.GetRosterItem(msg.From)
Dim nick As String = msg.From.Bare
If Not (rn Is Nothing) Then
nick = rn.Text
End If
Dim f As New frmChat(msg.From, XmppCon, nick)
f.Show()
f.IncomingMessage(msg)
End If
End If
' check for xData Message
Dim e As Element = msg.SelectSingleElement(GetType(Data))
If Not (e Is Nothing) Then
Dim xdata As Data = e '
If xdata.Type = XDataFormType.form Then
Dim fXData As New frmXData(xdata)
fXData.Text = "xData Form from " + msg.From.ToString()
fXData.Show()
End If
Else
If Not Util.ChatForms.ContainsKey(msg.From.Bare) Then
Dim rn As RosterNode = rosterControl.GetRosterItem(msg.From)
Dim nick As String = msg.From.Bare
If Not (rn Is Nothing) Then
nick = rn.Text
End If
Dim f As New frmChat(msg.From, XmppCon, nick)
f.Show()
f.IncomingMessage(msg)
End If
End If