Private Sub Command1_Click() '右捲一列 If MSHFlexGrid1.LeftCol > 1 Then MSHFlexGrid1.LeftCol = MSHFlexGrid1.LeftCol - 1 End SubPrivate Sub Command2_Click() '左捲一列 MSHFlexGrid1.LeftCol = MSHFlexGrid1.LeftCol + 1 End SubPrivate Sub Command3_Click() '上捲一行 If MSHFlexGrid1.TopRow > 1 Then MSHFlexGrid1.TopRow = MSHFlexGrid1.TopRow - 1 End SubPrivate Sub Command4_Click() '下捲一行 MSHFlexGrid1.TopRow = MSHFlexGrid1.TopRow + 1 End Sub
Private Sub Command2_Click() '左捲一列 MSHFlexGrid1.scroll 1 End SubPrivate Sub Command1_Click() '左捲一列 MSHFlexGrid1.scroll 2 End Sub
Private Sub Command1_Click() '左捲一列 MSHFlexGrid1.scroll -1 End Sub
If MSHFlexGrid1.LeftCol > 1 Then MSHFlexGrid1.LeftCol = MSHFlexGrid1.LeftCol - 1
End SubPrivate Sub Command2_Click() '左捲一列
MSHFlexGrid1.LeftCol = MSHFlexGrid1.LeftCol + 1
End SubPrivate Sub Command3_Click() '上捲一行
If MSHFlexGrid1.TopRow > 1 Then MSHFlexGrid1.TopRow = MSHFlexGrid1.TopRow - 1
End SubPrivate Sub Command4_Click() '下捲一行
MSHFlexGrid1.TopRow = MSHFlexGrid1.TopRow + 1
End Sub
MSHFlexGrid1.scroll 1
End SubPrivate Sub Command1_Click() '左捲一列
MSHFlexGrid1.scroll 2
End Sub
MSHFlexGrid1.scroll -1
End Sub