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

时间：2007-03-28 来源：大学生计算机等级考试打印本文

　　问题：如何把数据文件输出到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

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

上一篇：计算机等级考试二级VB程序设计辅导
下一篇：等级考试二级VB常见问题和技巧解答[1]

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

时间：2007-03-28 来源：大学生计算机等级考试 打印本文

相关阅读：

时间：2007-03-28 来源：大学生计算机等级考试打印本文