这是用于缩小网络浏览器的代码
Const OLECMDID_OPTICAL_ZOOM = 63
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
Web1.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(35), vbNull
当我使用代码时,出现以下运行时错误:
-2147221248 (80040100):自动化错误
有任何想法吗?
编辑:我使用你提供的代码。一旦我使用 exe 并运行它显示以下错误,它在调试模式下工作正常。