示例代 码：
1． 打开记事本
Private Sub Command1_Click()
Shell "Notepad E: ￥VB 练习￥添加 DTPicker 控件.txt ",
vbNormalFocus
End Sub
注：NotePad后有空格
2． 打开 QQ 登陆界面
Private Sub Command2_Click()
Shell "D: ￥Program Files ￥Tencent ￥QQ2009￥Bin ￥qq.exe",
vbNormalFocus
End Sub
3． 打开 Word 文档
Private Sub Command3_Click(Index As Integer)
Dim strDir As String
strDir = "E: ￥VB 练习 ￥Test.doc"
Select Case Index
Case 0
Shell "C: ￥Program Files ￥Microsoft
Office ￥OFFICE11￥WINWORD.EXE " & strDir, vbHide
Case 1
Shell "C: ￥Program Files ￥Microsoft
Office ￥OFFICE11￥WINWORD.EXE " & strDir, vbNormalFocus
XWJcczq
- 粉丝: 2
- 资源: 7万+
下载权益
C知道特权
VIP文章
课程特权
VIP享7折，此内容立减4.47元 开通VIP
相关推荐
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
评论0
最新资源