作者:绿色风
分类:
时间: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总版主之一