zoukankan
html css js c++ java
在VB应用程序中单击按钮打开word文档
Option
Explicit
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
Private
Sub
Command1_Click()
ShellExecute Me.hwnd,
"
open
"
,
"
c:a.doc
"
, vbNullString, vbNullString,
3
End Sub
Private
Sub
Command2_Click()
Dim
WordApp
As
Word.Application
Set
WordApp
=
New
Word.Application
WordApp.Documents.Add (
"
c:a.doc
"
)
WordApp.Visible
=
True
Set
WordApp
=
Nothing
End Sub
查看全文
相关阅读:
centos PIL 安装
apache virtualhost 针对ip开放访问
基础练习 矩形面积交 (分类讨论)
UVa 10163 Storage Keepers (二分 + DP)
UVaLive 5009 Error Curves (三分)
UVa 11542 Square (高斯消元)
UVa 10828 Back to Kernighan-Ritchie (数学期望 + 高斯消元)
基础练习 回形取数 (循环 + Java 输入输出外挂)
UVaLive 3704 Cellular Automaton (循环矩阵 + 矩阵快速幂)
勇敢的妞妞 (状压 + 搜索)
原文地址:https://www.cnblogs.com/yunbo/p/271043.html
最新文章
架构设计深入学习01--概论与预架构阶段
项目管理深入理解10--整合管理
django foreign key 自动加_id问题
django 集成现有数据库
github 多个项目共用同一个key的方法
hadoop小试
术&道
python wraps
python entrypoint
centos 本地dns配置
热门文章
centos 设置永久dns
svn co 与ssl
线程池大小 & cpu core
js本地解析xls文件
ajax 跨域访问
python协程
ubuntu 14 谷歌拼音输入法
nginx 免安装包
python egg文件解压
linux ssh 登录同时执行其他指令
Copyright © 2011-2022 走看看