118.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 30 行

HTML
30 行
字号 
<html>  <head>    <title>使用 ShellExecute API</title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">    <center>      <h1>使用 ShellExecute API</h1>    </center><HR><p>Posted by <a href="mailto:yfwu@iname.com">小吴</a> on June 30, 1997 at 19:39:45:<p>In Reply to: <a href="108.html"><b>windows on files</b></a> posted by jacky on June 26, 1997 at 18:25:29:<p>要开启我的电脑，设定一个我的电脑捷径即可<p>' ==== ShellExecute ====<br>Private Const SW_SHOWNORMAL = 1<br>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<br>Private Declare Function GetDesktopWindow Lib "user32" () As Long<br>' 传回值(错误)<br>Public Const ERROR_BAD_FORMAT = 11&<br>Public Const ERROR_FILE_NOT_FOUND = 2&<br>Public Const ERROR_PATH_NOT_FOUND = 3&<br>Public Const SE_ERR_ACCESSDENIED = 5<br>Public Const SE_ERR_ASSOCINCOMPLETE = 27<br>Public Const SE_ERR_DDEBUSY = 30<br>Public Const SE_ERR_DDEFAIL = 29<br>Public Const SE_ERR_DDETIMEOUT = 28<br>Public Const SE_ERR_DLLNOTFOUND = 32<br>Public Const SE_ERR_FNF = 2<br>Public Const SE_ERR_NOASSOC = 31<br>Public Const SE_ERR_OOM = 8<br>Public Const SE_ERR_PNF = 3<br>Public Const SE_ERR_SHARE = 26<p>' 本 Shell 可以执行关联档<br>Public Function ShellEx(ByVal sFileName, ByVal sParam, ByVal sDir, Optional ByRef vErr) As Long<br>    Dim Scr_hDC As Long<br>    Dim lReturn<br>    Scr_hDC = GetDesktopWindow()<br>    lReturn = ShellExecute(Scr_hDC, "Open", sFileName, sParam, sDir, SW_SHOWNORMAL)<br>    ' 传回执行结果<br>    Select Case lReturn<br>        Case Is > 32    ' 成功<br>        Case 0:                      vErr = "系统记忆体或资源不足"<br>        Case ERROR_FILE_NOT_FOUND:   vErr = "档案找不到"<br>        Case ERROR_BAD_FORMAT:       vErr = "错误的 EXE 档案格式"<br>        Case ERROR_PATH_NOT_FOUND:   vErr = "路径找不到"<br>        Case SE_ERR_ACCESSDENIED:    vErr = "拒绝存取"<br>        Case SE_ERR_ASSOCINCOMPLETE: vErr = "档案关连资讯错误"<br>        Case SE_ERR_DDEBUSY:         vErr = "DDE Busy"<br>        Case SE_ERR_DDEFAIL:         vErr = "DDE Fail"<br>        Case SE_ERR_DDETIMEOUT:      vErr = "DDE Timeout"<br>        Case SE_ERR_DLLNOTFOUND:     vErr = "找不到相关的动态连结档"<br>        Case SE_ERR_FNF:             vErr = "档案找不到"<br>        Case SE_ERR_NOASSOC:         vErr = "档案没有关连"<br>        Case SE_ERR_OOM:             vErr = "记忆体不足"<br>        Case SE_ERR_PNF:             vErr = "路径找不到"<br>        Case SE_ERR_SHARE:           vErr = "分享错误"<br>    End Select<br>    ShellEx = lReturn<br>End Function<br><br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 118--><!--top: 143--><li><a href="143.html"><b>Re: 使用 ShellExecute API</b></a> 黄嘉贤 <i>09:55:47 7/03/97</i>(<!--responses: 143-->1)<ul><!--insert: 143--><!--top: 149--><li><a href="149.html"><b>Re: 使用 ShellExecute API</b></a> 小吴 <i>02:15:50 7/04/97</i>(<!--responses: 149-->0)<ul><!--insert: 149--></ul><!--end: 149--></ul><!--end: 143--></ul><!--end: 118--><br><HR><p></body></html>

118.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 118.html 源码文件，采用 HTML 编程语言编写，共 30 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?