[VB.NET] การสร้าง Context Menu แสดงผลในตารางกริด แบบ @RunTime

thongkorn

Context Menu คือ หน้าเมนู Pop up ที่แสดงขึ้นเวลาที่เราทำการกดคลิกขวาที่เมาส์ ซึ่งจะแสดงรายละเอียดหรือทางลัดต่างๆตามที่เรากำหนด วันนี้แอดมินจะขอนำเสนอการสร้าง Context Menu เพื่อแสดงผลในตารางกริด (DataGridView) ด้วยวิธีการแบบ @Run Time หมายความว่า เราไม่ได้ทำการลาก ContextMenuStrip มาจากกลุ่มของเครื่องมือ (ToolBox) แต่สร้างขึ้นมาจากโค้ดแทน ซึ่งเป็นวิธีการที่ยืดหยุ่น และทรงประสิทธิภาพในการเขียนโปรแกรมด้วยภาษา Visual Basic ... ดังนั้นมิตรรักแฟนคลับจึงจำเป็นที่ต้องศึกษาโดยผ่านทางโค้ดแทนครับผม โดยตัวอย่างนี้จะเกิดการคลิกขวาที่เมาส์ จากนั้นให้ทำการเลือกแก้ไข (Edit) หรือลบแถวรายการ (Delete) ออกไป ...

การสร้าง Context Menu แบบ Run Time ...

1.     Dim _ContextMenu As New ContextMenuStrip
   
2. 
   
3.         '// Add new contextmenu
   
4.         _contextmenu.Items.Add("Edit")
   
5.         _contextmenu.Items.Add("Delete")
   
6.         AddHandler _ContextMenu.ItemClicked, AddressOf Contextmenu_Click
   
7.         '// IMPORTANT
   
8.         For Each rw As DataGridViewRow In dgvData.Rows
   
9.             For Each c As DataGridViewCell In rw.Cells
   
10.                 c.ContextMenuStrip = _ContextMenu
    
11.             Next
    
12.         Next

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

เหตุการณ์ตรวจสอบการคลิกขวาที่เมาส์หรือไม่ ...

