作者：绿色风
分类：
时间：2022-08-18
浏览：147
楼主
wise |
Q:如何创建VSTO的类属性？
A：要创建属性，需要添加Property语句。类的外部只能通过Get和Set属性过程来访问私有成员变量。
其中私有成员变量亦称为字段。
Get属性过程是返回字段的值，Set属性过程使你可以给字段赋值。
如在VSTO键入Property语句，如添加该语句：
- Property Text() as string
即可生成
- Property Text() As String
- Get
- End Get
- Set(ByVal value As String)
- End Set
- End Property
一、创建属性
1、打开Visual studio 2005。
2、在“文件”菜单下，单击“新建项目”。
3、在弹出的“新建项目”对话框中，选择模板窗格下的“Word 2007文档”，并在下面对应的名称命名为：Test，单击“确定”按钮，继续单击“确定”按钮即可。
4、在“解决方案资源管理器”中，选中test→“添加”→“类”，在弹出的“添加新项”对话框中，选中“模板”窗格下面的“类”，并且把类命名为Sentence.vb,
然后单击“添加”按钮。
5、打开Sentence类文件的代码视图。
6、将以下代码添加在Sentence类中：
- 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
如图：
TextValue变量为一个私有成员变量，只能通过公有的Text属性获取和设置其值。
二、实例化对象
1、在解决方案资源管理器中，右击ThisDocument.vb，并选择“查看代码”
2、打开代码视图，显示了两个默认的事件处理程序。第一个是Startup事件处理程序，第二个是Shutdown事件处理程序。
3、把以下代码添加到ThisDocument的Startup事件处理程序中：
- Dim sentence1 As New Sentence()
- Dim sentence2 As New Sentence()
- sentence1.Text = "my first sentence."
- sentence2.Text = "my second sentence."
- Me.Paragraphs(1).Range.InsertAfter(sentence1.Text & sentence2.Text)
如图：
4、按下F5即可运行解决方案。
结果如图所示：
 |
2楼
成就滋味 |
学习了，感谢分享 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一