Question

vb MSHFlexGrid 中新增一行时自动选中新增的那一行并变色

Answer 1

Private Sub Form_Load()
MSHFlexGrid1.SelectionMode = flexSelectionByRow
MSHFlexGrid1.Rows = 5
MSHFlexGrid1.Cols = 4
End Sub

‘双击需要添加的行，在双击行的上面添加一行并选中
Private Sub MSHFlexGrid1_DblClick()
Dim i As Integer
With MSHFlexGrid1
i = .Row
.AddItem i, i
End With
End Sub

Answer 2

PRIVATE SUB COMMAND1_CLICK()
mshflexgrid1.rows=mshflexgrid1.rows+1
mshflexgrid1.row=mshflexgrid1.rows-1
end sub