如何在VB6程式中呼叫並開啟PDF文件

解：VB6 0如何在程式中呼叫開啟PDF檔案

下面的程式碼是呼叫系統預設程式開啟PDF，注意修改檔案路徑D:\help.pdf

Private Declare Function ShellExecute Lib ＂shell32.dll＂ Alias ＂ShellExecuteA＂ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As 是

Private Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()

Dim result

result = ShellExecute(0, vbNullString, ＂D:\help.pdf＂, vbNullString, vbNullString, SW_SHOWNORMAL)

If result

MsgBox ＂開啟失敗！＂， vbOKOnly vbCritical， ＂錯誤：＂， 0

End If

End Sub

VB怎麼利用pdf ocx來讀取PDF內容

'不就是開啟PDF嗎

下面是程式碼

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

Dim Sfile as string

Dim lR As Long

sfile=＂檔案路徑＂

#lR = ShellExecute(Me.hWnd, ＂Open＂, sfile, ＂＂, ＂＂, vbNormalFocus)

使用VB如何開啟Word Excel Text Exe PDF GIF 。 。 。

用API函數ShellExecute

VB宣告

Declare Function ShellExecute Lib ＂shell32.dll＂ Alias ＂ShellExecuteA＂ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As 但

##說明

尋找與指定檔案關聯在一起的程式的檔案名稱。關聯的方式要么是運行程序，要么是列印文件。可用Windows登錄編輯程式將特定的檔案類型相同應用程式關聯起來。例如，擴展名為.TXT的文字檔案通常與Windows記事本（NOTEPAD.EXE）關聯到一起。如在檔案管理器中雙擊含.TXT副檔名的一個文件，就會自行啟動記事本程序，並在其中載入文字檔案；或將指定的檔案列印出來

傳回值

Long，大於32表示成功

參數表 ：

參數 類型及說明

hwnd Long，指定一個視窗的句柄，有些時候，Windows程式有必要在建立自己的主視窗前顯示一個訊息框。如果發生這種情況，由這個參數指定的視窗就會作為訊息框的父視窗使用。在VB環境中，通常會將活動窗體的視窗句柄當作這個參數來使用

lpOperation String，指定字串「Open」來開啟lpFlie文件；或指定「Print」來列印它。也可設為vbNullString，表示預設為“Open”

lpFile String，想用關聯的程式列印或開啟的一個程式名稱或檔案名稱

lpParameters String，如lpFile是一個可執行文件，則這個字符串包含了傳遞給執行程式的參數。如lpFile引用的是一個文件文件，或不需要使用參數，則設為vbNullString

lpDirectory String，想使用的預設路徑完整路徑

nShowCmd Long，定義如何顯示啟動程式的常數值。

註解

這個函數的說明在MSDN裡是這樣的：Opens or prints a specified file

以上是如何在VB6程式中呼叫並開啟PDF文件的詳細內容。更多資訊請關注PHP中文網其他相關文章！