VB.NET 给DataGrid加上右键菜单
Dim fileName As String Dim MyXmlDataSet As New DataSet fileName = "sunhai.xml" MyXmlDataSet.ReadXml(fileName) Form1.DefInstance.DataGrid1.DataSource = MyXmlDataSet 启动程序,DataTable默认是闭合的,需要手动点击展开,不胜其烦,用如下代码实现自动展开DataTable: Private Sub Form1_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles MyBase.Load DataGrid1.Expand(-1) '要展开的行数,设为-1表示展开所有行 DataGrid1.NavigateTo(0,"DataTableName") End Sub 获得在DataGrid1鼠标右击的座标 Dim rowNum,columnNum As Integer '分别是行号和列号 Private Sub DataGrid1_MouseDown(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseDown Dim myGrid As DataGrid = CType(sender,DataGrid) Dim hti As System.Windows.Forms.DataGrid.HitTestInfo hti = myGrid.HitTest(e.X,e.Y) If e.Button = MouseButtons.Right And e.Clicks = 1 Then '如果是鼠标右击 Select Case hti.Type ' Case System.Windows.Forms.DataGrid.HitTestType.Cell,System.Windows.Forms.DataGrid.HitTestType.RowHeader, System.Windows.Forms.DataGrid.HitTestType.ColumnHeader rowNum = hti.Row '获得鼠标右击所在行 columnNum = hti.Column '获得鼠标右击所在列 End Select End If End Sub 添加ContextMenu 在设计模式添加ContextMenu1: 把DataGrid1属性中的ContextMenu设为ContextMenu1。 Private Sub mnuDeleteRow_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles mnuDeleteRow.Click MyXmlDataSet.Tables(0).Rows.RemoveAt(rowNum) '删除行 End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |