チュートリアル: クラスの定義 (Visual Basic)

[アーティクル]
02/21/2013

このチュートリアルでは、クラスを定義する方法を説明します。クラスを定義したら、オブジェクトの作成に使用できます。作成したクラスにプロパティとメソッドを追加する方法、およびオブジェクトを初期化する方法についても説明します。

[!メモ]

お使いのマシンで、Visual Studio ユーザーインターフェイスの一部の要素の名前や場所が、次の手順とは異なる場合があります。これらの要素は、使用している Visual Studio のエディションや独自の設定によって決まります。詳細については、「Visual Studio の設定」を参照してください。

クラスを定義するには

[ファイル] メニューの [新しいプロジェクト] をクリックしてプロジェクトを作成します。[新しいプロジェクト] ダイアログボックスが表示されます。
Visual Basic プロジェクトテンプレートの一覧の Windows アプリケーションを選択して、新しいプロジェクトを表示します。
[プロジェクト] メニューの [クラスの追加] をクリックして、新規クラスをプロジェクトに追加します。[新しい項目の追加] ダイアログボックスが表示されます。
[クラス] テンプレートを選択します。
新しいクラス UserNameInfo.vb に名前を指定し、[追加] をクリックして新しいクラスのコードを表示します。
```
Public Class UserNameInfo
End Class
```
[!メモ]

Visual Basic のコードエディターを使用して、クラスをスタートアップフォームに追加できます。クラスを追加するには、Class キーワードに続けて新規クラスの名前を入力します。コードエディター によって、対応する End Class ステートメントが自動的に入力されます。
Class ステートメントと End Class ステートメントの間に次のコードを追加して、クラスのプライベートフィールドを定義します。
```
Private userNameValue As String
```
フィールドに Private を宣言した場合、そのクラスの内部でのみ使用可能になります。これらのフィールドをクラスの外部からアクセスできるようにするには、Public などのより広いアクセス範囲を提供するアクセス修飾子を使用します。詳細については、「Visual Basic でのアクセスレベル」を参照してください。

次のコードを追加してクラスのプロパティを定義します。

Public Property UserName() As String
    Get
        ' Gets the property value.
        Return userNameValue
    End Get
    Set(ByVal Value As String)
        ' Sets the property value.
        userNameValue = Value
    End Set
End Property

次のコードを追加してクラスのメソッドを定義します。

Public Sub Capitalize()
    ' Capitalize the value of the property.
    userNameValue = UCase(userNameValue)
End Sub

Sub New というプロシージャを追加して新規クラスのパラメーター化されたコンストラクターを定義します。
```
Public Sub New(ByVal UserName As String)
    ' Set the property value.
    Me.UserName = UserName
End Sub
```
Sub New コンストラクターは、このクラスからオブジェクトを作成するとき自動的に呼び出されます。このコンストラクターは、ユーザー名を保持するフィールドの値を設定します。

クラスをテストするボタンを作成するには

スタートアップフォームをデザインモードに変更します。変更するには、ソリューションエクスプローラーでスタートアップフォームの名前を右クリックし、[デザイナーの表示] をクリックします。Windows アプリケーションプロジェクトのスタートアップフォームは、既定で Form1.vb という名前が付きます。メインフォームが表示されます。

メインフォームにボタンを追加し、それをダブルクリックして、Button1_Click イベントハンドラーのコードを表示します。テストプロシージャを呼び出すために次のコードを追加します。

' Create an instance of the class.
Dim user As New UserNameInfo("Moore, Bobby")
' Capitalize the value of the property.
user.Capitalize()
' Display the value of the property.
MsgBox("The original UserName is: " & user.UserName)
' Change the value of the property.
user.UserName = "Worden, Joe"
' Redisplay the value of the property.
MsgBox("The new UserName is: " & user.UserName)

アプリケーションを実行するには

F5 キーを押してアプリケーションを実行します。フォームのボタンをクリックしてテストプロシージャを呼び出します。プロシージャがオブジェクトの Capitalize メソッドを呼び出したため、元の UserName が "MOORE, BOBBY" であるというメッセージが表示されます。
[OK] をクリックしてメッセージボックスを閉じます。Button1 Click プロシージャは UserName プロパティの値を変更し、変更後の UserName の値が "Worden, Joe" であるというメッセージを表示します。

次の方法で共有

チュートリアル: クラスの定義 (Visual Basic)

クラスを定義するには

クラスをテストするボタンを作成するには

アプリケーションを実行するには

参照

概念

その他の技術情報

その他のリソース