none
如何將 AxWebBrowser 的捲軸隱藏掉 RRS feed

解答

  • HI,

     

    如果是VS2003, 您只要處理AxWebBrowser1的DocumentComplete事件即可:

     

    Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, ByVal e As _  

                          AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) _

                          Handles AxWebBrowser1.DocumentComplete
            AxWebBrowser1.Document.body.setAttribute("scroll", "no")

    End Sub

     

    tihs
    2008年8月19日 下午 12:42

所有回覆

  • HI

     

    您可以處理WebBrowser控制項的DownloadComplete和DocumentComplete事件

     

    Private Sub WB1_DownloadComplete()
      WebBrowser1.Document.body.setAttribute "scroll", "no"
    End Sub

    There is another way too, see the following code:

    Private Sub WB1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If (pDisp Is WB1.Object) Then
        WebBrowser1.Document.body.style.overflow ="hidden"
    End If
    End Sub

    tihs

    2008年8月16日 上午 07:15
  •  

    您上面所舉的例子,請問WebBrowser要如何加入?

    因為我是使用AxWebBrowser ,所以你舉的例子都沒有作用. 

    2008年8月17日 上午 03:42
  • HI,

     

    如果您的WebBrowser物件的名稱叫做AxWebBrowser, 請把程式碼中的WebBrowser1都改成AxWebBrowser

     

    tihs

     

    2008年8月18日 上午 01:27
  • 有有有,如果沒不改過來,編譯沒辦法成功~

    但是,就是沒有出現那個效果
    2008年8月18日 上午 06:00
  • HI,

     

    如果是VS2003, 您只要處理AxWebBrowser1的DocumentComplete事件即可:

     

    Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, ByVal e As _  

                          AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) _

                          Handles AxWebBrowser1.DocumentComplete
            AxWebBrowser1.Document.body.setAttribute("scroll", "no")

    End Sub

     

    tihs
    2008年8月19日 下午 12:42