等級考試二級VB常見問題和技巧解答[2]

問題：如何把數(shù)據(jù)文件輸出到Text控件中?如果數(shù)據(jù)量比較大，窗體滿屏也不夠大，怎么解決?
    答：有一個比較簡單的方法，就是把數(shù)據(jù)放到一個文本框(Text)里，并在其中加上水平和垂直滾動條。具體實(shí)現(xiàn)步驟為：先在窗體(Form)里加入一個文本框，采用默認(rèn)名Text1;然后，設(shè)置文本框Text1的屬性：Text屬性設(shè)置為空，MultiLine屬性設(shè)置為True，ScrollBars屬性設(shè)置為3-Both;接著添加如下VB代碼：
    以下是引用片段：
    Private Sub Form—Load()
    Dim Handle As Integer
    Dim FileName As String
    On Error GoTo ErrExit
    begin:
    ′輸入要顯示的數(shù)據(jù)文件的名稱
    FileName=InputBox$(″Input Filename″,
    ″Open File″)
    On Error GoTo FileErr
    Handle=FreeFile
    Open FileName For Input As #Handle
    ′把數(shù)據(jù)文件中的數(shù)據(jù)輸出到文本框中
    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
    通過這樣的處理，不僅能解決問題，而且用戶還可以在文本框中對數(shù)據(jù)進(jìn)行編輯。