如何为VSTO的类创建和调用构造函数？

作者：绿色风分类：时间：2022-08-18 浏览：77

楼主
wise

Q：如何为VSTO的类创建和调用构造函数？
A：
在这个贴的基础上：如何创建VSTO的类属性？ http://www.exceltip.net/thread-22180-1-1.html

已经创建了一个Sentence.vb的类：

Public Class Sentence
Private TextValue As String
Property Text() As String
Get
Return TextValue
End Get
Set(ByVal value As String)
TextValue = value
End Set
End Property
End Class

此时往类中添加两个构造函数：

Public Sub New()
TextValue = "Hello ET !"
End Sub
Public Sub New(ByVal mytext As String)
TextValue = mytext
End Sub

此时代码变为：

Public Class Sentence
Private TextValue As String
Property Text() As String
Get
Return TextValue
End Get
Set(ByVal value As String)
TextValue = value
End Set
End Property
Public Sub New()
TextValue = "Hello ET !"
End Sub
Public Sub New(ByVal mytext As String)
TextValue = mytext
End Sub
End Class

New关键字调用类的构造函数。类的构造函数描述了如何初始化类的属性和方法。每个类都有一个默认的构造函数，它是
一个名为Sub New且自动为你生成的方法。构造函数可以带有参数，并且可以重载，这样你可以使用不同的方式创建类实例。
重载是指同一个方法有多个版本，每个版本有不同的参数。
在本例子中，第一个构造函数重写了默认的无参构造函数，并且把“Hello ET!"文字赋予给成员变量TextValue。如果你在
不传递任何文字的情况下实例化这个类，“Hello ET”将是Sentence类的值。
第二个构造函数接受了一个字符串作为参数，并且把该字符串赋予给成员变量。
然后使用以下代码替换ThisDocument的Startup事件处理程序中的代码：

Private Sub ThisDocument_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
Dim sentence1 As New Sentence()
Dim sentence2 As New Sentence("Hello Excel 技巧网")
Me.Paragraphs(1).Range.InsertAfter(sentence1.Text & sentence2.Text)
End Sub

按F5运行，得到了：

Hello ET !Hello Excel 技巧网

2楼
rongjun

学习了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表