1.     Private Sub dgvData_CellMouseUp(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvData.CellMouseUp
   
2.         '// RIGHT CLICKS
   
3.         If e.Button = Windows.Forms.MouseButtons.Right Then
   
4.             dgvData.Rows(e.RowIndex).Selected = True
   
5.             '// Get the row.
   
6.             rowIndex = e.RowIndex
   
7.         End If
   
8.     End Sub

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

เหตุการณ์ที่เราสร้างขึ้นมา เพื่อให้เกิด Driven หรือสั่งไปทำอะไร ... ตัวอย่างนี้คือการเลือกรายการแถวมาแก้ไข หรือลบแถวออกไป

1.     '// Force Event contextmenu_Click
   
2.     Private Sub Contextmenu_Click(ByVal sender As System.Object, ByVal e As ToolStripItemClickedEventArgs)
   
3.         '// Choose item from contextmenu.
   
4.         Select Case e.ClickedItem.Text
   
5.             Case "Edit"
   
6.                 _ContextMenu.Visible = False
   
7.                 MessageBox.Show("You select Primary Key = " & dgvData.Rows(rowIndex).Cells(0).Value & " to Edit.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
   
8.             Case "Delete"
   
9.                 _ContextMenu.Visible = False
   
10.                 MessageBox.Show("You select Primary Key = " & dgvData.Rows(rowIndex).Cells(0).Value & " to Delete.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
11.                 dgvData.Rows.RemoveAt(rowIndex)
    
12.         End Select
    
13.     End Sub

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

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. #Region "About"
   
2. ' / --------------------------------------------------------------------
   
3. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
4. ' / eMail : thongkorn@hotmail.com
   
5. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
6. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
7. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
8. ' / Purpose: Context Menu in DataGridView @Run Time.
   
9. ' / Microsoft Visual Basic .NET (2010)
   
10. ' /
    
11. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
12. ' / You can modify and/or distribute without to inform the developer.
    
13. ' / --------------------------------------------------------------------
    
14. #End Region
    
15. Public Class frmContextMenu
    
16.     Dim rowIndex As Integer = 0
    
17.     Dim _ContextMenu As New ContextMenuStrip
    
18. 
    
19.     Private Sub frmContextMenu_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
20.         Call InitializeGrid()
    
21.         Call FillSampleData()
    
22.         '// Add new contextmenu
    
23.         _contextmenu.Items.Add("Edit")
    
24.         _contextmenu.Items.Add("Delete")
    
25.         AddHandler _ContextMenu.ItemClicked, AddressOf Contextmenu_Click
    
26.         '// IMPORTANT
    
27.         For Each rw As DataGridViewRow In dgvData.Rows
    
28.             For Each c As DataGridViewCell In rw.Cells
    
29.                 c.ContextMenuStrip = _ContextMenu
    
30.             Next
    
31.         Next
    
32.     End Sub
    
33. 
    
34.     Private Sub dgvData_CellMouseUp(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvData.CellMouseUp
    
35.         '// RIGHT CLICKS
    
36.         If e.Button = Windows.Forms.MouseButtons.Right Then
    
37.             dgvData.Rows(e.RowIndex).Selected = True
    
38.             '// Get the row.
    
39.             rowIndex = e.RowIndex
    
40.         End If
    
41.     End Sub
    
42. 
    
43.     '// Force Event contextmenu_Click
    
44.     Private Sub Contextmenu_Click(ByVal sender As System.Object, ByVal e As ToolStripItemClickedEventArgs)
    
45.         '// Choose item from contextmenu.
    
46.         Select Case e.ClickedItem.Text
    
47.             Case "Edit"
    
48.                 _ContextMenu.Visible = False
    
49.                 MessageBox.Show("You select Primary Key = " & dgvData.Rows(rowIndex).Cells(0).Value & " to Edit.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
50.             Case "Delete"
    
51.                 _ContextMenu.Visible = False
    
52.                 MessageBox.Show("You select Primary Key = " & dgvData.Rows(rowIndex).Cells(0).Value & " to Delete.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
53.                 dgvData.Rows.RemoveAt(rowIndex)
    
54.         End Select
    
55.     End Sub
    
56. 
    
57.     ' / --------------------------------------------------------------------------------
    
58.     '// Default settings for Grids in @Run Time
    
59.     Private Sub InitializeGrid()
    
60.         With dgvData
    
61.             .RowHeadersVisible = False
    
62.             .AllowUserToAddRows = False
    
63.             .AllowUserToDeleteRows = False
    
64.             .AllowUserToResizeRows = False
    
65.             .MultiSelect = False
    
66.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
67.             .ReadOnly = True
    
68.             .Font = New Font("Tahoma", 9)
    
69.             .RowHeadersVisible = True
    
70.             .AlternatingRowsDefaultCellStyle.BackColor = Color.Orange
    
71.             .DefaultCellStyle.SelectionBackColor = Color.LightSteelBlue
    
72.             '/ Auto size column width of each main by sorting the field.
    
73.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
74.             .AutoResizeColumns()
    
75.             '/ Adjust Header Styles
    
76.             With .ColumnHeadersDefaultCellStyle
    
77.                 .BackColor = Color.Navy
    
78.                 .ForeColor = Color.White
    
79.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
80.             End With
    
81.         End With
    
82.     End Sub
    
83. 
    
84.     ' / --------------------------------------------------------------------------------
    
85.     ' / SAMPLE DATA INTO DATAGRIDVIEW
    
86.     Private Sub FillSampleData()
    
87.         Dim dt As New DataTable
    
88.         dt.Columns.Add("Primary Key")
    
89.         dt.Columns.Add("ID")
    
90.         dt.Columns.Add("Number Field")
    
91.         dt.Columns.Add("Double Field")
    
92.         dt.Columns.Add("Date Field")
    
93.         Dim RandomClass As New Random()
    
94.         For i As Long = 0 To 199
    
95.             Dim dr As DataRow = dt.NewRow()
    
96.             dr(0) = i + 1
    
97.             dr(1) = "ID" & i + 1
    
98.             dr(2) = RandomClass.Next(1, 99999)
    
99.             dr(3) = FormatNumber(RandomClass.Next(100, 1000) + RandomClass.NextDouble(), 2)
    
100.             '// Random Date
     
101.             Dim d As Date = Date.Today
     
102.             d = d.AddDays(RandomClass.Next(-30, 0))
     
103.             dr(4) = FormatDateTime(d, DateFormat.ShortDate).ToString
     
104.             dt.Rows.Add(dr)
     
105.         Next
     
106.         dgvData.DataSource = dt
     
107.     End Sub
     
108. 
     
109.     Private Sub frmContextMenu_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
110.         Me.Dispose()
     
111.         Application.Exit()
     
112.     End Sub
     
113. 
     
114. End Class

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

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

hot2

ขอบคุณครับ