会python真的可以为所欲为0(回)
347天前
这里还有人吗1(回)
532天前这里还有人吗0(回)
532天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
757天前到处都是羊，不想上班0(回)
837天前
鸽子
0(回)
841天前
VB动态控制增减控件.rar(免费下载)[4 次下载]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 |
VB动态控制增减控件.rar(免费下载)[4 次下载]
by: 发表于：2017-11-06 14:47:25 顶(0) | 踩(0) 回复
？？
回复评论