VB.NET With End With 语句

17 Mar 2025 | 阅读 2 分钟

在 VB.NET 中，With End 语句与循环结构不同。它用于访问和执行指定对象的语句，而无需在每个语句中指定对象的名称。在 With 语句块中，您可以指定一个以句点 (.) 开头的对象成员来定义多个语句。

语法

With objExpression
	[ Statements to be Executed]
End With

objExpression: 它定义了 objExpression 的数据类型。它可以是任何类或结构类型，或基本数据类型，例如 Integer。它可以在 With End 语句中执行一次。

Statement: 它定义了 With 块内的一个或多个执行语句。该语句引用与 objectExpression 链接的对象成员，以执行 With 语句块。

End With: 它用于结束 With 块。

示例：编写一个程序来理解 VB.NET 中 With End 语句的用法。

Employee.vb

Public Class Employee
    ' definition of global variables
    Public Property name As String
    Public Property age As Integer
    Public Property Occupation As String
    Public Property email As String

    Shared Sub Main()
        ' Create an emp object 
        Dim emp As New Employee
        ' To define the member of an object
        With emp
            .name = " Mr. Stephen"
            .age = 33
            .Occupation = "Data Analyst"
            .email = "xyz@employee.com"
        End With
        With emp
            ' use emp as a reference
            Console.WriteLine(" Name is : {0}", .name)
            Console.WriteLine(" Age is : {0}", .age)
            Console.WriteLine(" Occupation is : {0}", .Occupation)
            Console.WriteLine(" Employee Email is : {0}", .email)
        End With
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub
End Class

输出

示例：编写一个程序，使用 VB.NET 中的 With End 语句显示学生详细信息。

With_Statement.vb

Imports System
Module With_statement
    Sub Main()
        ' Create a stud object 
        Dim stud As Student = New Student()

        ' To define the member of an object using With Statement
        With stud
            .stud_name = " Mr. Robert"
            .stud_course = "Computer Science"
            .stud_rollno = "01"
        End With
        
        With stud
            ' use stud as a reference
            Console.WriteLine(" Student Name is : {0}", .stud_name)
            Console.WriteLine(" Student Course Name is : {0}", .stud_course)
            Console.WriteLine(" Student RollNo. is : {0}", .stud_rollno)
        End With
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub

    ' Create a Class Student
    Public Class Student
        Public stud_name As String 'Define the variable of a class
        Public stud_course As String
        Public stud_rollno As Integer
    End Class
End Module

输出