vb程序设计new2.pptVIP

处理键盘事件 （续） 例下面这段程序将限制用户在文本框中输入的内容只能是数字： Private Sub Text1_KeyPress(KeyAseii Ascii integer) if KeyAscii48 Or KeyAscii57 Then KeyAscii=0 End If End Sub 处理键盘事件 （续） ●KeyDown、KeyUp 当用户按下键盘中的按键时，将引发当前具有焦点的窗体或控件的“KeyDown”事件。而当用户抬起按键时，将引发“KeyUp”事件。在这两个事件中，我们可以通过常量来测试按键，而且可以像MouseDown”、“MouseUp”事件一样通过Shift”参数来测试辅助键。 例：下面的这段程序可用来在用户按[Ctrl-A]键的时候选中文本框中的全部文字 处理键盘事件 （续） Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) If KeyCode=vbKeyA And Shift = vbCtrlMask Then Textl.SelStart = 0 Textl.SelLength=Len(Text1) End if End Sub 处理键盘事件（跋） 一般情况下，只要在窗体中存在控件，那么当前的焦点会落在某个控件上，此时所有的键盘事件将只能被此控件截获。 如果某些控件的键盘处理要求无论当前焦点位于哪个控件之上都要进行，那么我们应借助于窗体的“KeyPreview”属性。 当窗体的“KeyPreview”属性被设为True时，无论当前焦点位于哪个控件之上，所有的键盘事件都将首先被窗体截获，也就是说，首先引发窗体的KeyDown”、“KeyUp”和KeyPress”事件。这样我们就可以在窗体的这些键盘事件中进行判断，从而对窗体中所有控件的键盘事件进行统一的处理。 VB程序代码错误处理 错误的类型 错误捕获 代码调试 程序代码错误的种类 ●语法错误(Syntax Error/Compile Error) ●运行时错误 ●逻辑错误 存在于代码中的语言结构方面的错误,比如，拼写错误、缺少操作对象、不符合语法规则等错误都属于语法错误。 语法错误又称为编译错误，这是因为语法错误可以在编译时被Visual BASIC的编译器检测到。因此，无论存在多少个语法错误，我们都可以发现并将他们改正。 语法错误(Syntax Error/Compile Error) Visual BASIC的代码编辑器具有自动检查语法的功能，对于存在于单行代码中的语法错误，Visual BASIC将在我们输入代码的同时发现它们并予以提示。这样，我们就可及时改正错误，不必等到最后编译时再一个一个改正，而且也可以避免发生更严重的错误。 自动检查语法的功能只能检测到单行代码中的语法错误，而无法检测到由多行代码引起的语法错误。比如，当我们使用For．．．Next循环语句时，如果只输入了For语句行，而忘记输入Next语句行，就会产生For without Next”错误，而这个错误只有在编译时才能被检测到。 语法错误查错机制 运行时错误和逻辑错误都是无法被Visua1 Basic在编译时发现的错误。因此，我们要对这两种错误进行特殊的处理。 处理运行时错误的方法是捕获。 查找运行时错误和逻辑错误的方法是调试。 运行时错误和逻辑错误解决策略 错误的捕获理论 当程序中的某行代码试图执行一项非法的操作时，将产生运行时错误（Run-Time Error）。 比如，当我们的程序需要打开某个特定的文件时，如果这个文件被误删了，就会产生运行时错误File not found”(文件未找到)。 再比如，当我们的程序要从软盘中读取文件时，如果软驱中没盘，就会产生运行时错误“Disknotready”(磁盘没有准备好)。 由这些例子可以看出，运行时错误是无法避免的。但是，一旦运行时错误，将造成程序崩溃，无法继续执行。因此，我们必须能发生的运行时错误加以处理。 （2）在图片框中放置任何想在工具栏上作为工具按钮的控件。-------------可以用CommandButton或Image控件作为工具栏按钮。 注意，如果在MDI窗体中添加了图片框，则图片框所占用的空间将不计算在MDI窗体的工作空间中。也就是说，MDI窗体的ScaleHeigh属性返回的MDI窗体内部高度，这个高度是工作空间的净高度，图片框占用掉的高度已被扣除。 （3）设置作为工具按钮的控件的属性。 使用工具栏的一个好处是可以显示一个图示化的命令，用作工具按钮的控件可以是CommandButton或Image控件。 Image