Visual BasicNET程序设计基础第六章.pptVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
6.2.2对象和类成员 3.类的静态成员和实例成员 类的成员又可以分成静态成员和非静态成员。 VB.NET中在声明成员时,如果在语句前加上Shared保留字,则该成员是静态成员,如果没有Shared保留字,则成员是非静态成员。 二者最重要的区别是:静态成员属于类所有,非静态成员属于类的实例所有,所以又称实例成员。 例如: Public Class MyClass Public InstanceValue As String Public Shared SharedValue As String Public Shared Sub ShareMethod() MsgBox(This is a shared method.) End Sub End Class Sub TestShared() Dim Shared1 As New MyClass() Dim Shared2 As New MyClass() Shared1.SharedValue = FirstValue Shared2.SharedValue = SecondValue MsgBox(第一个实例对象的共享字段SharedValue的值为: Shared1.SharedValue) MsgBox(第二个实例对象的共享字段SharedValue的值为: Shared2.SharedValue) MyClass.ShareMethod() End Sub 6.2.3 域与属性 域又称字段,它是类的一个成员,这个成员代表与对象或类相关的变量。域的定义格式如下。 [域修饰符|Dim] 域名 As 域类型 6.2.3 域与属性 例如:Dim a As Integer Public b As String 属性是对现实世界中实体特征的抽象,它提供了一种对类或对象特性进行访问的机制。属性用关键字property声明,格式如下。 Property 属性名() As 属性类型 Get …… End Get Set(ByVal Value As 数据类型) …… End Set End Property 示例如下: Private MonthNum As Integer = 1 Internal storage for property value. Property Month( ) As Integer Get Return MonthNum End Get Set(ByVal Value As Integer) If Value 1 Or Value 12 Then Msgbox(”The value is wrong!”) Else MonthNum = Value End If End Set End Property Month 6.2.4 静态方法和非静态方法 VB.NET中分为静态方法和非静态方法。静态方法又称“共享方法”,属于类所有必须通过类访问。非静态方法又称“非共享方法”或是“实例方法”,通过类的实例访问。 例6-2:静态方法和非静态方法的演示。请观察并分析下列程序的执行结果。 Class MethodDemo1 Dim s1 As String = Dynamic var! Shared s2 As String = static var! Function add(ByVal x As Single, ByVal y As Single) As Single Dim z As Single z = x + y Console.Write(s1s2) Return z End Function Shared Function Subtraction(ByVal x As Single, ByVal y As Single) As Single Dim w As Single w = x – y Console.Write(s2) Return w End Function End Class Private Sub TestMethod() Dim resul

文档评论(0)

132****9295 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档