|
VB编程的必备技巧(6)
---- 十. 如何把数据文件输出到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中解决这个问题非常简单，可以通过Path属性的改变引发Change事件来实现。例如：
Sub Dir1-Change()
File1.Path=Dir1.Path
End Sub
---- 该事件过程使窗体上的目录列表框Dir1和文件列表框File1产生同步。因为目录列表框Path属性的改变将产生Change事件，所以在Dir1-Change事件过程中，把Dir1.Path赋给File1.Path，就可以产生同步效果。类似地，增加下面的事件过程，就可以使三种列表框同步操作：
Sub Drive1-Change()
Dir1.Path=Drive1.Drive
End Sub
---- 该过程使驱动器列表框和目录列表框同步，前面的过程使目录列表框和文件列表框同步，从而使三种列表框同步，问题即可解决。
黄立伟(北京市西客站)
|
