等级考试二级VB常见问题和技巧解答[2]

文章作者 100test 发表时间 2007:04:06 21:10:11
来源 100Test.Com百考试题网

计算机等级考试训练软件《百宝箱》

　　问题：如何把数据文件输出到Text控件中?如果数据量比较大，窗体满屏也不够大，怎么解决?

　　答：有一个比较简单的方法，就是把数据放到一个文本框(Text)里，并在其中加上水平和垂直滚动条。具体实现步骤为：先在窗体(Form)里加入一个文本框，采用默认名Text1.然后，设置文本框Text1的属性：Text属性设置为空，MultiLine属性设置为True，ScrollBars属性设置为3-Both.接着添加如下VB代码：

以下是引用片段： 　　Private Sub Form—Load() 　　Dim Handle As Integer 　　Dim FileName As String 　　On Error GoTo ErrExit 　　begin: 　　′输入要显示的数据文件的名称 　　FileName=InputBox$(″Input Filename″, 　　″Open File″) 　　On Error GoTo FileErr 　　Handle=FreeFile 　　Open FileName For Input As #Handle 　　′把数据文件中的数据输出到文本框中 　　Text1.Text=Input$(LOF(Handle), Handle) 　　Close #Handle 　　Exit Sub 　　FileErr: 　　Dim ErrNum As Integer 　　If Err.Number=53 Then 　　ErrNum=MsgBox(″File not exist″, vbOKCancel, ″Error Information″) 　　If ErrNum=1 Then 　　GoTo begin 　　Else 　　Exit Sub 　　End If 　　End If 　　MsgBox Err.Description, , ″file open failed″ 　　ErrExit: 　　Exit Sub 　　End Sub 　　′使文本框充满整个窗体 　　Private Sub Form—Resize() 　　Text1.Left=0 　　Text1.Top=0 　　Text1.Width=Form1.Width-100 　　Text1.Height=Form1.Height-400 　　End Sub

　　通过这样的处理，不仅能解决问题，而且用户还可以在文本框中对数据进行编辑。