การเข้าถึงอินสแตนซ์เดียวกันของคลาสในรูปแบบอื่น

มีหลายวิธีที่คุณสามารถทำเช่นนี้ได้ หนึ่งในนั้นเกี่ยวข้องกับการสร้าง Module จากนั้นสร้างตัวแปรที่สร้างอินสแตนซ์คลาสของคุณ Public ภายในโมดูล:

Module MyGlobalVariables
    Public MyDataClass As DataClass
End Module

ตอนนี้ แบบฟอร์มทั้งหมดในโครงการของคุณจะสามารถเข้าถึง DataClass ผ่าน MyGlobalVariables.MyDataClass ได้

วิธีที่ดีกว่าคือการเพิ่มคุณสมบัติให้กับ Form2 ของคุณซึ่งสามารถตั้งค่าเป็นอินสแตนซ์ DataClass ได้:

Public Property MyDataClass As DataClass

จากนั้น คุณจะต้องสร้างอินสแตนซ์ Form2 ของคุณดังต่อไปนี้ (สมมติว่าตัวแปรที่คุณใช้เพื่อสร้างอินสแตนซ์ DataClass ใน Form1 เรียกว่า _dataClass):

Dim frm2 As New Form2()
frm2.MyDataClass = _dataClass
frm2.Show()

และสุดท้าย อีกวิธีหนึ่งคือการแทนที่ตัวสร้างของ Form2 และอนุญาตให้รับพารามิเตอร์ประเภท DataClass จากนั้น คุณสามารถยกตัวอย่าง Form2 เป็น:

Dim frm2 As New Form2(_dataClass)

หวังว่านี่จะช่วยได้...

คุณสามารถสร้างคลาสซิงเกิลตันเช่นนี้

Public Class DataClass
    Public Shared ReadOnly Instance As New DataClass()

    Private Sub New()
    End Sub

    ' Other members here
End Class

คุณสามารถเข้าถึงอินสแตนซ์เดียวผ่านสมาชิก Instance ที่ใช้ร่วมกัน ซึ่งจะเริ่มต้นโดยอัตโนมัติ Constructor New เป็นแบบส่วนตัวเพื่อห้ามไม่ให้สร้างอินสแตนซ์ใหม่จากภายนอกคลาส

คุณสามารถเข้าถึงซิงเกิลตันเช่นนี้

Dim data = DataClass.Instance

แต่นี่เป็นไปไม่ได้

Dim data = new DataClass() 'NOT POSSIBLE!

เนื่องจากคลาสซิงเกิลตันเข้าถึงได้ผ่านชื่อคลาส คุณจึงสามารถเข้าถึงได้จากทั้งสองแบบฟอร์มได้อย่างง่ายดาย