VB.NETでのクラス継承の方法とは？クラス継承の基本・親クラスのコンストラクタ、親クラスのクラスメソッドを実行する方法

この記事でわかること

システム
エンジニア

VB.NETでのクラス継承の方法を教えてください。

プロジェクト
マネージャー

クラス継承の基本や親クラスのコンストラクタを実行する方法について紹介します

VB.NETでのクラス継承の方法とは？

今回は、VB.NETでのクラスの継承方法について説明します。クラスを継承することで、継承したクラスは親クラスの機能を引き継ぎます。継承したクラスは、親クラスとの差分だけを実装すればよいです。

ここでは、クラス継承の基本や親クラスのコンストラクタを実行する方法、親クラスのクラスメソッドを実行する方法について紹介します。

VB.NETでのファイル名取得に興味のある方はぜひご覧ください。

クラスの基本

継承の前に、VB.NETでのクラスの基本を紹介します。クラスはメンバ変数、コンストラクタ、クラスメソッドなどで構成されます。それでは実際のソースコードを見てみましょう。

' クラス Public Class Human ' メンバ変数 Public Property humanName As String ' 名前 Public Property humanAge As Integer ' 年齢 ' コンストラクタ Sub New(name As String, age As Integer) humanName = name humanAge = age End Sub ' クラスメソッド Public Function showInfo() Return $"HumanInfo name:{humanName}, age:{humanAge}" End Function End Class Module Program Sub Main(args As String()) ' オブジェクト生成 Dim obj = New Human("taro", 27) ' オブジェクト表示 Console.WriteLine($"name:{obj.humanName}, age:{obj.humanAge}") ' クラスメソッドの呼び出し Console.WriteLine(obj.showInfo()) End Sub End Module

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

' クラス Public Class Human     ' メンバ変数     Public Property humanName As String ' 名前     Public Property humanAge As Integer ' 年齢       ' コンストラクタ     Sub New(name As String, age As Integer)         humanName = name         humanAge = age     End Sub       ' クラスメソッド     Public Function showInfo()         Return $"HumanInfo name:{humanName}, age:{humanAge}"     End Function End Class   Module Program     Sub Main(args As String())           ' オブジェクト生成         Dim obj = New Human("taro", 27)           ' オブジェクト表示         Console.WriteLine($"name:{obj.humanName}, age:{obj.humanAge}")           ' クラスメソッドの呼び出し         Console.WriteLine(obj.showInfo())     End Sub End Module

実行結果は以下のようになります。

name:taro, age:27 HumanInfo name:taro, age:27

1 2	name:taro, age:27 HumanInfo name:taro, age:27

継承の基本

VB.NETでのクラス継承の基本を紹介します。継承するクラスにInheritsを指定します。実際のソースコードを見てみましょう。

' Humanクラス Public Class Human ' メンバ変数 Public Property humanName As String ' 名前 Public Property humanAge As Integer ' 年齢 ' 引数なしコンストラクタ Sub New() End Sub ' コンストラクタ Sub New(name As String, age As Integer) humanName = name humanAge = age End Sub ' クラスメソッド Public Function showInfo() Return $"HumanInfo name:{humanName}, age:{humanAge}" End Function End Class ' Studentクラス Public Class Student Inherits Human Public Property studentNo As Integer ' 学生番号 ' コンストラクタ Sub New(name As String, age As Integer, no As Integer) humanName = name humanAge = age studentNo = no End Sub ' クラスメソッド Public Overloads Function showInfo() Return $"StudnetInfo name:{humanName}, age:{humanAge}, no:{studentNo}" End Function End Class Module Program Sub Main(args As String()) ' オブジェクト生成 Dim obj = New Human("taro", 27) ' オブジェクト表示 Console.WriteLine($"name:{obj.humanName}, age:{obj.humanAge}") ' クラスメソッドの呼び出し Console.WriteLine(obj.showInfo()) ' オブジェクト生成 Dim obj2 = New Student("jiro", 45, 1234567) ' オブジェクト表示 Console.WriteLine($"name:{obj2.humanName}, age:{obj2.humanAge}, no:{obj2.studentNo}") ' クラスメソッドの呼び出し Console.WriteLine(obj2.showInfo()) End Sub End Module

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

