Question

VB中如何做一个可以生成后还能删除某个按钮？

还有就是调节按钮的位置？就像某些程序 可以换位置一样？
求解 求速度 QAQ

Answer 1

添加一个按钮

设置index属性为0
Private Sub Command1_Click(Index As Integer)
If Index = 0 Then
Load Command1(1) '添加按钮
Command1(1).Left = 0 '调整位置
Command1(1).Top = 0
Command1(1).Visible = True '设置可见
Else
Unload Command1(1) '卸载按钮
End If
End Sub

追问

Index属性？那是什么 QAQ

追答

我圈出来的就是index属性

默认是空的

追问

INDEX 原本应该怎么用？
如何调节按钮的位置 调节位置指的是生成后仍可调节位置 可以做得到么

追答

index在数组中作为唯一标示
位置可以更改left,top属性

追问

调节位置指的是生成后仍可调节位置 可以做得到么

追答

可以
代码给left.top赋新值
例如：
text1.left=100
text1.top=100
text1.left=200
text1.top=300
都是可以的

Answer 2

添加一个按钮

设置index属性为0
Private Sub Command1_Click(Index As Integer)
If Index = 0 Then
Load Command1(1) '添加按钮
Command1(1).Left = 0 '调整位置
Command1(1).Top = 0
Command1(1).Visible = True '设置可见
Else
Unload Command1(1) '卸载按钮
End If
End Sub

Answer 3

Dim WithEvents MyButten    As CommandButton
Private Sub Command1_Click()
    Set MyButten = Controls.Add("VB.CommandButton", "Name1")
    MyButten.Move 200, 200, 1000, 1000
    MyButten.Caption = "动态添加"
    MyButten.Visible = True
End Sub

Private Sub MyButten_Click()
    Controls.Remove MyButten
    Set MyButten = Nothing
End Sub

Answer 4

删除就是生成后然后把Visible参数改成False就可以消失了

Answer 5

可以实现。