Vb中怎样添加command控件

Vb中command命令按钮CommandButton控件是vb基本控件，应用程序中使用户通过简单的敲击按钮来执行 *** 作的一种工作方式。

可以直接在工具箱中看到command控件如下图。鼠标点击command控件，然后在窗体画出控件就可以。

工具箱控件图：（红色框内就是CommandButton控件）

按以下步骤实现动态添加命令按钮

（1）新建一个VB6工程

（2）Form1窗体代码

Option Explicit

'定义要动态添加的命令按钮变量（带事件处理）

Dim WithEvents cmdX As CommandButton

'点击动态添加的按钮，d出对话框

Private Sub cmdX_Click()

    MsgBox "动态添加的命令按钮！！！"

End Sub

'鼠标双击窗体，动态添加一个命令按钮

Private Sub Form_DblClick()

    If cmdX Is Nothing Then

        Set cmdX = Controls.Add("VB.CommandButton", "cmd1")

        cmdX.Caption = "点击我呀"

        cmdX.Width = 4500

        cmdX.Move 150, 150

        cmdX.Visible = True

    End If

End Sub

（3）运行

启动后

鼠标双击窗体

点击命令按钮，d出一个对话框

首先要在列表上建立一个drivelistbox和dirlistbox控件用来指定文件保存的目录。（使用可参考vb帮助）。然后直接适用wirte 函数将批处理命令写到文件目录+"\a.bat"下。关闭文件。

调用shell语句，运行该文件。在调用shell时其中的第二个参数可选择运行文件窗口的显示方式，选择vbNormalFocus即可。

---