none
如何搜尋網頁的字串捲軸定位在那 RRS feed

  • 問題

  • 就是我要在WebBrowser裡面找字串找到了右邊的上下軸可以定位在那個字串那邊
    就好像錨點一樣可以定位到那個字串
    2010年8月27日 下午 04:58

解答

  • 篩ㄟ

    好久沒跟你問了

    可能是我敘述讓你孤莎莎

    我不是說網頁的錨點

    不過我已經找到答案了

      Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If WebBrowser1.Document IsNot Nothing Then
          Dim document As IHTMLDocument2 = TryCast(WebBrowser1.Document.DomDocument, IHTMLDocument2)
          If document IsNot Nothing Then
            Dim currentSelection As IHTMLSelectionObject = document.selection
            Dim range As IHTMLTxtRange = TryCast(currentSelection.createRange(), IHTMLTxtRange)
            If range IsNot Nothing Then
              Const search As String = "要搜尋的字串"
              If range.findText(search, search.Length, 2) Then
                range.select()
              End If
            End If
          End If
        End If
        Recognition()
      End Sub
    
    2010年8月28日 下午 05:09

所有回覆

  • 目標字串 變更為 <a name='隨便字串'>目標字串</a>

    ,然後

    網址 變更為 原網址#隨便字串


    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。
    2010年8月28日 下午 03:26
  • 篩ㄟ

    好久沒跟你問了

    可能是我敘述讓你孤莎莎

    我不是說網頁的錨點

    不過我已經找到答案了

      Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If WebBrowser1.Document IsNot Nothing Then
          Dim document As IHTMLDocument2 = TryCast(WebBrowser1.Document.DomDocument, IHTMLDocument2)
          If document IsNot Nothing Then
            Dim currentSelection As IHTMLSelectionObject = document.selection
            Dim range As IHTMLTxtRange = TryCast(currentSelection.createRange(), IHTMLTxtRange)
            If range IsNot Nothing Then
              Const search As String = "要搜尋的字串"
              If range.findText(search, search.Length, 2) Then
                range.select()
              End If
            End If
          End If
        End If
        Recognition()
      End Sub
    
    2010年8月28日 下午 05:09