如何实现mshflexgrid控件的行上下移动
如何实现人员顺序上下任意调整？
[解决办法]
MSHFlexGrid1.RowPosition(2) = 3
这样就可以把第二行挪到第三行去
[解决办法]
10 楼的方法很好。
Option Explicit
Private Sub Form_Load()
With MSFlexGrid1
.FixedRows = 0
.Rows = 0
.AddItem "A" & vbTab & 0
.AddItem "B" & vbTab & 1
.AddItem "C" & vbTab & 2
.AddItem "D" & vbTab & 3
End With
End Sub
Private Sub MSFlexGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim n As Long
With MSFlexGrid1
n = .Row
If KeyCode = vbKeyNumpad8 And n > 0 Then
.RowPosition(n) = n - 1
.Row = n - 1
ElseIf KeyCode = vbKeyNumpad2 And n < .Rows - 1 Then
.RowPosition(n) = n + 1
.Row = n + 1
End If
End With
End Sub
