<address id="xpjh9"><listing id="xpjh9"><meter id="xpjh9"></meter></listing></address>

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
<noframes id="xpjh9">
<noframes id="xpjh9">

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
    <form id="xpjh9"></form><address id="xpjh9"><listing id="xpjh9"><menuitem id="xpjh9"></menuitem></listing></address>

      <noframes id="xpjh9">
      VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
      SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
      當前位置:
      首頁 > 編程開發 > VBnet >
      • vb.net教程之類的屬性

      • 2015-01-24 12:58 來源:未知
      類的屬性(相關vb.net教程)
      1、屬性的概念
      在系統類中提供了很多屬性,如textbox中有text屬性。類的屬性是一個可以設置值(賦值),也能取出值(引用)的成員。
      初看起來,屬性與類中的變量十分相似,但實際上是不同的。在對類的變量設置值時是沒有檢測功能的,例如設置月份為13月顯然是不正確的。
      顯然需要一種機制,它可以在為對象的成員變量設置值時作檢查,這就是屬性。屬性實際上是一種訪問成員變量的特殊函數。同時,為了保護類的成員變量不被隨意更改,一般被設置成為private,這樣在類的外面通過對象就不能訪問,只能通過一種特殊函數屬性去訪問它。
      2、屬性的定義
      Public property  屬性名稱
      Get  ‘引用屬性

      End get
      Set(byval value as 類型)  ‘設置屬性

      End set
      End property
      .編寫mydate中的year— month—月、 day—日屬性,以完成對成員變量m_year m_month m_day的讀寫并測試。
      程序見,類的屬性應用,程序為:
      Public Class mydate
          Private m_year, m_month, m_day As Integer
          Public Sub New()
              setsystemdate()
          End Sub
          Public Sub New(ByVal y As Integer, ByVal m As Integer, ByVal d As Integer)
              m_year = y : m_month = m : m_day = d
          End Sub
          Public Sub setsystemdate()
              m_year = Microsoft.VisualBasic.Year(Now())
              m_month = Microsoft.VisualBasic.Month(Now)
              m_day = Microsoft.VisualBasic.Day(Now)
          End Sub
          Public Sub show()
              MsgBox(Str(m_year) + "-" + Str(m_month) + "-" + Str(m_day), MsgBoxStyle.OkOnly, "日期")
          End Sub
          Public Property month() As Integer
              Get
                  month = m_month
              End Get
              Set(ByVal m As Integer)
                  m_month = m
              End Set
          End Property
          Public Property year() As Integer
              Get
                  year = m_year
              End Get
              Set(ByVal y As Integer)
                  m_year = y
              End Set
          End Property
          Public Property day() As Integer
              Get
                  day = m_day
              End Get
              Set(ByVal d As Integer)
                  m_day = d
              End Set
          End Property
      End Class
      測試類為:
      Public Class Form1
          Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
              Dim a As New mydate
              a.year = 1996
              a.month = 10
              a.day = 6
              a.show()
          End Sub
      End Class
      說明:
      上面程序對年月日的有效性還不能進行正確性檢查,改進的方法是課本P165-P166的程序,從略。
      相關教程
      江苏快3 青州 | 桐乡 | 新泰 | 乐山 | 林芝 | 宁波 | 湘西 | 江西南昌 | 日喀则 | 新余 | 苍南 | 呼伦贝尔 | 林芝 | 济源 | 龙口 | 荣成 | 垦利 | 朝阳 | 巢湖 | 嘉峪关 | 迪庆 | 孝感 | 鹤壁 | 宜春 | 呼伦贝尔 | 怒江 | 开封 | 广州 | 昌吉 | 阳春 | 图木舒克 | 伊犁 | 文山 | 无锡 | 杞县 | 安康 | 台湾台湾 | 雅安 | 定安 | 牡丹江 | 如东 | 泉州 | 那曲 | 鞍山 | 临猗 | 三门峡 | 安顺 | 三明 | 汝州 | 新乡 | 镇江 | 湖州 | 大庆 | 吉安 | 洛阳 | 安岳 | 辽宁沈阳 | 伊犁 | 常德 | 崇左 | 常德 | 垦利 | 百色 | 漳州 | 中山 | 琼海 | 乳山 | 安庆 | 金坛 | 天水 | 龙岩 | 新泰 | 慈溪 | 舟山 | 肇庆 | 三门峡 | 广州 | 阳江 | 苍南 | 迁安市 | 沧州 | 梅州 | 宣城 | 启东 | 仁寿 | 图木舒克 | 衡水 | 延边 | 和田 | 平凉 | 海南海口 | 昆山 | 宜都 | 芜湖 | 和县 | 澳门澳门 | 山东青岛 | 普洱 | 大庆 | 广安 | 陵水 | 开封 | 来宾 | 荆州 | 新泰 | 酒泉 | 宜宾 | 汉中 | 常德 | 临猗 | 阿拉尔 | 揭阳 | 晋城 |