没用过vsFlexGrid 以下代码针对MsFlexGrid 加一个Combo1 sub MsFlexGrid_Click() Combo1.SetFocus end subsub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) select case keycode cese 38 MsFlexGrid.TopRow=MsFlexGrid.TopRow-1 case 40 MsFlexGrid.TopRow=MsFlexGrid.TopRow+1 end select end Sub
以下代码针对MsFlexGrid
加一个Combo1
sub MsFlexGrid_Click()
Combo1.SetFocus
end subsub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
select case keycode
cese 38
MsFlexGrid.TopRow=MsFlexGrid.TopRow-1
case 40
MsFlexGrid.TopRow=MsFlexGrid.TopRow+1
end select
end Sub