| 发表于:2007-09-11 14:16:518楼 得分:5 |
public 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 private sub command1_click() with commondialog1 .filter = "pdf file (*.pdf) ¦*.pdf " .showopen shellEXECute me.hwnd, "open ", .filename, " ", " ", 0 end with end sub | | |
|