首先添加引用Microsoft.msHTML,具体 *** 作项目->添加引用->.NET找到添加就行
需要的控件webbrowser一个,button一个,如果名字不是默认请修正代码中控件名字。
然后代码如下即可:在vs2010,【.net4.0下调试通过】Private Sub button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles button1.Click '获取用户选中的文字 Dim HTMLdocument As msHTML.IHTMLdocument2 'IHTMLdocument2 HTMLdocument = Webbrowser1.document.Domdocument Dim currentSelection As msHTML.IHTMLSelectionObject currentSelection = HTMLdocument.selection Dim range As msHTML.IHTMLTxtRange If Not (currentSelection Is nothing) Then range = currentSelection.createrange() If Not (range Is nothing) Then MsgBox(range.text) ‘可以进行你希望的 *** 作 End If End If End Sub总结
以上是内存溢出为你收集整理的vb.net webbrowser控件如何获取鼠…全部内容,希望文章能够帮你解决vb.net webbrowser控件如何获取鼠…所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)