VB中的MSFLEXGIRD如何实现单击一条记录其背景变成绿色，再次单击恢复原来的颜色，其他记录也是如此？
答案:1 悬赏:30 手机版
解决时间 2021-01-25 19:16
- 提问者网友：欲望失宠
- 2021-01-25 02:38
VB中的MSFLEXGIRD如何实现单击一条记录其背景变成绿色，再次单击恢复原来的颜色，其他记录也是如此？
最佳答案
- 五星知识达人网友：迟山
- 2021-01-25 03:53
Private Sub Form_Load()
MSFlexGrid1.Cols = 10
MSFlexGrid1.Rows = 10
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.FixedRows = 0
End Sub
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If MSFlexGrid1.CellBackColor = &H80C0FF Then
For i_Col = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i_Col
MSFlexGrid1.CellBackColor = vbWhite
Next i_Col
Else
For i_Col = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i_Col
MSFlexGrid1.CellBackColor = &H80C0FF
Next i_Col
End If
End Sub追问为什么一条记录，要单击两次才变色？追答我这里运行无误。追问我想设置一个命令按钮，当判断MSFLEXGIRD中如有记录是绿色（选中一条或多条），则调用某个窗体，怎么编写代码？追答新问题新帖子
MSFlexGrid1.Cols = 10
MSFlexGrid1.Rows = 10
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.FixedRows = 0
End Sub
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If MSFlexGrid1.CellBackColor = &H80C0FF Then
For i_Col = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i_Col
MSFlexGrid1.CellBackColor = vbWhite
Next i_Col
Else
For i_Col = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i_Col
MSFlexGrid1.CellBackColor = &H80C0FF
Next i_Col
End If
End Sub追问为什么一条记录，要单击两次才变色？追答我这里运行无误。追问我想设置一个命令按钮，当判断MSFLEXGIRD中如有记录是绿色（选中一条或多条），则调用某个窗体，怎么编写代码？追答新问题新帖子
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