在 winform 中的 datagrid 中实现单元格双击事件
2008-06-17 18:09
423 查看
在 winform 中的 datagrid 中实现单元格双击事件
Public Class Member1Class Member1
Inherits System.Windows.Forms.Form
'Windows 窗体设计器生成的代码
'省略
..
Dim mydb As New Db
Dim dgListMouseDownTime As Date
Private Sub Member1_Load()Sub Member1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
mydb.daMember.Fill(Me.DsMember1)
Dim dgStyle As New DataGridTableStyle
dgStyle.MappingName = Me.DsMember1.Tables(0).TableName
Me.dgList.TableStyles.Add(dgStyle)
'在第一列上实现双击事件
Dim memberID As DataGridTextBoxColumn = Me.dgList.TableStyles(0).GridColumnStyles(0)
AddHandler memberID.TextBox.MouseDown, AddressOf memberID_MouseDown
End Sub
'如果鼠标定位到单元格,则设置定位到单元格上的时间
Private Sub dgList_MouseDown()Sub dgList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgList.MouseDown
Dim hit As DataGrid.HitTestInfo = Me.dgList.HitTest(e.X, e.Y)
If hit.Type = DataGrid.HitTestType.Cell Then
Me.dgListMouseDownTime = Now
End If
End Sub
Private Sub memberID_MouseDown()Sub memberID_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If (e.Button = MouseButtons.Left And e.Clicks = 2) Or (Now < Me.dgListMouseDownTime.AddMilliseconds(SystemInformation.DoubleClickTime)) Then
MessageBox.Show("双击了单元格!")
End If
End Sub
End Class
相关文章推荐
- 在 winform 中的 datagrid 中实现单元格双击事件
- 在 winform 中 DataGrid 中实现点击任一单元格都选中当前行
- C#实现给DataGrid单元行添加双击事件的方法
- DataGrid 双击事件的实现
- easyui-datagrid 单元格增加双击事件
- flex Datagrid数据列双击事件实现
- silverlight datagrid 模拟单元格双击事件
- 在 winform 中 DataGrid 中实现点击任一单元格都选中当前行
- C# Winform ListView实现单元格双击复制内容到剪贴板
- DataGrid中实现鼠标双击事件
- Android 自定义View实现单击和双击事件的方法
- 最简单的silverlight的DataGrid行双击事件添加
- 如何实现TreeView的双击事件? [转]
- 实现 gridview行的双击事件
- C#中winform实现自动触发鼠标、键盘事件的方法
- 在MVVM中使用AttachedDependencyProperty,实现鼠标双击listviewitem事件
- wpf datagrid 行双击事件
- 捕捉DataGrid的双击事件(C#版本)
- Android中用手势的双击事件实现图片单击放大效果
- 捕捉DataGrid的双击事件