怎么样在VB中实现网页“全选”“复制”“粘贴”功能啊，求助，感谢啦！

我是在用VB做IE浏览器是遇到的问题，在彩单项里的很多按纽都不会编写啊，还有就是在地址栏里要保存10条访问记录，高手们怎么弄啊/

推荐答案 2007-07-19

试用于VB6.0
复制
WebBrowser1.SetFocus
WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
查找：WebBrowser1.SetFocus
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_FIND, OLECMDEXECOPT_DODEFAULT
全选：WebBrowser1.SetFocus
WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
粘贴:
WebBrowser1.SetFocus
WebBrowser1.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT

参考资料：我在做这个设计,从书上抄的

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/p9vvvv99.html

相似回答

用vb编写浏览器时网页上的复制粘贴剪切全选等的代码怎么写啊急啊找...答：WebBrowser1.Document.execCommand "SelectAll"WebBrowser1.Document.execCommand "copy"WebBrowser1.Document.execCommand "paste"上面就是全选、复制、粘贴的代码

VBA代码用API打开网页代码如下,问题是怎样全选复制该网页到剪贴板。不...答：sendkeys发送按键CTRL+A、CTRL+C是可以的，只是你可能需要一定的延时等待，然后切换窗口（AppActivate ）

vb,怎样按一下按钮能全选及复制文本框的内容?答：Text1.SelLength = 0 '设置选定的起始位置 Text1.SelLength = Len(Text1.Text) '设置选定的长度 Clipboard.Clear '清除剪贴板上的内容 Clipboard.SetText Text1.SelText '复制选中的文本到剪贴板上 End Sub 粘贴:Private Sub Command2_Click()Text1.SelText = Clipboard.GetText()End...

关于VB急。复选框的全选,全清问题。答：先画两个复选框，check1为全选，复制n个check2，一共就有n+1个check2，再画一个check3（全清）=== Private Sub Check1_click()If Check1.Value = 1 Then For i = 0 To n Check2(i).Value = Check1.Value Next i Check3.Value = 0 End If End Sub Private Sub Check3_Click()I...

如何从VB的WebBrowser控件中获取网页文字答：Function HtmlStr$(Url$) '提取网页源码函数 Dim XmlHttp Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "GET", Url, False XmlHttp.send If XmlHttp.ReadyState = 4 Then HtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode) Set XmlHttp = NothingEnd FunctionPrivate Sub ...

vb 什么代码能代替ctrl+c ? ..答：其实无需“在TEXTBOX中按右键粘贴” 的，如下即可：1. 在网页页面按ctrl+a 2. 再按 ctrl+c 3. 点击你自己做的按钮 Private Sub Command1_Click()Text1.Text = Text1.Text & Clipboard.GetText End Sub

大家正在搜

怎么网页全选复制在电脑上怎么全选复制全选复制粘贴复制粘贴不了怎么办全选复制粘贴的快捷键怎样复制粘贴文字电脑怎么复制粘贴文字手机复制粘贴怎么弄筛选后的表格如何复制粘贴