VB.Net Pass Value Between From ส่งค่าผ่านระหว่างฟอร์ม

เมื่อเราเขียนโปรแกรม แล้วมีฟอร์มหลายๆ ฟอร์ม หากต้องการส่งผ่านค่า จากฟอร์มหนึ่งไปยังอีกฟอร์มหนึ่ง สามารถทำได้ดังนี้

1. ให้สร้างฟอร์มขึ้นมาเป็นฟอร์มหลัก เช่น ต้องการส่งค่า TextBox จากฟอร์มที่สร้างขึ้นนี้ไปให้อีกฟอร์มหนึ่ง ให้กำหนดคอนโทรลดังภาพ
















2. ดับเบิ้ลคลิกที่ ปุ่ม Button1 (Send)  เพื่อเข้าไปป้อนคำสั่ง ให้ป้อนดังนี้

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _ 
                ByVal e As System.EventArgs) Handles Button1.Click
        Dim fm2 As Form2 = New Form2
        fm2.ValueToPassBetweenForms1 = Me.TextBox1.Text
        fm2.ShowDialog()
    End Sub
End Class

3. ให้สร้างฟอร์มขึ้นมาอีกหนึ่งฟอร์มเป็นฟอร์มสำหรับรับค่า แล้วกำหนด คอนโทรลดังภาพ

















4. ดับเบิ้ลคลิกที่ฟอร์มเพื่อเข้าไปป้อนคำสั่ง ให้ป้อนดังนี้

Public Class Form2
    Inherits Form

    Public Sub New()
        MyBase.New()
        InitializeComponent()

        AddHandler Load, AddressOf Me.Form2PassValue_Load

    End Sub

    Private Sub Form2PassValue_Load(ByVal sender As Object, _
                ByVal e As EventArgs)
        Me.Label1.Text = Me._valueToPassBetweenForms1
    End Sub

    Private _valueToPassBetweenForms1 As String

    Public Property ValueToPassBetweenForms1() As String
        Get
            Return Me._valueToPassBetweenForms1
        End Get
        Set(ByVal value As String)
            Me._valueToPassBetweenForms1 = value
        End Set
    End Property

    Private Sub Button1_Click(ByVal sender As System.Object, _ 
                ByVal e As System.EventArgs) Handles Button1.Click

        Me.Dispose()
    End Sub
End Class

จากนั้นทำการ กดปุ่ม F5 เพื่อสั่งรันฟอร์ม ทดสอบสิ่งที่ทำไว้

ผลัดกันส่งไปส่งมา พาชาติเจริญ