用shell函数或api函数调用其他的程序
例如用api(WinExec),代码如下:
Dim value As Integer
Const SW_SHOWMAXMIZED = 3
regstr="c:\a.exe"
value = WinExec(regstr, SW_SHOWMAXMIZED)
If value <= 32 Then
MsgBox ("程序路径错误,请重新设置程序路径。")
GoTo inerr
Else
Me.WindowState = 1
End If
例如用api(WinExec),代码如下:
Dim value As Integer
Const SW_SHOWMAXMIZED = 3
regstr="c:\a.exe"
value = WinExec(regstr, SW_SHOWMAXMIZED)
If value <= 32 Then
MsgBox ("程序路径错误,请重新设置程序路径。")
GoTo inerr
Else
Me.WindowState = 1
End If
解决方案 »
- 求助,关于vb findpic的问题
- 如何用系统API取出RAR、ZIP、CAB压缩文件中的多个文件?
- 请问VB如何SUSPEND一个进程并结束它保存进程的详细信息,下次可以使用保存的信息继续运行进程
- 各位达人救命:最近公司需要用activereports做数据报表,那位给我这方面的资料.我在线等或.
- 请各位高手帮帮我吧!!!!!!!!!!!!!!!!!!!!
- 免费电子图书
- 谁知道InstallShield6.31东方语言包的序列号
- 请问,使用一些外部控件时总是弹出该公司信息可以使它运行时不弹出吗?
- 如何安装map控件?
- 请问SQL中的NULL和vb中的NULL,好像不匹配,和什么类型匹配??
- 简单问题,在线等待
- 在VB里怎么判断数组是否为空数组?
Private Sub Command1_Click()
Me.WindowState = 1
DoEvents
Shell "calc.exe", vbNormalFocus
End Sub
Me.WindowState = 1