VB动态控制增减控件代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】 VB动态控制增减控件

作者:Dezai.CN / 发布于2013/6/18/ 1269


	Option Explicit
	 '通过使用WithEvents关键字声明一个对象变量为新的命令按钮
	 Private WithEvents NewButton As CommandButton
	 '增加控件
	 Private Sub Command1_Click()
	 If NewButton Is Nothing Then
	 '增加新的按钮cmdNew
	 Set NewButton = Controls.Add("VB.CommandButton", "cmdNew", Me)
	 '确定新增按钮cmdNew的位置
	 NewButton.Move Command1.Left + Command1.Width + 240, Command1.Top
	 NewButton.Caption = "新增按钮"
	 NewButton.Visible = True
	 End If
	 End Sub
	 '删除控件(注：只能删除动态增加的控件)
	 Private Sub Command2_Click()
	 If NewButton Is Nothing Then
	 Else
	 Controls.Remove NewButton
	 Set NewButton = Nothing
	 End If
	 End Sub
	 '新增控件的单击事件
	 Private Sub NewButton_Click()
	 MsgBox "您选中的是动态增加的按钮!"
	 End Sub

试试其它关键字

　动态控制增减控件　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)