公告
本專欄的相關(guān)的文章已不在簡(jiǎn)書同步更新烧董，請(qǐng)直接訪問 VBA探秘 官方網(wǎng)站或關(guān)注微信公眾號(hào)獲取最新文章動(dòng)態(tài)。
coreldraw-open-url-in-browser
目的
這篇教程將教會(huì)你使用 CorelDRAW VBA代碼來調(diào)用默認(rèn)瀏覽器打開指定的網(wǎng)址（URL）桃犬，并可同時(shí)指定打開后的瀏覽器的焦點(diǎn)模式。
注意：在32位和64位的Windows系統(tǒng)中，具體調(diào)用的方法有所不同磨澡。請(qǐng)看詳細(xì)代碼：
一约谈、聲明系統(tǒng)函數(shù)
如果你使用的是32位系統(tǒng)笔宿，則如下聲明：
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位系統(tǒng)犁钟，則需要在函數(shù)聲明前加一個(gè) PtrSafe 關(guān)鍵字來修飾 Function，因?yàn)?4位系統(tǒng)調(diào)用 shell32.dll 可能存在某些問題泼橘，不保證絕對(duì)的安全涝动。
加入 PtrSafe 修飾后，代碼如下：
Private Declare PtrSafe 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
二炬灭、編寫函數(shù)
'=============================================================
' 打開網(wǎng)址函數(shù)
' @url: 要打開的網(wǎng)址醋粟，例如：www.cdrvba.com
'=============================================================
Sub openUrl(url As String)
ShellExecute 0&, vbNullString, url, vbNullString, vbNullString, vbNormalFocus
End Sub
該函數(shù)最后一個(gè)參數(shù)用于指定瀏覽器打指定網(wǎng)址后，要以怎樣的模式來顯示重归，默認(rèn)是 vbNormalFocus米愿，即普通焦點(diǎn)。還可以指定為其他模式提前，具體如下：
- vbNormalFocus：普通焦點(diǎn)模式
- vbMinimizedNoFocus：最小化模式吗货，沒有焦點(diǎn)
- vbMaximizedFocus：最大化模式，有焦點(diǎn)
- vbHide：隱藏
三狈网、調(diào)用函數(shù)
聲明函數(shù)一般放在模塊或者窗體代碼的頂部宙搬，整體代碼如下：
' 函數(shù)聲明（64位系統(tǒng)）
Private Declare PtrSafe 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
'=============================================================
' 打開網(wǎng)址函數(shù)
' @url: 要打開的網(wǎng)址，例如：www.cdrvba.com
'=============================================================
Sub openUrl(url As String)
ShellExecute 0&, vbNullString, url, vbNullString, vbNullString, vbNormalFocus
End Sub
' 測(cè)試函數(shù)調(diào)用
Sub test()
openUrl "www.cdrvba.com"
End Sub
原創(chuàng)聲明：本文首發(fā)于個(gè)人CorelDRAW VBA博客拓哺，請(qǐng)尊重文章版權(quán)勇垛。
轉(zhuǎn)載請(qǐng)注明原文鏈接：http://www.cdrvba.com/coreldraw-vba-open-url-in-browser/
