试用于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
参考资料:我在做这个设计,从书上抄的