| 发表于:2007-01-29 15:15:113楼 得分:15 |
有,先安装acrobat reader 7.0,添加com组件adobe acrobat 7.0 browser document,就会在工具箱里出现控件了,载入文件的语句我是这样写的,当然,要加个对话框:我用的是.net,语法和对话框可能有点不同: private sub mnuopen_click(byval sender as object, byval e as system.eventargs) handles mnuopen.click dim openfilename as string openfiledialog1.filename = " " openfiledialog1.filter = "adobe pdf 文件 (*.pdf) ¦*.pdf " if openfiledialog1.showdialog() = windows.forms.dialogresult.ok then openfilename = openfiledialog1.filename axacropdf1.loadfile(openfilename) axacropdf1.visible = true me.text = "adobe reader - [ " + getfilename(openfilename) + "] " timer1.enabled = true mnuautotrnovr.enabled = true end if end sub | | |
|