我使程序女巫颜色不同的文本部分(如Notepad ++),但我有问题。
这是代码的一部分,在 Class1
中Public Shared Function get_c_html()
Dim html_words As New List(Of String) From {"<html>", "<title>", "<b>" _
, "</b>", "<u>", "</u>", "<i>", "</i>", "<sub>", "</sub>", "<sup>", "</sup>", "<a href" _
, "</a>", "<body>", "</body>", "<head>", "</head>", "</font>", "<font>", "<div", "</div", "<title>" _
, "</title>", "<img", "/>", "<link", "<br>", "<ul>", "</ul>", "<li>", "</li>" _
, "<table>", "</table>", "<tr>", "</tr>", "<td>", "</td>", "<meta>", "</meta>" _
, "meta", "<background>"}
Dim icountMatch As Integer = 0
For Each blue As String In html_words
icountMatch = HighlightWords(Form1.rchtml, blue, Color.Blue)
Next
Return 0
End Function
程序正常工作并突出显示文本,但如果我在html_words中添加“/ html”,则程序无法启动。
我尝试添加anoter Public共享功能,但同样给我“错误”。
答案 0 :(得分:0)
程序正常工作并突出显示文本,但如果我添加&#34; / html&#34;在html_words中,程序没有启动。
列表声明工作正常。问题很可能是HighlightWords功能。
另一方面,如果您不打算返回有意义的值,则应使用Sub而不是函数