2个回答
展开全部
首先要在窗体中添加webbrowser控件,我在这儿将这个控件命名为web1，你要设置，网页必须在该控件中打开。。其次再添加一个按钮和文本框。
然后为按钮添加如下代码：
Set oDoc = Web1.Document
Set oTxtRgn = oDoc.selection.createRange
txtwyxs.Text = oTxtRgn.Text
在程序运行过程中只要你在Web中选中内容，然后单击按钮就可以将选中的文本内容添加到文本框中。
然后为按钮添加如下代码：
Set oDoc = Web1.Document
Set oTxtRgn = oDoc.selection.createRange
txtwyxs.Text = oTxtRgn.Text
在程序运行过程中只要你在Web中选中内容，然后单击按钮就可以将选中的文本内容添加到文本框中。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