' Humanクラス Public Class Human     ' メンバ変数     Public Property humanName As String ' 名前     Public Property humanAge As Integer ' 年齢       ' 引数なしコンストラクタ     Sub New()       End Sub       ' コンストラクタ     Sub New(name As String, age As Integer)         humanName = name         humanAge = age     End Sub       ' クラスメソッド     Public Function showInfo()         Return $"HumanInfo name:{humanName}, age:{humanAge}"     End Function End Class   ' Studentクラス Public Class Student     Inherits Human     Public Property studentNo As Integer ' 学生番号       ' コンストラクタ     Sub New(name As String, age As Integer, no As Integer)         humanName = name         humanAge = age         studentNo = no     End Sub       ' クラスメソッド     Public Overloads Function showInfo()         Return $"StudnetInfo name:{humanName}, age:{humanAge}, no:{studentNo}"     End Function End Class   Module Program     Sub Main(args As String())           ' オブジェクト生成         Dim obj = New Human("taro", 27)         ' オブジェクト表示         Console.WriteLine($"name:{obj.humanName}, age:{obj.humanAge}")         ' クラスメソッドの呼び出し         Console.WriteLine(obj.showInfo())           ' オブジェクト生成         Dim obj2 = New Student("jiro", 45, 1234567)         ' オブジェクト表示         Console.WriteLine($"name:{obj2.humanName}, age:{obj2.humanAge}, no:{obj2.studentNo}")         ' クラスメソッドの呼び出し         Console.WriteLine(obj2.showInfo())     End Sub End Module

実行結果は以下のようになります。

name:taro, age:27 HumanInfo name:taro, age:27 name:jiro, age:45, no:1234567 StudnetInfo name:jiro, age:45, no:1234567

1 2 3 4

name:taro, age:27 HumanInfo name:taro, age:27 name:jiro, age:45, no:1234567 StudnetInfo name:jiro, age:45, no:1234567

親クラスのコンストラクタ実行

VB.NETでは、継承したクラスから親クラスのコンストラクタを呼び出せます。MyBase.New()を使用します。実際のソースコードを見てみましょう。

' Humanクラス Public Class Human ' メンバ変数 Public Property humanName As String ' 名前 Public Property humanAge As Integer ' 年齢 ' コンストラクタ Sub New(name As String, age As Integer) humanName = name humanAge = age End Sub ' クラスメソッド Public Function showInfo() Return $"HumanInfo name:{humanName}, age:{humanAge}" End Function End Class ' Studentクラス Public Class Student Inherits Human Public Property studentNo As Integer ' 学生番号 ' コンストラクタ Sub New(name As String, age As Integer, no As Integer) ' 親クラスのコンストラクタを実行する MyBase.New(name, age) studentNo = no End Sub ' クラスメソッド Public Overloads Function showInfo() Return $"StudnetInfo name:{humanName}, age:{humanAge}, no:{studentNo}" End Function End Class Module Program Sub Main(args As String()) ' オブジェクト生成 Dim obj = New Human("taro", 27) ' オブジェクト表示 Console.WriteLine($"name:{obj.humanName}, age:{obj.humanAge}") ' クラスメソッドの呼び出し Console.WriteLine(obj.showInfo()) ' オブジェクト生成 Dim obj2 = New Student("jiro", 45, 1234567) ' オブジェクト表示 Console.WriteLine($"name:{obj2.humanName}, age:{obj2.humanAge}, no:{obj2.studentNo}") ' クラスメソッドの呼び出し Console.WriteLine(obj2.showInfo()) End Sub End Module

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

