[VB.NET] การสร้างเหตุการณ์เดียวกันให้กับปุ่มคำสั่ง (Button) แบบหลายตัว

thongkorn

เนื่องจาก VB.NET ไม่มี Index ให้ใช้งานกับ Control ต่างๆ จึงทำให้ต้องประกาศเหตุการณ์ที่ทำซ้ำๆกันตลอด เรามีทางแก้ปัญหาได้ด้วยการนำเอา List ของ Control มาใช้งานแทน ...

หน้าจอออกแบบปุ่มคำสั่ง (Button)

มาดูโค้ดกันเถอะ ...

1. Public Class Form1
   
2. 
   
3.     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         Dim myButtons As List(Of Button) = New List(Of Button)
   
5.         myButtons.AddRange({Button1, Button2, Button3, Button4, Button5, Button6, Button7, Button8, Button9, Button10})
   
6.         '// OR
   
7.         'myButtons.Add(Button1)
   
8.         'myButtons.Add(Button2)
   
9.         ' ...................................
   
10.         'myButtons.Add(Button10)
    
11.         Dim i As Byte = 0
    
12.         For Each btn In myButtons
    
13.             With btn
    
14.                 .Text = i + 1
    
15.                 .Tag = i
    
16.             End With
    
17.             '// Force events handler.
    
18.             AddHandler myButtons(i).Click, AddressOf ClickButton
    
19.             i += 1
    
20.         Next
    
21. 
    
22.     End Sub
    
23. 
    
24.     '// Click Button event, get the text of button
    
25.     Public Sub ClickButton(ByVal sender As Object, ByVal e As System.EventArgs)
    
26.         Dim btn As Button = sender
    
27.         MessageBox.Show("คุณคลิ๊ก [" + btn.Text + "]" & vbCrLf & "Tag=" & btn.Tag)
    
28.     End Sub
    
29. 
    
30. End Class

คัดลอกไปที่คลิปบอร์ด

khantharod

ขอบพระคุณคับ