7,762
社区成员
发帖
与我相关
我的任务
分享关于msflexgrid的问题，请大家帮忙！！
我有一个msflexgrid，需要用程序来指定某行被选中，且要选中的行能够整行显示选中蓝色条，现在用.rowsel不行，请高手支招，谢谢！！！
...全文
请发表友善的回复…
发表回复
charlce 2005-11-19
- 打赏
- 举报
:)
charlce 2005-11-19
- 打赏
- 举报
搞定了,还是要谢谢大家的热情帮助,呵呵
northwolves 2005-11-18
- 打赏
- 举报
Option Explicit
Private Sub Command1_Click()
selectarow Int(Rnd * MSFlexGrid1.Rows)
End Sub
Private Sub Form_Load()
Dim i As Integer, j As Integer
With MSFlexGrid1
.Rows = 10
.Cols = 4
For i = 1 To 9
.TextMatrix(i, 0) = "第 " & i & " 行"
For j = 1 To 3
.TextMatrix(0, j) = "第 " & j & " 列"
.TextMatrix(i, j) = i & "," & j
Next
Next
.SelectionMode = flexSelectionByRow
.BackColorSel = vbBlue
.ForeColorSel = vbRed
End With
End Sub
Sub selectarow(ByVal row As Integer)
With MSFlexGrid1
.row = row
.Col = 0
.ColSel = .Cols - 1
End With
End Sub
Private Sub Command1_Click()
selectarow Int(Rnd * MSFlexGrid1.Rows)
End Sub
Private Sub Form_Load()
Dim i As Integer, j As Integer
With MSFlexGrid1
.Rows = 10
.Cols = 4
For i = 1 To 9
.TextMatrix(i, 0) = "第 " & i & " 行"
For j = 1 To 3
.TextMatrix(0, j) = "第 " & j & " 列"
.TextMatrix(i, j) = i & "," & j
Next
Next
.SelectionMode = flexSelectionByRow
.BackColorSel = vbBlue
.ForeColorSel = vbRed
End With
End Sub
Sub selectarow(ByVal row As Integer)
With MSFlexGrid1
.row = row
.Col = 0
.ColSel = .Cols - 1
End With
End Sub
vbman2003 2005-11-18
- 打赏
- 举报
是不是你的操作后，msflexgrid控件没获得焦点啊
在上面的代码前加一句：fg.setfocus
在上面的代码前加一句：fg.setfocus
charlce 2005-11-18
- 打赏
- 举报
不行
vbman2003 2005-11-18
- 打赏
- 举报
这样呢：
fg.SelectionMode = flexSelectionByRow
'fg.Row = 5
fg.ColSel = fg.Cols - 1
fg.SelectionMode = flexSelectionByRow
'fg.Row = 5
fg.ColSel = fg.Cols - 1
charlce 2005-11-18
- 打赏
- 举报
不行的，主要是需要被选中的行蓝色显示，这个过程不是鼠标点击形成的，是我程序里面设定选中哪行，他就要整行蓝色标注出来，就如果鼠标点击一样的效果
vbman2003 2005-11-18
- 打赏
- 举报
fg.SelectionMode = flexSelectionByRow
