VB.Net - จัดการเหตุการณ์และคุณสมบัติสำหรับตัวควบคุมหลายตัว

การสาธิตครั้งนี้มีวัตถุประสงค์เพื่อ:

• คลิกกลุ่มและ TextBox_Changed แม้หกกล่องข้อความ แต่ในหนึ่งย่อย
• รวมหกเลเบลในคอลเล็กชันที่อนุญาตให้ทำดัชนี

ข้อกำหนดเบื้องต้น

เปิดโครงการ Windows (ฟอร์ม) ใหม่

วางกล่องข้อความหกช่องชื่อไม่สำคัญ แต่คุณต้องป้อนหมายเลข (1 ถึง 6) ในคุณสมบัติแท็ก

วางหกป้ายกำกับชื่อไม่สำคัญ แต่คุณต้องป้อนหมายเลข (1 ถึง 6) ในคุณสมบัติแท็ก

วางฉลาก (ด้านล่าง) ด้วยชื่อ: Label14

ป้ายกำกับหกป้ายทางด้านซ้ายของกล่องข้อความเป็นตัวเลือกและใช้เป็นเกณฑ์มาตรฐานเท่านั้น

รหัส FormLoad

การสาธิตขึ้นอยู่กับหก stextbox และป้ายกำกับ แต่จำนวน แต่สามารถเปลี่ยนแปลงได้ง่าย:

 Form1_Load ส่วนตัว (ผู้ส่งเป็น ByVal เป็น System.Object, ByVal e เป็น System.EventArgs) จัดการ MyBase.Load Dim Ctr ติ่มซำเป็นตัวควบคุมสำหรับ Ctr แต่ละตัวใน Me.Controls ถ้า TypeOf Ctr เป็น TextBox จากนั้นเริ่มต้นไฟล์และ AddHandler Ctr.TextChanged AddressOf AllTextBox_TextChanged AddHandler Ctr.Click, AddressOf AllTextBox_Click ElseIf TypeOf Ctr เป็นป้ายกำกับจากนั้นหาก Ctr.Tag "" จากนั้น 'เริ่มต้นใช้งานป้ายชื่อ LbGroupe.Add (Ctr, Ctr.Tag) 

ดาวน์โหลด

== คลิกและ Textboxes_Changed code =

 Private Sub AllTextBox_TextChanged (ผู้ส่ง ByVal เป็น System.Object, ByVal e As System.EventArgs) LbGroupe (sender.tag) .text = sender.text สิ้นสุด Sub Sub เอกชนย่อย AllTextBox_Click (ByVal e As System.EventArgs) Text = "เริ่มต้นด้วย TexBox N °" & sender.tag Sub Sub 

ดาวน์โหลด

หากคุณต้องการดาวน์โหลดตัวอย่างคลิกที่นี่