目的
这篇教程将教会你使用 CorelDRAW VBA代码来调用默认浏览器打开指定的网址(URL),并可同时指定打开后的浏览器的焦点模式。
注意:在32位和64位的Windows系统中,具体调用的方法有所不同。请看详细代码:
一、声明系统函数
如果你使用的是32位系统,则如下声明:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
如果你使用的是64位系统,则需要在函数声明前加一个 PtrSafe
关键字来修饰 Function,因为64位系统调用 shell32.dll
可能存在某些问题,不保证绝对的安全。
加入 PtrSafe
修饰后,代码如下:
Private Declare PtrSafe Function ShellExecute Lib "sh