vb6pdf

1. vb中，怎麼打開一個pdf文件，僅僅是打開

Shell函數是VB中的內部函數，它負責執行一個可執行文件，返回一個Variant(Double)，如果成功的話，代表這個程序的進程ID，若不成功，則會返回0。Shell的語法：Shell(PathName[，WindowStyle])。PathName為必需參數。類型為String，它指出了要執行的程序名，以及任何需要的參數或命令行變數，也可以包括路徑名。WindowStyle為可選參數。Integer類型，指定在程序運行時窗口的樣式。WindowStyle有以下這些值。常量值描述VbHide0窗口被隱藏，且焦點會移到隱式窗口。VbNormalFocus1窗口具有焦點，且會還原到它原來的大小和位置。VbMinimizedFocus2窗口會以一個具有焦點的圖標來顯示（預設值）。VbMaximizedFocus3窗口是一個具有焦點的最大化窗口。VbNormalNoFocus4窗口會被還原到最近使用的大小和位置，而當前活動的窗口仍然保持活動。VbMinimizedNoFocus6窗口會以一個圖標來顯示，而當前活動的窗口仍然保持活動SHELL函數的第一個參數是可以設定為相對路徑的。舉個例子，在程序同一目錄下有個文件example.exe：PrivateSubForm_Load()DimaAsIntegera=Shell(App.Path&"\example.exe",vbNormalFocus)EndSub打開一個example.exe文件在VB中SHELL函數的使用僅限制於*.exe*.com*.bat等類型的文件。對於你的問題，可以寫成a＝shell("E:\Keil\UV4\Uv4.exe",3)

2. 如何在vb中打開一個PDF文件

利用AcroPDF打開並顯示PDF文件。

注意：必須事先安裝免費的 Adobe Reader 11.0

（1）創建一個VB6工程。在工具欄中點擊滑鼠右鍵，調出右鍵菜單-->部件-->Adobe Acrobat 7.0 Control Type Library 1.0-->確定

3. vb如何生成txt、pdf等文件並在裡面生成就算結果

open app.path"\xxxx.txt" for output as #1
print #1或者write#1就行吧..txt可以..pdf還沒試驗過..如果沒有這個名字的txt.他會先生成一個該文本.（位置在工程所在目錄下..）

4. 用VB6怎麼打開Adobe Reader 並同時打開一個*.pdf文件

Shell "<Adobe Reader程序路徑> <pdf文件路徑>"(Adobe Reader和pdf文件之間有空格)
比如Adobe Reader安裝在 d:\Software\Adobe\AcroRd32.exe

要打開的pdf是 d:\1.pdf
代碼就是 Shell "d:\Software\Adobe\AcroRd32.exe d:\1.pdf"

5. vb 打開PDF文件

利用AcroPDF打開並顯示PDF文件。

注意：必須事先安裝免費的 Adobe Reader 11.0

（1）創建一個VB6工程。在工具欄中點擊滑鼠右鍵，調出右鍵菜單-->部件-->Adobe Acrobat 7.0 Control Type Library 1.0-->確定

6. vb6中如何實現在窗體中查看doc或pdf文檔

是這樣么，只要用vb工具欄默認控制項 ole。拖到窗體上，會出現選擇類型對話框。選擇類型，再指定文件路徑。就可以顯示了，只有內容

7. 求電子版的《開發巨匠--visual c++6.0高級編程技術精粹》拜託了各位 謝謝

您好，看到您的問題一直是零回答問題且將要被新提的問題從問題列表中擠出，問題無人回答過期後會被扣分並且懸賞分也將被沒收！所以我給你提幾條建議： 一，您可以選擇在正確的分類下去提問或者到與您問題相關專業網站論壇里去看看，這樣知道你問題答案的人才會多一些，回答的人也會多些。當然，找老師幫忙是最簡單有效的方法！ 二，您可以多認識一些知識豐富的網友，和曾經為你解答過問題的網友經常保持聯系，遇到問題時可以直接向這些好友詢問，他們會更加真誠熱心為你尋找答案的。 三，很多時候該自己做的事還是必須有自己獨立完成的，有的事還是須由自己的聰明才智來解決的，別人不可能代勞！就算別人給你代勞，最後也不屬於你的，只有自己做了才是真正屬於自己的，別人只能給你提供指導和建議，最終靠自己。所以，祝願你可以憑借自己的努力找到最終自己想要的結果！你是最棒的！ 您可以不採納我的答案，但請你一定採納我的建議哦！ 雖然我的答案很可能不能解決你的問題，但一定可以使你更好地使用問問哦~~~

