G
Guest
ok, this is driving me insane, plz someone help. im attempting to add text to
a webbrowser document text by doing as follows, IM is an Instant Message
object in the AIM SDK, the line
Dim str As String = IM.GetConvertedText(decode)
get the text in the im, which works perfectly fine, ive tested it. all my
variables have a value
Public Sub ImRec(ByVal IM As IAccIm, ByVal Sender As IAccUser)
Dim str As String = IM.GetConvertedText(decode)
If str.Contains("<body>") Then
str = str.Remove(str.IndexOf("<body>"), 6)
str = str.Remove(str.IndexOf("</body>"), 7)
End If
If timestamp Then
Dim temp As String = str
temp = temp.Insert(temp.IndexOf("<html>") + 1, "<br><Font Color
= Blue>" & Sender.Name & "(" & Now.ToLongTimeString & ")" & ": </font> ")
Me.webRecv.DocumentText = Me.webRecv.DocumentText & temp
Else
Dim temp As String = str
temp = temp.Insert(temp.IndexOf("<html>") + 1, "<br><Font Color
= Blue>" & Sender.Name & ": </font> ")
Me.webRecv.DocumentText = Me.webRecv.DocumentText & temp
End If
Call ChangeImageIndex(2)
If Me.ContainsFocus Then
ChangeImageIndex(0)
End If
End Sub
yet this wont add anything to the web document.....whats going on here?
theres no error or anything, it just wont show up!
a webbrowser document text by doing as follows, IM is an Instant Message
object in the AIM SDK, the line
Dim str As String = IM.GetConvertedText(decode)
get the text in the im, which works perfectly fine, ive tested it. all my
variables have a value
Public Sub ImRec(ByVal IM As IAccIm, ByVal Sender As IAccUser)
Dim str As String = IM.GetConvertedText(decode)
If str.Contains("<body>") Then
str = str.Remove(str.IndexOf("<body>"), 6)
str = str.Remove(str.IndexOf("</body>"), 7)
End If
If timestamp Then
Dim temp As String = str
temp = temp.Insert(temp.IndexOf("<html>") + 1, "<br><Font Color
= Blue>" & Sender.Name & "(" & Now.ToLongTimeString & ")" & ": </font> ")
Me.webRecv.DocumentText = Me.webRecv.DocumentText & temp
Else
Dim temp As String = str
temp = temp.Insert(temp.IndexOf("<html>") + 1, "<br><Font Color
= Blue>" & Sender.Name & ": </font> ")
Me.webRecv.DocumentText = Me.webRecv.DocumentText & temp
End If
Call ChangeImageIndex(2)
If Me.ContainsFocus Then
ChangeImageIndex(0)
End If
End Sub
yet this wont add anything to the web document.....whats going on here?
theres no error or anything, it just wont show up!