作者：绿色风
分类：
时间：2022-08-18
浏览：191
楼主
amulee |
VSTO中创建动态事件与VBA中有所不同。
VSTO中全都使用了类，所以Controls.Add方法使用的时候需要事先创建控件的实例。
本示例演示如何创建一个Button按钮。
操作步骤：
1、创建一个带窗体的Excel程序。（[VSTO] VSTO中窗体的创建和显示 http://www.exceltip.net/thread-22773-1-1.html
）
2、在窗体中添加以下代码：
- Public Class Form1
- '定义一个带事件的Button变量
- Dim WithEvents Bt As New Button
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- '创建Bt的实例
- Bt = New Button
- '在指定位置绘制指定尺寸Bt。两句语句可以省略，程序将以默认属性绘制按钮。
- Bt.Size = New System.Drawing.Size(200, 100)
- '设置Bt的位置
- Bt.Location = New System.Drawing.Point(10, 10)
- '设置Bt的属性。上述绘制可以以此代替。
- With Bt
- .Top = 20
- .Left = 20
- .Height = 50
- .Width = 100
- .Text = "按钮"
- End With
- '在窗体中添加Bt对象
- Me.Controls.Add(Bt)
- End Sub
- Private Sub Bt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Bt.Click
- MsgBox("此按钮由代码创建")
- End Sub
- End Class
此处的创建和VBA中自定义类并创建实例的方法一致。在VSTO中提供了属性设置的其他方法，System.Drawing可以设定按钮的位置和大小，这为自定义控件的添加提供了方便（将在稍后的帖子中介绍）。由于Button是一个成熟的类，因而也可以通过其基本属性设置对其位置和大小进行设置。
附件下载：
 VSTO创建动态控件示例.rar
|
2楼
eliane_lei |
 进来学习！谢谢分享 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一