UC知道vb 动态添加 按钮/事件
来源：百度知道 编辑：UC知道 时间：2024/06/03 15:57:22
Dim WithEvents NewButton As CommandButton
Private Sub Command1_Click()
Set NewButton = Controls.Add("VB.CommandButton", "cmdNew")
NewButton.Move 500, 500, 900, 360
Controls("cmdNew").Caption = "按钮"
NewButton.Visible = True
End Sub
以上的代码点击Command1后可以创建一个 按钮
但 它的点击事件是不确定的
例如 在text1里写入
Shell c:\123.exe
点击这个新建的按钮后就会 运行 C:\123.exe
但有办法做成 一个类吗?
因为不止一个按钮 按钮的事件也是不确定的(运行程序或者控制其他按钮的属性)
Private Sub Command1_Click()
Set NewButton = Controls.Add("VB.CommandButton", "cmdNew")
NewButton.Move 500, 500, 900, 360
Controls("cmdNew").Caption = "按钮"
NewButton.Visible = True
End Sub
以上的代码点击Command1后可以创建一个 按钮
但 它的点击事件是不确定的
例如 在text1里写入
Shell c:\123.exe
点击这个新建的按钮后就会 运行 C:\123.exe
但有办法做成 一个类吗?
因为不止一个按钮 按钮的事件也是不确定的(运行程序或者控制其他按钮的属性)
VB没有那么大的功能的，你最好先定义一个Cmd给他赋予属性”在text1里写入
Shell c:\123.exe “，然后设置的触发事件 是点击Command1的时候 将这个Cmd显示出来。
所以呢，如果你想以你以上的思路去做的话，最好用Visual Studio做，因为这个编译工具非常强大。
可以考虑按钮数组，即新加的按钮与已存在的按钮name相同，仅具有不同的index，那么这一组按钮的相同事件都可以在同一个过程中实现，借由这个过程的index参数来区别用户单击的是哪个按钮。举个例子：
两个按钮都叫做command1，index分别为0和1
index为0 的按钮的caption为“按钮1”
index为1 的按钮的caption为“按钮2”
双击其中之一可添加代码：
if index = 0 then
msgbox "你单击了按钮1"
else
msgbox "单击了按钮2"、
end if
这样新加了按钮之后，照样用已经存在的过程来处理单击事件。
肯定可以创建的 按钮
也能删除 按钮
不过你说的事件不确定就不太好弄了
如果你是说执行TEXT 里面的内容 那是完全可以的
楼上说的对 用组来实现