6073.html

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

HTML

23 行

<html>
  <head>
    <title>Re: 再问 shell....................................       </title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 再问 shell....................................       </h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:zlxuan@csie.nctu.edu.tw">jeffrey</a> on September 28, 1998 at 07:51:53:<p>
In Reply to: <a href="6049.html">再问 shell....................................       </a> posted by Chino on September 27, 1998 at 15:54:16:<p>
:     在98中,只要在开始->执行,key in : http://www.hinet.net 即可以其98中<br>: 预设之流览器开启,key in : mailto:nolover@ms1.url.com.tw , 即可以其98中<br>: 之预设之Mail 程式开启新邮件,<p>:   用vb中之shell () 却无和其有一样的效果,要如何作呢...???<p>改成使用API ShellExecute:<p><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<p><br>Public Function OpenURL(ByVal URL As String)<br>    Dim hwnd<br>    Dim res&<br>    Dim obj As Object<br>    res& = ShellExecute(hwnd, "open", URL, vbNullString, CurDir$, SW_SHOW)<br>End Function<p><p>然后用 OpenUrl("http://xxxxxx") 就可以了<p><br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 6073-->
</ul><!--end: 6073-->
<br><hr size=7 width=75%><p>

</body></html>

6073.html - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?