VB WebBrowser高亮显示及取消高亮显示关键字

最新推荐文章于 2020-12-10 16:09:18 发布

clg123

最新推荐文章于 2020-12-10 16:09:18 发布

阅读量2k

点赞数 1

文章标签： webbrowser vb function string command null

本文链接：https://blog.csdn.net/clg123/article/details/4494391

版权

前面提到过在WebBrowser中实现查找关键字及高亮显示关键字的功能，不晓得大家有没有发现那个高亮显示关键字的函数，高亮显示它是实现了，但是确没法把已经高亮显示的关键字的背景颜色取消掉，这个问题困惑我好长一段时间，在网上寻找答案也无语，只能自己去想办法了，于是我就在想，在找到关键字时先取得关键字的背景颜色，然后再替换选择的关键字背景。我找到了WebBrowser的一个属性BackColor设置或返回选择区域的背景色，我就想用它来返回背景色，但是就是无法返回背景色，但是让我发现了用它来设置指定区的背景色，当我不设置任何背景色时得到得是原本没用改变过的颜色，这不正好是我想要的结果嘛！！！！不敢独享，拿出来与大家共同分享。转载请保留作者信息。谢谢！！！！

Public Enum FBackColor
   红色 = 1
   绿色 = 2
   蓝色 = 3
   黄色 = 4
   紫色 = 5
   灰色 = 6
   棕色 = 7
   取消 = 8

自定义=9
End Enum

'*************************************************************************
'**函数名：FindBright
'**输    入：Text(String) 要查找的关键字             -
'**        ：FindBackColor(FBackColor)要实现的背景色，可以是标准的颜色索引 -
'**        ：Web(WebBrowser)浏览器控件           -
'**输    出：(Boolean '高亮或取消高亮显示关键字                                                                                                                                                               '**功能描述：
'**全局变量：
'**调用模块：
'**作    者：陈峰
'**日    期：2009-04-06 09:27:15
'**版    本：V1.0.0
'*************************************************************************
Public Function FindBright(Text As String, FindBackColor As FBackColor, Optional UserBackColor As Long) As Boolean '高亮或取消高亮显示关键字
    On Error Resume Next
    Dim texbody As HTMLBody
    Dim Rng As MSHTML.IHTMLTxtRange
    Dim BACKColos As String
    If FindBackColor = 红色 Then
        BACKColos = "Red"
    ElseIf FindBackColor = 黄色 Then
        BACKColos = "Yellow"
    ElseIf FindBackColor = 蓝色 Then
        BACKColos = "Blue"
    ElseIf FindBackColor = 绿色 Then
        BACKColos = "Green"
    ElseIf FindBackColor = 紫色 Then
        BACKColos = "Purple"
    ElseIf FindBackColor = 灰色 Then
        BACKColos = "Gray"
    ElseIf FindBackColor = 棕色 Then
        BACKColos = "Brown"
    ElseIf FindBackColor = 自定义 Then
        BACKColos = UserBackColor
    Else
        BACKColos = Null
    End If
    Set webdoc = WB(intFocus).document
    Set texbody = webdoc.body
    Set Rng = texbody.createTextRange()
    If Rng.findText(Text) = False Then FindBright = False: Exit Function
    Do While Rng.findText(Text) <> False
        Rng.findText Text
        'Rng.Select       '防止选择是页面滚动，将选择关键字取消掉
        'Rng.pasteHTML "<span style='background:" & BACKColos & "'>" + Text + "</span>"
        Rng.execCommand "BackColor", True, BACKColos     '高亮关键字
        Rng.collapse False
    Loop
    If BACKColos <> "" Then KeyWord(intFocus) = True Else KeyWord(intFocus) = False
    Rng.execCommand "Unselect", True, Null     '取消选中状态
    Rng.collapse True
    FindBright = True
End Function

'--------------高亮显示关键字------------------
Private Sub Command1_Click()
FindBright Text1.text, 黄色, WebBrowser1
End Sub
'--------------取消高亮显示关键字------------------
Private Sub Command2_Click()
FindBright Text1.text, 取消, WebBrowser1
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate2 "www.baidu.com"
End Sub