mshflexgrid 使用上下箭头的时候怎样把内容一行一行的显示？

Question

mshflexgrid 使用上下箭头的时候怎样把内容一行一行的显示？

Answer 1

一行一行的显示
什么意思？上下箭头
指什么？mshflexgrid的？adodc的？

Answer 2

Dim i As Integer
Private Sub Command1_Click()
Dim j As Integer
If i < msgCondition.Rows - 1 Then
    i = i + 1
Else
    For j = 1 To msgCondition.Cols - 1
        msgCondition.Col = j
        msgCondition.CellBackColor = &H80000005    Next
    i = 1
End IfIf i <> 1 Then
msgCondition.Row = i - 1
For j = 1 To msgCondition.Cols - 1
msgCondition.Col = j
msgCondition.CellBackColor = &H80000005Next
End If
msgCondition.Row = i
For j = 1 To msgCondition.Cols - 1
msgCondition.Col = j
msgCondition.CellBackColor = &H8000000D
msgCondition.Col = 1
Next
msgCondition.SetFocusEnd SubPrivate Sub Form_Load()
msgCondition.AddItem "1" & vbTab & "2" & vbTab & "3" & vbTab & "4"
msgCondition.AddItem "1" & vbTab & "2" & vbTab & "3" & vbTab & "4"
msgCondition.AddItem "1" & vbTab & "2" & vbTab & "3" & vbTab & "4"
msgCondition.AddItem "1" & vbTab & "2" & vbTab & "3" & vbTab & "4"
msgCondition.AddItem "1" & vbTab & "2" & vbTab & "3" & vbTab & "4"msgCondition.SelectionMode = 1 '- flexSelectionByRowEnd Sub

Answer 3

mshflexgrid的，就是用键盘的上下箭头的时候，该选中的行一行一行的自动移动

Answer 4

MSHFlexGrid1.SelectionMode = flexSelectionByRow
就可以了阿，让整行选中。