如何让 MSHFlexGrid 禁止用鼠标多选！
Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
MSHFlexGrid1.ColSel = MSHFlexGrid1.Col
MSHFlexGrid1.Redraw = False
End If
End Sub
Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MSHFlexGrid1.Redraw = True
End Sub
Private Sub MSHFlexGrid1_SelChange()
MSHFlexGrid1.ColSel = MSHFlexGrid1.Col
End Sub
[[i] 本帖最后由 liuhaibaoddd 于 2007-10-20 11:20 编辑 [/i]] |