<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從門到精通視頻教程
      當前位置:
      首頁 > 編程開發 > .net教程 >
      • vb.net教程之創建一個自己的類和對象

      • 2015-01-18 16:26 來源:未知
      創建一個自己的類和對象(相關vb.net教程)
      一、創建類的步驟:
      開始→新建項目→windows應用程序→項目→添加類→輸入類名(mydate)→添加。
      然后在classend class 之間輸入內容:
      Public Class mydate
          Public m_year, m_month, m_day As Integer
          Public Sub show()
              Dim s As String
              s = Str(m_year) + "_" + Str(m_month) + "_" + Str(m_day)
              MsgBox(s, MsgBoxStyle.OkOnly, "日期")
          End Sub
      End Class
      二、建立一個測試類
      Public Class Form1
          Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
              Dim a, b As New mydate
              a.m_day = 24 : a.m_month = 3 : a.m_year = 2005
              a.show()
              b.m_day = 6 : b.m_month = 10 : b.m_year = 2006
              b.show()
          End Sub
      End Class
      程序見,我的日期類
      對象定義的方式:
      Dim 對象名 as new 類名;
      或:
      dim 對象名 as 類名
      對象名 =new 類名()
      成員變量(方法)的引用形式:
      對象.成員變量(對象.成員方法)
      三、對象的銷毀:a=nothing
      命名空間:相當于一個存放類的文件夾
      System.console.writeln()
      System.console.readln()
      上面的兩語句,用引用命名空間的方法可以寫成:
      Imports system
      在下面的程序中直接寫:
      Console.writeln()
      Console.readln()
      系統默認的命名空間是:system
      說明:引用命名空間的語句Imports要放在所有程序的最前面。
      訪問(類成員)類型:
      public—都能訪問; private protected friend 只能被同類內部訪問。
      四、數據成員中的共享靜態成員(課本5.3
      數據成員是用以保存數據的,有兩種類型:
      靜態成員(或共享成員):用shared聲明,靜態成員使用時不用實例化。
      實例成員:默認是實例成員,此類變量或方法在使用前必須()實例化,然后用實例對象訪問它。如:
      Public Class salarylevel
          Public Shared level1 = 5000
          Public Shared level2 = 8000
      End Class
          Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
              Console.WriteLine(salarylevel.level1)
              Console.WriteLine(salarylevel.level2)
          End Sub
      End Class
      上面的程序中對成員變量level1,level2的引用就沒有定義實例對象,原因在于它是shared類型的。程序見,我的日期類
      同時shared類型的變量的值還可以一個對象中賦值帶到另一個對象中,程序見shared成員值通用實例(或類中靜態成員shared)。程序為:
      Public Class yuangong
          Public Shared dname As String
          Public name As String
          Public Sub display()
              Console.WriteLine("員工的名字:" & name)
              Console.WriteLine("員工所在單位:" & dname)
              Console.ReadLine()
          End Sub
      End Class
      測試類:
      Public Class Form1
          Dim a, b As New yuangong
          Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
              a.dname = "中國工商銀行"
          End Sub
       
          Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
              a.name = "張三"
              a.display()
          End Sub
       
          Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
              b.display()
          End Sub
      End Class
      運行結果為:
      員工的名字:張三
      員工所在單位:中國工商銀行
      員工的名字:
      員工所在單位:中國工商銀行
      結果說明:
      dname為靜態成員,它的值一處發生變化,無論是對a對象還是b對象其中的dname屬性值都隨之而變,而name屬性則是對不同的對象互不影響,原因是它不是共享成員。
      小結:
      shared靜態成員有兩個特點:
      1、不用實例化而直接使用。
      2、其值一處(即一個對象中)變化可帶到其它地方(其它對象)。
      3、在一般的事件過程中靜態變量是用static說明的,而不是用shared說明,但效果類似。
      相關教程
      江苏快3 云浮 | 昌吉 | 乌兰察布 | 柳州 | 曹县 | 乌海 | 陇南 | 毕节 | 濮阳 | 钦州 | 曹县 | 六盘水 | 肥城 | 博罗 | 灵宝 | 齐齐哈尔 | 迪庆 | 灌云 | 十堰 | 厦门 | 榆林 | 达州 | 沛县 | 南阳 | 神木 | 六安 | 琼海 | 燕郊 | 儋州 | 宜宾 | 红河 | 呼伦贝尔 | 山西太原 | 石狮 | 酒泉 | 沧州 | 甘南 | 东海 | 呼伦贝尔 | 金华 | 阿拉善盟 | 崇左 | 垦利 | 丽水 | 秦皇岛 | 阿克苏 | 德阳 | 澳门澳门 | 德阳 | 青州 | 淄博 | 固原 | 包头 | 平顶山 | 灵宝 | 天水 | 五指山 | 鹤岗 | 荣成 | 绥化 | 金昌 | 辽宁沈阳 | 东营 | 福建福州 | 吐鲁番 | 乐清 | 金坛 | 正定 | 丽江 | 启东 | 宁德 | 顺德 | 晋城 | 宝鸡 | 泰兴 | 四川成都 | 伊春 | 抚州 | 晋城 | 黔东南 | 象山 | 神农架 | 玉林 | 平潭 | 新泰 | 吴忠 | 菏泽 | 沧州 | 邹平 | 十堰 | 招远 | 郴州 | 建湖 | 河池 | 永州 | 枣阳 | 怀化 | 阿拉善盟 | 云南昆明 | 漳州 | 许昌 | 扬中 | 珠海 | 宿迁 | 六安 | 琼海 | 洛阳 | 绥化 | 明港 | 钦州 | 项城 | 宁国 | 商洛 |