不好意思,我用的是C#工程, VB代码是工具转过来的。 现在改了一下。:Z
Private Sub gcMultiRow1_EditingControlShowing(ByVal sender As Object, ByVal e As EditingControlShowingEventArgs)
RemoveHandler e.Control.MouseDown, New MouseEventHandler(AddressOf Me.Control_MouseDown)
AddHandler e.Control.MouseDown, New MouseEventHandler(AddressOf Me.Control_MouseDown)
End Sub
Private Sub Control_MouseDown(sender As Object, e As MouseEventArgs)
' 在这里处理你自己的逻辑。
Dim r As Row = Me.gcMultiRow1.CurrentRow
r.Selected = Not r.Selected
End Sub |