[VB.NET] การสร้างปุ่มคำสั่ง (Button Control) ในลักษณะแบบ Run Time หรือการสั่งด้วยโค้ด

thongkorn

การสร้าง Control ต่างๆบน Visual Basic เรามักจะใช้การ Design Time หรือ จับลาก Control มาวางแล้วปรับคุณสมบัติต่างๆ และมันก็จะแสดงผลให้เราเห็นได้ทันทีทันใด แต่ในบางกรณีเราไม่สามารถจะล่วงรู้ล่วงหน้าได้ว่าจำนวน Control ที่ต้องใช้งานมีกี่ตัวกันแน่ ดังนั้นการใช้วิธีการสร้าง Control แบบ Run Time หรือสั่งด้วยโค้ด จนกว่าคำสั่งจะทำงานไปถึง มันจึงจะแสดงผลให้เห็นได้ วิธีการนี้จะมีประสิทธิภาพและยืดหยุ่นสูงมาก เหล่าบรรดามือใหม่ทั้งหลาย ควรจะต้องศึกษาเรียนรู้กันไว้ด้วยน่ะขอรับกระผม


มาดูโค้ดกันเถอะ ... เป็นการสร้าง Button Control ให้อยู่ภายใต้กรอบของ Panel Control อีกที  

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Create Button @Runtime with VB.NET
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. 
    
14. Public Class frmCreateButtonRunTime
    
15.     Private pn As New Panel()
    
16.     Private Buttons As New Dictionary(Of String, Button)
    
17. 
    
18.     Private Sub frmCreateButtonRunTime_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
19.         '// Create Panel
    
20.         With pn
    
21.             .Location = New System.Drawing.Point(1, 1)
    
22.             .Size = New System.Drawing.Size(405, Me.Height - 45)
    
23.             .BackColor = Color.Moccasin
    
24.             .AutoScroll = True
    
25.         End With
    
26.         '// ใส่ Panel ลงบนฟอร์ม
    
27.         Me.Controls.Add(pn)
    
28.         '// สร้างปุ่ม (Button) ลงใน Panel (จำนวนหลัก, จำนวนปุ่ม)
    
29.         Call AddButtons(4, 19)
    
30.     End Sub
    
31. 
    
32.     '// เพิ่มปุ่มคำสั่ง (Button Control)
    
33.     Private Sub AddButtons(ByVal ColCount As Byte, ByVal MaxBtn As Byte)
    
34.         For i As Integer = 0 To MaxBtn - 1
    
35.             Dim B As New Button
    
36.             pn.Controls.Add(B)
    
37.             With B
    
38.                 .Height = 80
    
39.                 .Width = 100
    
40.                 .Left = (i Mod ColCount) * B.Width
    
41.                 .Top = (i \ ColCount) * B.Height
    
42.                 .Text = Chr((i \ ColCount) + Asc("A")) & i Mod ColCount + 1
    
43.                 Buttons.Add(B.Text, B)
    
44.                 .Tag = i
    
45.                 .Cursor = Cursors.Hand
    
46.                 .ForeColor = Color.Black
    
47.                 .BackColor = Color.DeepSkyBlue
    
48.             End With
    
49.             '// Force events handler.
    
50.             AddHandler B.Click, AddressOf ClickButton
    
51.         Next
    
52.     End Sub
    
53. 
    
54.     '// Click Button event, get the text of button
    
55.     Public Sub ClickButton(ByVal sender As Object, ByVal e As System.EventArgs)
    
56.         Dim btn As Button = sender
    
57.         MessageBox.Show("คุณคลิ๊ก [" + btn.Text + "]" & vbCrLf & "Tag=" & btn.Tag & " จะเป็นค่า Primary Key")
    
58.         btn.ForeColor = Color.White
    
59.         btn.BackColor = Color.Maroon
    
60.     End Sub
    
61. 
    
62. End Class

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

ดาวน์โหลดโค้ดต้นฉบับเต็ม VB.NET (2010) ได้ที่นี่ ...

g2gsoftuser

ขอบคุณครับ