' Humanクラス Public Class Human     ' メンバ変数     Public Property humanName As String ' 名前     Public Property humanAge As Integer ' 年齢       ' コンストラクタ     Sub New(name As String, age As Integer)         humanName = name         humanAge = age     End Sub       ' クラスメソッド     Public Function showInfo()         Return $"HumanInfo name:{humanName}, age:{humanAge}"     End Function End Class   ' Studentクラス Public Class Student     Inherits Human     Public Property studentNo As Integer ' 学生番号       ' コンストラクタ     Sub New(name As String, age As Integer, no As Integer)         ' 親クラスのコンストラクタを実行する         MyBase.New(name, age)         studentNo = no     End Sub       ' クラスメソッド     Public Overloads Function showInfo()         Return $"StudnetInfo name:{humanName}, age:{humanAge}, no:{studentNo}"     End Function End Class   Module Program     Sub Main(args As String())           ' オブジェクト生成         Dim obj = New Human("taro", 27)         ' オブジェクト表示         Console.WriteLine($"name:{obj.humanName}, age:{obj.humanAge}")         ' クラスメソッドの呼び出し         Console.WriteLine(obj.showInfo())           ' オブジェクト生成         Dim obj2 = New Student("jiro", 45, 1234567)         ' オブジェクト表示         Console.WriteLine($"name:{obj2.humanName}, age:{obj2.humanAge}, no:{obj2.studentNo}")         ' クラスメソッドの呼び出し         Console.WriteLine(obj2.showInfo())     End Sub End Module

実行結果は以下のようになります。

name:taro, age:27 HumanInfo name:taro, age:27 name:jiro, age:45, no:1234567 StudnetInfo name:jiro, age:45, no:1234567

1 2 3 4

name:taro, age:27 HumanInfo name:taro, age:27 name:jiro, age:45, no:1234567 StudnetInfo name:jiro, age:45, no:1234567

このようにVB.NETでは、継承したクラスから親クラスのコンストラクタを呼び出せます。

親クラスのメソッド実行

VB.NETでは、継承したクラスから親クラスのクラスメソッドを呼び出せます。MyBase.メソッド名()のように使用します。実際のソースコードを見てみましょう。

' Humanクラス Public Class Human ' メンバ変数 Public Property humanName As String ' 名前 Public Property humanAge As Integer ' 年齢 ' コンストラクタ Sub New(name As String, age As Integer) humanName = name humanAge = age End Sub ' クラスメソッド Public Function showInfo() Return $"HumanInfo name:{humanName}, age:{humanAge}" End Function End Class ' Studentクラス Public Class Student Inherits Human Public Property studentNo As Integer ' 学生番号 ' コンストラクタ Sub New(name As String, age As Integer, no As Integer) ' 親クラスのコンストラクタを実行する MyBase.New(name, age) studentNo = no End Sub ' クラスメソッド Public Function showStudentInfo() ' 親クラスのメソッドを実行する Return MyBase.showInfo & $", no:{studentNo}" End Function End Class Module Program Sub Main(args As String()) ' オブジェクト生成 Dim obj = New Human("taro", 27) ' オブジェクト表示 Console.WriteLine($"name:{obj.humanName}, age:{obj.humanAge}") ' クラスメソッドの呼び出し Console.WriteLine(obj.showInfo()) ' オブジェクト生成 Dim obj2 = New Student("jiro", 45, 1234567) ' オブジェクト表示 Console.WriteLine($"name:{obj2.humanName}, age:{obj2.humanAge}, no:{obj2.studentNo}") ' クラスメソッドの呼び出し Console.WriteLine(obj2.showStudentInfo()) End Sub End Module

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

' Humanクラス Public Class Human     ' メンバ変数     Public Property humanName As String ' 名前     Public Property humanAge As Integer ' 年齢       ' コンストラクタ     Sub New(name As String, age As Integer)         humanName = name         humanAge = age     End Sub       ' クラスメソッド     Public Function showInfo()         Return $"HumanInfo name:{humanName}, age:{humanAge}"     End Function End Class   ' Studentクラス Public Class Student     Inherits Human     Public Property studentNo As Integer ' 学生番号       ' コンストラクタ     Sub New(name As String, age As Integer, no As Integer)         ' 親クラスのコンストラクタを実行する         MyBase.New(name, age)         studentNo = no     End Sub       ' クラスメソッド     Public Function showStudentInfo()         ' 親クラスのメソッドを実行する         Return MyBase.showInfo & $", no:{studentNo}"     End Function End Class   Module Program     Sub Main(args As String())           ' オブジェクト生成         Dim obj = New Human("taro", 27)         ' オブジェクト表示         Console.WriteLine($"name:{obj.humanName}, age:{obj.humanAge}")         ' クラスメソッドの呼び出し         Console.WriteLine(obj.showInfo())           ' オブジェクト生成         Dim obj2 = New Student("jiro", 45, 1234567)         ' オブジェクト表示         Console.WriteLine($"name:{obj2.humanName}, age:{obj2.humanAge}, no:{obj2.studentNo}")         ' クラスメソッドの呼び出し         Console.WriteLine(obj2.showStudentInfo())     End Sub End Module

