21 lines
702 B
VB.net
21 lines
702 B
VB.net
Public Class ProcessManagerWidget
|
|
Public Delegate Sub RowDoubleClickedDelegate(RowView As DataRowView)
|
|
Public Event RowDoubleClicked As RowDoubleClickedDelegate
|
|
|
|
Public Property DataSource As DataTable
|
|
Get
|
|
Return GridMain.DataSource
|
|
End Get
|
|
Set(value As DataTable)
|
|
GridMain.DataSource = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Sub ViewMain_RowClick(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowClickEventArgs) Handles ViewMain.RowClick
|
|
If e.Clicks = 2 Then
|
|
Dim oRow As DataRowView = ViewMain.GetRow(e.RowHandle)
|
|
RaiseEvent RowDoubleClicked(oRow)
|
|
End If
|
|
End Sub
|
|
End Class
|