VB获得指定网页中的部分内容

首先要在窗体中添加webbrowser控件,我在这儿将这个控件命名为web1，你要设置，网页必须在该控件中打开。。其次再添加一个按钮和文本框。
然后为按钮添加如下代码：
Set oDoc = Web1.Document
Set oTxtRgn = oDoc.selection.createRange
txtwyxs.Text = oTxtRgn.Text
在程序运行过程中只要你在Web中选中内容，然后单击按钮就可以将选中的文本内容添加到文本框中。

分太少

闪