UC知道VB按钮后，添加个按钮
来源：百度知道 编辑：UC知道 时间：2024/06/08 23:22:28
小弟做EXCEL的VB控件
1、点击按钮
2、点击后在sheet1(或者其他地方又出现个按钮）
3、出现的按钮实现
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
===================================
UserForm1.Show
------------------------
Private Sub OptionButton1_Click()
Sheet1.CommandButton1.Caption = OptionButton1.Caption
Unload Me
End Sub
我的意思就是开始设置了一个按钮可以调出窗体，选择后把数值返回到按钮的CAPTION上
由于内容的增加，开始设置的按钮肯定不够用，所以再设置一个增加这个选择性按钮的开关。
主要是要求增加的这些开关没有冲突，可以独立运用
顺便谁给我发个选择日期的代码
1、点击按钮
2、点击后在sheet1(或者其他地方又出现个按钮）
3、出现的按钮实现
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
===================================
UserForm1.Show
------------------------
Private Sub OptionButton1_Click()
Sheet1.CommandButton1.Caption = OptionButton1.Caption
Unload Me
End Sub
我的意思就是开始设置了一个按钮可以调出窗体，选择后把数值返回到按钮的CAPTION上
由于内容的增加，开始设置的按钮肯定不够用，所以再设置一个增加这个选择性按钮的开关。
主要是要求增加的这些开关没有冲突，可以独立运用
顺便谁给我发个选择日期的代码
Private Sub CommandButton1_Click()
UserForm1.Show
CommandButton2.visible=false '添加一个按钮，其可见性设为FALSE。如果你的按钮2是在userform1里面的话用该句。如果你将按钮2 放在sheet里面的话则 将按钮属性里面visible 设为false就行了。同时该句子改为CommandButton2.visible=true
End Sub
选择日期的方法需要添加日历控件就行了，你自己百度一下吧。
只要定义一个数组就可以了
首先在FORM 上添加一个 OptionButton
具体的可以参照以下这个代码的编写办法
首先,在FORM上添加一个OptionButton的数组名称为 OpA 记得删除OpA(1),否则会出错
然后,在将以下代码输入
OptionButton数组
在这里我写的只是添加一个 OptionButton的例子
Dim J As Integer
Private Sub Command1_Click()
J = OpA.UBound + 1
Load OpA(J)
OpA(J).Caption = "自己定义"
OpA(J).Height = 200
OpA(J).Visible = True
OpA(J).Top = OpA(J - 1).Top + OpA(J).Height + 10
Form1.Height = OpA(J).Height * (J + 1) + (J + 1) * 10 + 300
End Sub
你在VB上做就可以明白了
其实就是动态添加控件
由于时间有限提供你这个简单的代码
希望可以帮助你
日期代码 可以下载VB范例