Visual Basic中在同一界面输入大量数据的几种方法

　　 Text1(Index).Width = .CellWidth

　　 Text1(Index).Height =.CellHeight

　　 Text1(Index).Text = .Text

End With

Text1(Index).Visible = True　　　　　　 ‘使文本框可见并可以编辑

Text1(Index).SetFocus

End Sub

Private Sub MSFlexGrid1_LeaveCell(Index As Integer)

MSFlexGrid1(Index).Text = Text1(Index).Text

End Sub

以上代码基本上实现了编辑网格单元的功能，但要为了更实用，可以再进行一些改进。例如当双击网格单元时可编辑其中内容；输入完后按回车键，文本框自动到下一列；如果输入到最后一列时，转到下一行；还应该有自动加行和响应箭头键等功能。为了实现这些功能，可以改写MSFlexGrid1_LeaveCell事件并加上另外一些事件，如果您对此感兴趣，可与作者联系。

如果您的工具栏内没有SSTab和MSFlexGrid控件，可以在VB主菜单里选择“工程”“部件”。然后添加“Microsoft Tabbed Dialog Control”和“Microsoft FlexGrid Control”即可。

5 结论

合理使用VB中的一些控件，如SSTab、MSFlexGrid、Option等，结合使用控件数组及控件的Visible属性，可以实现在同一界面上对大量不同类型数据的输入工作，从而提高了录入效率。

（出处：清风网络学院）