双击事件用下面的代码:
选择一行就简单啦:
namespace DataGridDoubleClick
{
using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
public Form1()
{
//
// Required for Windows Form Designer support
//
InitializeComponent();
gridMouseDownTime = DateTime.Now;
// Call SetUp to bind the controls.
}
private void MakeDataSet()
{
// Create a DataSet.
myDataSet = new DataSet("myDataSet");
// Create two DataTables.
DataTable tCust = new DataTable("Customers");
// Create two columns, and add them to the first table.
DataColumn cCustID = new DataColumn("custID");
DataColumn cCustName = new DataColumn("custName");
DataColumn cCurrent = new DataColumn("custCity");
tCust.Columns.Add(cCustID);
tCust.Columns.Add(cCustName);
tCust.Columns.Add(cCurrent);
// Add the tables to the DataSet.
myDataSet.Tables.Add(tCust);
/* Populates the tables. For each customer and order,
creates two DataRow variables. */
DataRow newRow1;
// Create three customers in the Customers Table.
for(int i = 1; i < 4; i++)
{
newRow1 = tCust.NewRow();
newRow1["custID"] = (100*i).ToString();
tCust.Rows.Add(newRow1);
}
// Give each customer a distinct name.
tCust.Rows[0]["custName"] = "John Summers";
tCust.Rows[1]["custName"] = "Phil Seagram";
tCust.Rows[2]["custName"] = "Sam Robinson";
// Create a DataSet with two tables and one relation.
MakeDataSet();
/* Bind the DataGrid to the DataSet. The dataMember
specifies that the Customers table should be displayed.*/
dataGrid1.SetDataBinding(myDataSet, "Customers");
//create and add a custom table style so we can
//easily get at the behavior of a cell...
AddCustomDataTableStyle();
Namespace DataGridDoubleClick
Public Class Form1
Inherits Form
Private WithEvents dataGrid1 As DataGrid
Private WithEvents myDataSet As DataSet
Private gridMouseDownTime As DateTime
Private components As Container
Public Sub New()
MyBase.New()
InitializeComponent()
gridMouseDownTime = DateTime.Now
SetUp()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If (Not (components) Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private Sub SetUp()
MakeDataSet()
dataGrid1.SetDataBinding(myDataSet, "Customers")
AddCustomDataTableStyle()
End Sub
Private Sub MakeDataSet()
myDataSet = New DataSet("myDataSet")
Dim tCust As DataTable
tCust = New DataTable("Customers")
Dim cCustID As DataColumn
cCustID = New DataColumn("custID")
Dim cCustName As DataColumn
cCustName = New DataColumn("custName")
Dim cCurrent As DataColumn
cCurrent = New DataColumn("custCity")
tCust.Columns.Add(cCustID)
tCust.Columns.Add(cCustName)
tCust.Columns.Add(cCurrent)
myDataSet.Tables.Add(tCust)
Dim newRow1 As DataRow
Dim i As Integer
i = 1
Do While (i < 4)
newRow1 = tCust.NewRow
newRow1("custID") = i.ToString()
tCust.Rows.Add(newRow1)
i = (i + 1)
Loop
tCust.Rows(0)("custName") = "【孟宪会之精彩世界】"
tCust.Rows(1)("custName") = "net_lover"
tCust.Rows(2)("custName") = "http://xml.sz.luohuedu.net/"
Dim ts1 As DataGridTableStyle
ts1 = New DataGridTableStyle()
ts1.MappingName = "Customers"
ts1.AlternatingBackColor = Color.LightGray
Dim TextCol As DataGridTextBoxColumn
TextCol = New DataGridTextBoxColumn()
TextCol.MappingName = "custID"
TextCol.HeaderText = "序号"
TextCol.Width = 100
AddHandler TextCol.TextBox.MouseDown, New MouseEventHandler(AddressOf TextBoxMouseDownHandler)
AddHandler TextCol.TextBox.DoubleClick, New EventHandler(AddressOf TextBoxDoubleClickHandler)
ts1.GridColumnStyles.Add(TextCol)
TextCol = New DataGridTextBoxColumn()
TextCol.MappingName = "custName"
TextCol.HeaderText = "姓名"
TextCol.Width = 100
AddHandler TextCol.TextBox.MouseDown, New MouseEventHandler(AddressOf TextBoxMouseDownHandler)
AddHandler TextCol.TextBox.DoubleClick, New EventHandler(AddressOf TextBoxDoubleClickHandler)
ts1.GridColumnStyles.Add(TextCol)
TextCol = New DataGridTextBoxColumn()
TextCol.MappingName = "custCity"
TextCol.HeaderText = "地址"
TextCol.Width = 100
AddHandler TextCol.TextBox.MouseDown, New MouseEventHandler(AddressOf TextBoxMouseDownHandler)
AddHandler TextCol.TextBox.DoubleClick, New EventHandler(AddressOf TextBoxDoubleClickHandler)
ts1.GridColumnStyles.Add(TextCol)
dataGrid1.TableStyles.Add(ts1)
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Private Sub InitializeComponent()
Me.dataGrid1 = New System.Windows.Forms.DataGrid()
Me.Label1 = New System.Windows.Forms.Label()
CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'dataGrid1
'
Me.dataGrid1.CaptionVisible = False
Me.dataGrid1.DataMember = ""
Me.dataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.dataGrid1.Location = New System.Drawing.Point(12, 8)
Me.dataGrid1.Name = "dataGrid1"
Me.dataGrid1.Size = New System.Drawing.Size(368, 128)
Me.dataGrid1.TabIndex = 0
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(10, 149)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(370, 23)
Me.Label1.TabIndex = 1
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(388, 189)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.dataGrid1})
Me.Name = "Form1"
Me.Text = "鼠标双击事件的例子"
CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
<STAThread()> _
Public Shared Sub Main()
Application.Run(New Form1())
End Sub
Private Sub TextBoxDoubleClickHandler(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("TrueDoubleClick")
End Sub
Private Sub TextBoxMouseDownHandler(ByVal sender As Object, ByVal e As MouseEventArgs)
If (DateTime.Now < gridMouseDownTime.AddMilliseconds(SystemInformation.DoubleClickTime)) Then
MessageBox.Show("GridDoubleClick:" + CType(sender, TextBox).Text)
End If
Label1.Text = "TextBoxMouseDownHandler "
End Sub
Private Sub dataGrid1_MouseDown(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles dataGrid1.MouseDown
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Label1.Click
Label1.Text = ""
End Sub
Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Click
Label1.Text = ""
End Sub
End Class
End Namespace