Hi, I am making a richtextbox to html convertor, I have added features like bold italic underline left align right align center align etc. I found a code to convert richtextbox to html but i am not sure how to use that function.
Public Shared Function FromRtf(ByVal rtf As RichTextBox) As String
Dim b, i, u As Boolean
b = False : i = False : u = False
Dim fontfamily As String = "Arial"
Dim fontsize As Integer = 12
Dim htmlstr As String = String.Format("<html>{0}<body>{0}<div style=""text-align: left;""><span style=""font-family: Arial; font-size: 12pt;"">", vbCrLf)
Dim x As Integer = 0
While x < rtf.Text.Length
rtf.Select(x, 1)
If rtf.SelectionFont.Bold AndAlso (Not b) Then
htmlstr &= "<b>"
b = True
ElseIf (Not rtf.SelectionFont.Bold) AndAlso b Then
htmlstr &= "</b>"
b = False
End If
If rtf.SelectionFont.Italic AndAlso (Not i) Then
htmlstr &= "<i>"
i = True
ElseIf (Not rtf.SelectionFont.Italic) AndAlso i Then
htmlstr &= "</i>"
i = False
End If
If rtf.SelectionFont.Underline AndAlso (Not u) Then
htmlstr &= "<u>"
u = True
ElseIf (Not rtf.SelectionFont.Underline) AndAlso u Then
htmlstr &= "</u>"
u = False
End If
If fontfamily <> rtf.SelectionFont.FontFamily.Name Then
htmlstr &= String.Format("</span><span style=""font-family: {0}; font-size: {0}pt;"">", rtf.SelectionFont.FontFamily.Name, fontsize)
fontfamily = rtf.SelectionFont.FontFamily.Name
End If
If fontsize <> rtf.SelectionFont.SizeInPoints Then
htmlstr &= String.Format("</span><span style=""font-family: {0}; font-size: {0}pt;"">", fontfamily, rtf.SelectionFont.SizeInPoints)
fontsize = rtf.SelectionFont.SizeInPoints
End If
Dim curchar As String = rtf.SelectedText
Select Case curchar
Case vbCr, vbLf : curchar = "<br />"
Case "&" : curchar = "&" : x += "&".Length - 1
Case "<" : curchar = "<" : x += "<".Length - 1
Case ">" : curchar = ">" : x += ">".Length - 1
Case " " : curchar = " " : x += " ".Length - 1
End Select
rtf.SelectedText = curchar
x += 1
End While
Return htmlstr & String.Format("</span>{0}</body>{0}</html>", vbCrLf)
End Function
Where do I call this function? How do use this function? Please help,its urgent!