VB编程的必备技巧(5)

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:54 来源：互联网

本文章共7069字，分5页，当前第5页，快速翻页：

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《VB编程的必备技巧(5)》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

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

---- 该过程使驱动器列表框和目录列表框同步，前面的过程使目录列表框和文件列表框同步，从而使三种列表框同步，问题即可解决。

黄立伟(北京市西客站)

本文章更多内容：<<上一页 - 1 - 2 - 3 - 4 - 5

本页地址