「VB.NET」With~End Withでクラスのオブジェクトをインスタンス化する

2021年10月6日

書式

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Dim オブジェクト名 As New クラス名
With オブジェクト名
  .プロパティ1 =値1
xxx
End With
Dim オブジェクト名 As New クラス名 With オブジェクト名   .プロパティ1 =値1 xxx End With
Dim オブジェクト名 As New クラス名
With オブジェクト名
  .プロパティ1 =値1
  xxx
End With

クラスをインスタンス化する時に、初期値も設定できます。
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Module Module1
'クラスの定義
Public Class UserInfo
'String型の宣言
Public userId As String
Public username As String
'userIdのget setメソッド
Public Property id() As String
Get
Return userId
End Get
Set(ByVal value As String)
userId = value
End Set
End Property
'usernameのget set メソッド
Public Property name() As String
Get
Return username
End Get
Set(ByVal value As String)
username = value
End Set
End Property
End Class
Sub Main()
'インスタンスを生成
Dim usrA As New UserInfo()
'Withステートメントでプロパティを指定
With usrA
.userId = "40004"
.username = "テスト 太郎"
End With
Console.WriteLine("クラスをインスタンス化する結果")
Console.WriteLine("ユーザー名: " + usrA.username + " ユーザーID:" + usrA.userId)
Console.ReadKey()
End Sub
End Module
Module Module1 'クラスの定義 Public Class UserInfo 'String型の宣言 Public userId As String Public username As String 'userIdのget setメソッド Public Property id() As String Get Return userId End Get Set(ByVal value As String) userId = value End Set End Property 'usernameのget set メソッド Public Property name() As String Get Return username End Get Set(ByVal value As String) username = value End Set End Property End Class Sub Main() 'インスタンスを生成 Dim usrA As New UserInfo() 'Withステートメントでプロパティを指定 With usrA .userId = "40004" .username = "テスト 太郎" End With Console.WriteLine("クラスをインスタンス化する結果") Console.WriteLine("ユーザー名: " + usrA.username + " ユーザーID:" + usrA.userId) Console.ReadKey() End Sub End Module
Module Module1
    'クラスの定義
    Public Class UserInfo
        'String型の宣言
        Public userId As String
        Public username As String
        'userIdのget setメソッド
        Public Property id() As String
            Get
                Return userId
            End Get
            Set(ByVal value As String)
                userId = value
            End Set
        End Property
        'usernameのget set メソッド
        Public Property name() As String
            Get
                Return username
            End Get
            Set(ByVal value As String)
                username = value
            End Set
        End Property

    End Class
    Sub Main()

        'インスタンスを生成
        Dim usrA As New UserInfo()

        'Withステートメントでプロパティを指定
        With usrA
            .userId = "40004"
            .username = "テスト 太郎"
        End With

        Console.WriteLine("クラスをインスタンス化する結果")
        Console.WriteLine("ユーザー名: " + usrA.username + " ユーザーID:" + usrA.userId)

        Console.ReadKey()
    End Sub


End Module

結果
クラスをインスタンス化する結果
ユーザー名: テスト 太郎 ユーザーID:40004

VB.net

Posted by arkgame