計(jì)算機(jī)等級考試二級VB常見問題及解答

　　問題：如何把數(shù)據(jù)文件輸出到Text控件中？如果數(shù)據(jù)量比較大，窗體滿屏也不夠大，怎么解決？

　　答：有一個(gè)比較簡單的方法，就是把數(shù)據(jù)放到一個(gè)文本框（Text）里，并在其中加上水平和垂直滾動條。具體實(shí)現(xiàn)步驟為：先在窗體（Form）里加入一個(gè)文本框，采用默認(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

′使文本框充滿整個(gè)窗體

Private Sub Form—Resize()

Text1.Left=0

Text1.Top=0

Text1.Width=Form1.Width－100

Text1.Height=Form1.Height－400

End Sub　

希望與更多計(jì)算機(jī)等級考試的網(wǎng)友交流，請進(jìn)入計(jì)算機(jī)等級考試論壇

更多信息請?jiān)L問：考試吧計(jì)算機(jī)等級考試欄目