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。拖到窗体上，会出现选择类型对话框。选择类型，再指定文件路径。就可以显示了，只有内容