実行結果は以下のようになります。

name:taro, age:27 HumanInfo name:taro, age:27 name:jiro, age:45, no:1234567 HumanInfo name:jiro, age:45, no:1234567

1 2 3 4

name:taro, age:27 HumanInfo name:taro, age:27 name:jiro, age:45, no:1234567 HumanInfo name:jiro, age:45, no:1234567

このようにVB.NETでは、継承したクラスから親クラスのクラスメソッドを呼び出せます。

システム
エンジニア

VB.NETでのクラス継承の方法が理解できました。

プロジェクト
マネージャー

クラス継承の基本や親クラスのコンストラクタを実行する方法をしっかりおさえておきましょう。

まとめ

いかがでしたでしょうか。VB.NETでのクラスの継承方法について説明しました。クラスを継承することで、継承したクラスは親クラスの機能を引き継ぎます。

ここでは、クラス継承の基本や親クラスのコンストラクタを実行する方法、親クラスのクラスメソッドを実行する方法について紹介しました。

ぜひご自身でVB.NETのソースコードを書いて、理解を深めてください。

FEnet.NETナビ・.NETコラムは株式会社オープンアップシステムが運営しています。

株式会社オープンアップシステムはこんな会社です

秋葉原オフィスには株式会社オープンアップシステムをはじめグループのIT企業が集結！
数多くのエンジニアが集まります。

• スマホアプリから業務系システムまで

  

  スマホアプリから業務系システムまで開発案件多数。システムエンジニア・プログラマーとしての多彩なキャリアパスがあります。

• 充実した研修制度

  

  毎年、IT技術のトレンドや社員の要望に合わせて、カリキュラムを刷新し展開しています。社内講師の丁寧なサポートを受けながら、自分のペースで学ぶことができます。

• 資格取得を応援

  

  スキルアップしたい社員を応援するために資格取得一時金制度を設けています。受験料(実費)と合わせて資格レベルに合わせた最大10万円の一時金も支給しています。

• 東証プライム上場企業グループ

  

  オープンアップシステムは東証プライム上場「株式会社オープンアップグループ」のグループ企業です。

  安定した経営基盤とグループ間のスムーズな連携でコロナ禍でも安定した雇用を実現させています。

株式会社オープンアップシステムに興味を持った方へ

株式会社オープンアップシステムでは、開発系エンジニア・プログラマを募集しています。

年収をアップしたい！スキルアップしたい！大手の上流案件にチャレンジしたい！
まずは話だけでも聞いてみたい場合もOK。お気軽にご登録ください。

新着案件New Job

• 開発エンジニア/東京都品川区/【WEB面談可】/在宅ワーク

  月給29万～30万円
  東京都品川区(大崎駅)
  • Windows

• 遠隔テストサービス機能改修/JavaScript/東京都港区/【WEB面談可】/テレワーク

  月給45万～60万円
  東京都港区(六本木駅)
  • JavaScript

• 病院内システムの不具合対応、保守/東京都豊島区/【WEB面談可】/テレワーク

  月給30万～30万円
  東京都豊島区(池袋駅)
  • Windows

• 開発/JavaScript/東京都豊島区/【WEB面談可】/テレワーク

  月給50万～50万円
  東京都豊島区(大塚駅)
  • JavaScript

• 債権債務システム追加開発/東京都文京区/【WEB面談可】/在宅勤務

  月給62万～67万円
  東京都文京区(後楽園駅)
  • Windows

• PMO/東京都豊島区/【WEB面談可】/在宅勤務

  月給55万～55万円
  東京都豊島区(池袋駅)
  • Windows