hi i have a module that parse all html tags and then processes them and shows the results in chat window i use webbrowser as chat window here is my module.
most of it
in chatmessage box when i enter html tags such as bold or unerline or html colour
<font color="red">This is some text!</font>
or <b>aaaaa </b> etc
then the module reconizes them and has them processed into my chat window when the data is received
when i try and use blink <blink>aaaaaa</blink> it dont work because the blink code isnt in module:(
i need a module that contains all tags so when ever incomming data comes in if it has html tags it should convert and show the html results
most of it
Code:
If Ct < 2 Then GoTo Over
strText = Parse(LCase(">"), LCase(chr(253) & "/fade" & chr(253)), strText)
strText = strText & chr(253) & "/fade" & chr(253)
Loop
Over:
If InStr(LCase(strText), LCase("</font>")) Then strText = Replace(LCase(strText), LCase("</font>"), "")
If InStr(LCase(strText), LCase("</b>")) Then strText = Replace(LCase(strText), LCase("</b>"), "")
If InStr(LCase(strText), LCase("</i>")) Then strText = Replace(LCase(strText), LCase("</i>"), "")
If InStr(LCase(strText), LCase("</u>")) Then strText = Replace(LCase(strText), LCase("</u>"), "")
If InStr(LCase(strText), LCase("<b>")) Then strText = Replace(LCase(strText), LCase("<b>"), "")
If InStr(LCase(strText), LCase("<i>")) Then strText = Replace(LCase(strText), LCase("<i>"), "")
If InStr(LCase(strText), LCase("<u>")) Then strText = Replace(LCase(strText), LCase("<u>"), "")
strText = Replace(strText, chr(253) & "/fade" & chr(253), "")
Do While InStr(strText, ">")
If InStr(strText, ">") Then strText = Split(strText, ">", -1)(1)
Loop
strText = Fade(strText, tmpf)
If Len(FFont) > 0 Then
If Bold = True Then strText = "<b>" & strText & "</b>"
If Italic = True Then strText = "<i>" & strText & "</i>"
If Underline = True Then strText = "<u>" & strText & "</u>"
strText = FFont & strText & "</font>"
End If
If Len(FFont) = 0 Then
If Bold = True Then strText = "<b>" & strText & "</b>"
If Italic = True Then strText = "<i>" & strText & "</i>"
If Underline = True Then strText = "<u>" & strText & "</u>"
End If
If Smileys = True Then
For i = 0 To ImgC
If i = ImgC Then Exit For
strText = Replace(strText, chr(175) & i, img(i), 1, 1)
Next i
End If
End Ifin chatmessage box when i enter html tags such as bold or unerline or html colour
<font color="red">This is some text!</font>
or <b>aaaaa </b> etc
then the module reconizes them and has them processed into my chat window when the data is received
when i try and use blink <blink>aaaaaa</blink> it dont work because the blink code isnt in module:(
i need a module that contains all tags so when ever incomming data comes in if it has html tags it should convert and show the html results