📄 10546.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -