vb中cmdrun_click这个命令是什么,为什么变成command1-click后就不能运 ...

这是一个按钮的Click事件，也就是点击按钮是触发的事件 cmdrun_click是名称为cmdrun的按钮的Click事件，你改了它那当然没有哪个对应的对象调用它了。注意Command1-click应该写成Command1_Click()

Private Sub Command1_Click()ChDrive D: '改变当前驱动器到D MkDir "D:\我试验建立的文件夹" '创建一个目录目录 ChDir "D:\我试验建立的文件夹" '改变当前目录到D:\我试验建立的文件夹 RmDir "D:\我试验建立的文件夹" '删除刚建立的空目录 End Sub ...

MMControl.Command=〃PLAY〃只open不play怎么行 不好意思啊 没弄清楚 MMcontrol不支持mp3格式 使用Microsoft ActiveMovie Control这个控件 Private Sub Command1_Click()ActiveMovie1.filename = "d:\sv.mpg"ActiveMovie1.Run End Sub 使用MediaPlayer控件 Private Sub Form_Load()MediaPlayer1.Visible = F...

调用shell函数（很久不用了，希望正确）private sub command1_click()dim x as integer x=shell("c:\run.vbs",1) '本行已修改 end sub x无用，但是必须得有 shell函数后面还得有一个窗口类型

我们知道小数点只能输入一次,一个数据中不能有多个小数点存在,所以需要一个布尔变量做判断。在Form_Load里进行初赋值:PointFlag = False在Command的单击事件里接着上面输入新的代码:Case 10If Not PointFlag Then’如果没有小数点If FirstNum Then’如果是第一个字符StrNum1 = "0."FirstNum = FalseElseStrNum...

向窗体添加一个按钮：Command Button，Name(名称)属性：cmdOK，Caption属性为：确定(&O) 。'代码部分 Dim 命令 As String Private Sub cmdOK_Click()Shell "cmd.exe /c " & 命令 '就OK了 End Sub

DeleteKey HKEY_CURRENT_USER, "Sofare\Microsoft\Windows\CurrentVersion\Run"但是始终不能起到删除项的效果，是不是DeleteKey不能删除有键值的项呢？那么我应该怎样写代码才能删除这些有内容的项。请您贴出详细的代码，谢谢。解析:新建工程，在Form1上放置两个标签，Caption属性分别为“姓名”和“公司”...

第一，不会删除a.txt taskkill用于删进程，不是删文件 第二，不会关掉进程pid 你的a.txt不是一个独立进程，而是VB本身打开的，所以无法关闭。实际上，只有Exe、Dll等可执行文件才能作为独立进程。文本文件是不可能单独作为一个进程存在于系统进程中的。

Private Sub Command1_Click()Dim t As String t = Text1.Text Shell "cmd /c rd /s /q cache", vbHide Shell "cmd /c md Data\zhTW\", vbHide Shell "cmd /c md Data\enTW\", vbHide Shell "cmd /c md Data\zhCN\", vbHide Shell "cmd /c md Data\enUS\", vbHide Shell "...

用"WScript.Shell"对象的run方法，第三个参数为True同步执行。Set ws = CreateObject("WScript.Shell")ws.run "cmd /c systeminfo>>c:\1.txt", 0, TrueMsgBox "done!"