yhkn.net
当前位置:首页 >> 关于VB的shEll命令的问题 >>

关于VB的shEll命令的问题

Private Sub Command1_Click()a = openfile("C:\a.txt")a = Replace(a, vbCrLf, "")p = Shell(a, 1)End Sub

Private Sub Command1_Click() Dim a a=Shell(App.Path & "\1\1.exe",0) If a=False Then Msgbox "程序调用失败",16,"错误" End Sub

private sub form_click() shell app.path & "\1\.1.exe", vbnormalfocus end sub

这么多问题可把我考倒了,建议你以后一个帖子只问一个问题,这样回复的人多,解决的也块~第一个识别U盘盘符问题,在网上可以搜索到许多代码来查找U盘的,但是我不建议你这样做,也不要使用什么选择控件,你的程序是放在U盘里面的

shell "cmd /c shutdown -s -t " & t1

在VB的字符串中,两个半角双引号并列就代表一个"字符,所以你可以这样:Shell "cmd.exe /c xcopy ""D:\dd"" ""D:\a"" /q /e"这样写,比一连串的chr()要好看多了.如果不考虑长文件名的因素,可以把双引号去掉也行:Shell "cmd.exe /c xcopy D:\dd D:\a /q /e"

因为SHELL后的参数是0( 常数VBHIDE)也就是当运行 "c:\123.bat" 时是在后台运行,不会显示窗口你可以将0改为1或者其他

Shell "reg add ""HKCU\Software\yahoo\pager\Test"" /v ""plural"" /t REG_DWORD /d 00000001 /f", vbHid

Private Sub Command1_Click()Shell "C:\Program Files\Windows NT\Accessories\wordpad.exe", 1End SubPrivate Sub Command2_Click()Shell "c:\windows\system32\mspaint.exe", 1End Sub==============================================shell ,[]路径必须是可执行文件,非可执行文件运行会出错一般窗口出现方式0 隐藏1 常规出现(建议用这个)2 最小化有焦点3 最大化有焦点4 常规无焦点6 最小化无焦点

用ShellExecute调用默认程序打开MP3文件新建一个模块,放进以下声明Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As

网站首页 | 网站地图
All rights reserved Powered by www.yhkn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com