Question

求高手解答！VB程序设计题：动态增减控件 设计程序，当鼠标单击窗体的任意位置时，在该位置出现一个控件，

Answer 1

Option Explicit
Private WithEvents NewButton As CommandButton
'通过使用WithEvents关键字声明一个对象变量为新的命令按钮

Private Sub Command1_Click()
If NewButton Is Nothing Then
Set NewButton = Controls.Add("VB.CommandButton", "cmdNew", Form1)
'增加新的按钮cmdNew
NewButton.Move Command1.Left + Command1.Width + 240, Command1.Top
'确定新增按钮cmdNew的位置
NewButton.Caption = "动态添加的按钮"
NewButton.Visible = True
'显示该按钮
End If
End Sub

Private Sub Command2_Click()
If NewButton Is Nothing Then
Exit Sub
Else
Controls.Remove NewButton
Set NewButton = Nothing
End If
End Sub
Private Sub NewButton_click()
MsgBox "这是动态增加的按钮，你可以单击“删除控件”按钮删除它", vbDefaultButton1, "Click"
End Sub

Answer 2

'窗体上放一个command按钮控件，设置index属性=0
Private Sub Form_Load()
Command1(0).Visible = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static i As Long
i = i + 1
Load Command1(i)
Command1(i).Visible = True
Command1(i).Move X, Y
End Sub

追问

设计程序，当鼠标单击窗体的任意位置时，在该位置出现一个控件，并要求控件标题显示出单击该控件的次数；当单击已出现的控件时，该控件消失。x谢谢啦~真的真的非常感谢~

追答

'窗体上放一个command按钮控件，设置index属性=0

Private Sub Command1_Click(Index As Integer)
Unload Command1(Index)
End Sub

Private Sub Form_Load()
Command1(0).Visible = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static i As Long
i = i + 1
Load Command1(i)
Command1(i).Visible = True
Command1(i).Move X, Y
Command1(i).Caption = i
End Sub

Answer 3

用CreatObject来创建控件对象

或者你先放好，通过点击事件来控制Visible属性

追问

嗯，具体一点呗，具体的程序代码，我不太懂哎
谢啦~

追答

我只提供思路，不提供代码
代码书写这些知识是你自己应该具备的