MouseEnterCell鼠标进入单元格事件,MouseLeaveCell鼠标离开单元格事件
- Public Sub MouseEnterCell(sender As Object,e As C1.Win.C1FlexGrid.RowColEventArgs)
- Dim tbl As SmGrid=sender
- Dim strColName As String=tbl.Cols(e.Col).Name
- If strColName="PurNO" Then
-
- tbl.Cursor=Cursors.Hand
- End If
- End Sub
-
- Public Sub MouseLeaveCell(sender As Object,e As C1.Win.C1FlexGrid.RowColEventArgs)
- Dim tbl As SmGrid=sender
- Dim strColName As String=tbl.Cols(e.Col).Name
- If strColName="PurNO" Then
-
- tbl.Cursor=Cursors.Default
- End If
- End Sub
复制代码
|