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 ShellExecute Me.hwnd, "open", "http://www.sina.com.cn", "", "", 5
我的意思是对调用exe及word文档的内容。谢了。
调用exe Dim RetVal RetVal = Shell("E:\work\vb\Animated Demo.exe", 1) 调用word文档我是用ole控件做的,把soucedoc属性的内容设为你的word文档,之后在click事件中写入 ole1.doverb就可以了,虽然这个方法也不是很好,但是做起来很方便
"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 ShellExecute Me.hwnd, "open", "http://www.sina.com.cn", "", "", 5
Dim RetVal
RetVal = Shell("E:\work\vb\Animated Demo.exe", 1)
调用word文档我是用ole控件做的,把soucedoc属性的内容设为你的word文档,之后在click事件中写入
ole1.doverb就可以了,虽然这个方法也不是很好,但是做起来很方便