10546.html

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

HTML
23 行
字号 
<html>
  <head>
    <title>Re: 请高手救救我吧!!</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 请高手救救我吧!!</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by yeong huann on March 03, 1999 at 00:23:33:<p>
In Reply to: <a href="10492.html">请高手救救我吧!!</a> posted by 浮云 on March 02, 1999 at 08:56:38:<p>
: 请问有谁可以告诉我如何将自己写的程式.....来启动如何浏览器,word等程式呢?或是自己的程式......请你们救救我......<p>1.开起word利用vba<br>  EX:<br>   Private Sub word_pro_Click()<br>Dim WordObj As Object <br>Dim msg AS string<br>Dim File1 AS string<br>  msg = MsgBox("请选择Word档案!", 65, "讯息")<br>If msg = vbOK Then<p><br>filebox.DialogTitle = "开启旧档"<br>  Me.filebox.Filter = "*.doc|*doc"<br>  On Error GoTo exit_2<br>  Me.filebox.ShowOpen<br>  File1 = Me.filebox.FileName<br>Else<br>  Exit Sub<br>End If<br>  Set WordObj = CreateObject("Word.Application")<br>      WordObj.Visible = True<br>      WordObj.Documents.Open FileName:=File1<br>exit_2:<p>End Sub<p>2.开启浏览器:<br>EX:<br>    Public Sub link_web_Click()<br>Call ShellExecute(Me.hWnd, "open", "http://www.Autodesk.com", "", "", SW_SHOWMAXIMIZED)   '开启指定网址<br>End Sub<p>   
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 10546-->
</ul><!--end: 10546-->
<br><hr size=7 width=75%><p>

</body></html>

10546.html - 源码说明

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

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

⌨️ 快捷键说明

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