8. VB6 怎麼才能把工程中查詢出來的數據導出為PDF，求各位指教啊！！！

我說的是間接辦法，先拷貝粘貼到WORD中，然後在轉成PDF（Word2010直接另存為就可以了）。

9. VB中如何列印已有的PDF文檔

調用Shell
Option Explicit

Private Const WAIT_FAILED = &HFFFFFFFF

Public Declare Function WaitForInputIdle Lib "user32" ( _
ByVal hProcess As Long, _
ByVal dwMilliseconds As Long _
) As Long

Public Declare Function WaitForSingleObject Lib "Kernel32" ( _
ByVal hHandle As Long, _
ByVal dwMilliseconds As Long _
) As Long

Private Declare Function TerminateProcess Lib "Kernel32" ( _
ByVal hProcess As Long, _
ByVal uExitCode As Long _
) As Long

Private Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteExA" ( _
lpExecInfo As SHELLEXECUTEINFO _
) As Long

Private Type SHELLEXECUTEINFO
cbSize As Long
fMask As Long
hwnd As Long
lpVerb As String
lpFile As String
lpParameters As String
lpDirectory As String
nShow As Long
hInstApp As Long
lpIDList As Long
lpClass As String
hkeyClass As Long
dwHotKey As Long
hIcon As Long
hProcess As Long
End Type

'SHELLEXECUTEINFO fMask-Konstanten
Private Const SEE_MASK_NOCLOSEPROCESS = &H40 'F黮lt die Struktur Option hProcess mit dem Process Handle der gestarteten Anwenng
Private Const WAIT_OBJECT_0 = &H0 'Das

'SHELLEXECUTEINFO nShow-Konstanten
Public Enum ShowConstants
WVersteckt = 0 'Versteckt das Fenster
WNormal = 1 'Zeigt es ganz normal an
WMaximiert = 3 'Maximiert das Fenster
WMinimiert = 6 'Minimiert das Fenster
End Enum

Public Enum WaitConstants
wcNone = 0
wcInitialisiert = 1
WCTermination = 2
End Enum

Public Function ShellAndWait(ByVal Operation As String, _
ByVal FilePath As String, _
Optional Parameter As String, _
Optional WorkingFolder As String, _
Optional WindowSize As ShowConstants = 1, _
Optional WaitFor As WaitConstants = 0, _
Optional Milliseconds As Long = -1, _
Optional CloseProcess As Boolean = False) As String

Dim RetVal As Long
Dim ShExInfo As SHELLEXECUTEINFO

'//////////////////////////////////////////////////////////////////////////////
' Initialisierung
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

If WorkingFolder = "" Then WorkingFolder = FilePath

With ShExInfo
.cbSize = Len(ShExInfo)
.fMask = SEE_MASK_NOCLOSEPROCESS
.hwnd = 0
.lpVerb = Operation
.lpFile = FilePath
.lpParameters = Parameter
.lpDirectory = WorkingFolder
.nShow = WindowSize
End With

'/////////////////////////////////////////////////////////////////////////////
' Anwenng ausf黨ren
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

RetVal = ShellExecuteEx(ShExInfo)

If RetVal = 0 Then
'Ein Fehler ist aufgetreten
' ShellAndWait = ShellExecError(ShExInfo.hInstApp)
Exit Function
End If

'/////////////////////////////////////////////////////////////////////////////
' Warten auf Prozess
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

If WaitFor <> wcNone Then

If WaitFor = wcInitialisiert Then
' Warten bis die Anwenng initialisiert ist
RetVal = WaitForInputIdle(ShExInfo.hProcess, Milliseconds)

Else
' Warten bis die Anwenng beendet
RetVal = WaitForSingleObject(ShExInfo.hProcess, Milliseconds)

End If

If RetVal = WAIT_FAILED Then ShellAndWait = "Warten auf Prozess fehlgeschlagen."

End If

'/////////////////////////////////////////////////////////////////////////////
' SCHLIE逧N DES PROZESSES
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
If CloseProcess = True Then
RetVal = TerminateProcess(ShExInfo.hProcess, 1)
If RetVal <> 0 Then ShellAndWait = "Schlie遝n der Anwenng fehlgeschlagen."
End If

End Function

列印命令
ShellAndWait "print", Filename, "", vbNullChar, WVersteckt, WCTermination, 60000, True

10. vb6中如何實現在窗體中查看doc或pdf文檔

是這樣么，只要用vb工具欄默認控制項
ole。拖到窗體上，會出現選擇類型對話框。選擇類型，再指定文件路徑。就可以顯示了，只有內容