VisualBasic应用系统开发及其集成技术.pptVIP

11.1 应用系统封面的制作与系统集成 11.1.1 如何创建系统封面 1. 封面的制作 在VB中，封面也是一个窗体，开发者可以在窗体上使用VB的绘图工具Line和Shape绘制出图形，也可以在窗体内载入一个图片框（Picture Box）或图象控制（Image Control）,利用图片框或图象控制载入自己所喜欢的图片来制作封面 2. 浮动窗体的实现 在Visual Basic中，需要通过调用WINDOWS的API函数SetWindowpos来实现。 3. 封面窗体的卸出 当主窗体载入完毕后，封面窗体必须自动卸出。这里通过在主窗体中使用定时器控件，在激活主窗体的Activate事件中激活定时器，设置定时器属性，在定时器控件的事件Timer中，关闭定时器，卸出封面。 11.1.2用自然顺序法创建系统封面 所谓自然顺序法是指按照封面窗体的启动与卸出自然顺序来创建系统封面，此种方法是通常采用的方法，即在程序中创建两个或两个以上的Form窗体，把其中的一个作为专门的程序封面制作场所， 分1,2,3,4,5,6共六步骤创建。 11.1.3用人工控制法制作系统封面 1. 在窗体Form1中拖放一个时间控件Timer1 和一个容器控件Frame1,然后在Frame1上拖放一个命令按钮Command1， 2.把所有主程序工作控件都放在Frame1上。 3. 为窗体及各控件编写事件代码。 11.2 系统调试与错误处理 11.2.1 如何处理错误 Function FileExists (filename) As Boolean FileExists = (Dir(filename) ) End Function 为避免这种情况，在 Visual Basic 中可用错误处理功能中断错误并执行正确操作。当错误发生时，Visual Basic 将设置错误对象 Err 的各种属性，如错误号、描述等。 Function FileExists (filename) As Boolean Dim Msg As String 如果检测到任何一个错误，则开始捕获错误，从而响应错误处理程序 On Error GoTo CheckError FileExists = (Dir(filename) ) 如果未出现错误，则避免使用错误处理程序。 Exit Function CheckError: 如果出现错误，则在此分枝。 定义常数以表示固定的 Visual Basic 错误代码。 Const mnErrDiskNotReady = 71, mnErrDeviceUnavailable = 68 vbExclamation、vbOK、vbCancel、vbCritical 和 vbOKCancel 是 定义在 VBA 类型库中的常数。 11.2.2 设计错误处理程序 错误处理程序是应用程序中捕获和响应错误的例程。对于预感可能会出错的任何过程（应该假定任何 Basic 语句都可能导致错误，除非确知情况并非如此），均要对这些过程添加错误处理程序。设计错误处理程序的进程包括三步： (1) 当错误发生时，通知应用程序在分支点（执行错误处理例程的地方）设置或激活错误捕获。 (2) 编写错误处理例程，这里所有能预见的错误都作出响应。如果在某些点，控件实际上分支进入捕获，则说捕获是活动的。 (3) 退出错误处理例程。 1. 设置错误陷阱 (1) OnError Goto Line语句 (2) On Error Resume Next语句 (3) On Error Goto 0语句 2. 编写错误处理例程 错误处理例程体包含实际处理错误的代码，通常以 Case 或 If...Then...Else语句的形式出现。需要确定可能会发生什么错误并对每种错误提供操作方法。 3.关闭错误处理 如果在过程中激活了错误捕获，则当过程完成执行时，错误捕获会自动无效。 Sub ErrDemoSub () On Error GoTo SubHandler Kill test.bmp“ Kill 函数用于删除文件 On Error GoTo 0 Kill test.bmp On Error GoTo SubHandler 再次激活错误捕获 Kill test.bmp Exit Sub SubHandler: MsgBox 发生错误！ Resume Next End Sub 11.2.3 系统调试方法 Visual Basic 的调试支持包括：断点、中断表达式、监视表达式、通过代码一次经过一个语句或一个过程、显示变量和属性的值。 1. 错误类型 三种类型的错误： 语法错误、运行