[解决】webbrowser禁止文字选择

[martinuk]

网上搜了几个小时实在是没办法了

现在在做一个触屏程序 ，用个webbrowse 控件显示网页， 想用手指在屏幕上滑动的方式来移动网页，而不是用滚动条。
这个效果很容易实现，但是现在就是在移动鼠标的时候会选择网页上的文字， 如果鼠标滑动的起点是图片时还会拖动图片。

如何禁止文字选择呢?

谢谢

[martinuk]

国庆快乐，不放假继续等待

[martinuk]

solution 1:
Inject Javascript to do it.

in webbrowser documentcompelted event
'
            'disable text selection
            '
            Dim head As HtmlElement = wb.Document.GetElementsByTagName("head")(0)
            Dim scriptEl As HtmlElement = wb.Document.CreateElement("script")
            Dim script_element As IHTMLScriptElement = scriptEl.DomElement

            script_element.text = " function disableSelection(){document.body.onselectstart=function(){return false;}; " _
                                & "document.body.ondragstart=function(){return false}}"
            head.AppendChild(scriptEl)
            wb.Document.InvokeScript("disableSelection")

[catdance]

动态将onselectstart event handler 设置为return false
此代码只适用于IE