焦点与Tab顺序(精品).doc

焦点与Tab顺序在可视化程序设计中，焦点（focus）是一个十分重要的概念下面详细介绍一下如何设置焦点，以及窗体上控件的Tab顺序1 设置焦点简单地说，焦点是接收用户鼠标或键盘输入的能力当一个对象具有焦点时，它可以接收用户的输入在Windows系统中，某个时刻可以运行多个应用程序，但是只用具有焦点的应用程序才有活动标题栏，能够接收用户的输入类似地，在含有多个文本框的窗体中，只有具有焦点的文本框才能接受用户的输入当对象得到焦点时，会触发GotFocus事件；当对象失去焦点时，将触发LostFocus事件，前面文本框的例题中已经见过这方面的例子LostFocus事件过程通常用来对更新进行确认和有效性检查，也可用于修正或改变在GotFocus事件过程中设立的条件窗体和多数控件支持这些事件可以用下面的方法设置一个对象的焦点：l 在运行时单击该对象l 运行时用热键选择该对象l 在程序代码中用SetFocus方法l 利用Tab键将焦点移动到该对象上焦点只能移到可视的窗体或控件上，因此，只有当一个对象的Enabled和Visible属性均为True时，它才能接收焦点Enabled属性允许对象响应由用户产生的事件，如键盘和鼠标事件，而Visible属性决定了对象是否可见。

注意，并不是所有对象都可以接收焦点某些控件，包括框架（Frame）、标签（Label）、菜单（Menu）、直线（Line）、形状（Shape）、图像框（Image）和计时器（Timer）都不能接收焦点对于窗体来说，只有当窗体上的任何控件都不能接收焦点时，该窗体才能接收焦点对于大多数可以接收焦点的控件来说，从外观上可以看出它是否具有焦点例如，当命令按钮、复选框、单选按钮等控件具有焦点时，在其内侧有一个虚线框，如图2-36所示当文本框具有焦点时，在文本框内有闪烁的插入光标图2-36 具有焦点的命令按钮如前所述，可以通过SetFocus方法设置焦点但是应当注意，由于在窗体的Load事件完成前，窗体或窗体上的控件是不可视的，因此，不能直接在Form_Load事件过程中，用SetFocus方法把焦点移到正在装入的窗体或窗体上的控件必须先用Show方法显示窗体，然后才能对该窗体或窗体上的控件设置焦点例如，对于图2-36所示窗体，编写如下事件过程：Private Sub Form_Load() Command2.SetFocusEnd Sub程序设计者的原意是在程序开始运行后，直接把焦点移到Command2上，但是不能达到目的。

程序运行后，显示出错信息，如图2-37所示图2-37 在Form_Load事件中使用SetFocus的错误提示为了解决这个问题，必须在这支焦点前世窗体可视，这可以通过Show方法来实现上面的程序应该为：Private Sub Form_Load() Form1.Show Command2.SetFocusEnd Sub2 Tab顺序当窗体上有多个控件时，用鼠标单击某个控件，就可把焦点移到该控件上(假设该控件可以获得焦点)除鼠标外，用Tab键也可以把焦点移到某个控件上每按一次Tab键，焦点便从一个控件移到另一个控件所谓Tab顺序，就是指按下Tab键时，焦点在各个控件之间移动的顺序在一般情况下，Tab顺序由控件建立时的先后顺序确定例如，假定在窗体上建立了5个控件，其中3个文本框，两个命令按钮，建立顺序为：Text1、Text2、Text3、Command1、Command2程序执行时，光标默认地位于Text1中，每按一次Tab键，焦点就按Text2、Text3、Command1、Command2的顺序移动当焦点位于Command2时，如果按Tab键，则焦点又回到Text1如前所述，除计时器、菜单、框架、标签等不接收焦点的控件外，其他控件均支持Tab顺序。

可以获得焦点的控件都有一种称为“TabStop”的属性，用它可以控制焦点的移动该属性的缺省值为True，如果把它设置为False，则在用Tab键移动焦点时会跳过该控件TabStop属性为False的控件，仍然保持它在实际的Tab顺序中的位置，只不过在按Tab键时这个控件被跳过在设计模式下，可以通过属性窗口中的TabIndex属性来改变Tab顺序在前面的例子中，如果把Command2的TabIndex由4改为0，把Text1的TabIndex由0改为1，把Text2的TabIndex由1改为2，把Text3的TabIndex由2改为3，把Command1的TabIndex由3改为4则程序运行时Tab顺序变为Command2 →Text1→Text2→Text3→Command1不能获得焦点的控件以及无效的和不可见的控件，不具有TabIndex属性，因而不包含在Tab顺序中，按Tab键时，这样的控件将被跳过1. Print方法 功能：在窗体/立即窗口/图片框/打印机上输出信息格式：[对象.] Print [输出项] [ , | ; ] [对象]缺省为当前窗体，[输出项]缺省则打印一空白行输出项之间可用分号或逗号分隔：使用分号，其后的输出项紧接着前一个输出项输出；使用逗号，其后的输出项在下一个输出区输出。

两个输出区默认相隔14列 各输出项表示要打印的表达式，组成: [Spc(n) | Tab(n)] 表达式 Spc(n)：指定在输出之前插入n个空白字符 Tab(n)：指定在第n列上输出例， Private Sub Form_Click() Print Print Tab) (15); "*" Print Tab(13; "*"; Spc(1); "*"; Spc(1); "*“ End Sub2. 格式输出函数 功能：使数值、日期或字符串按指定的格式输出格式：Format(expression [, format]) expression－需要格式化输出的表达式 format －输出的格式模式 2.6 常用内部函数－字符串函数 串比较：strcom 消左右空格：trim日期函数函数名 功能简述 示例Date/Time 返回系统日期或时间 Date '返回系统当前日期Now 返回系统日期和时间 略Year/ Month/Day (D) 返回年、月、日 Year(Now) '返回2006WeekDay(D) 返回星期几 WeekDay(Now) '返回5Hour(time) 返回小时数 Hour(Time) '返回16类型转换函数 函数名 返回类型 函数名 返回类型 CBool(X) Boolean CInt(X) Integer CDate(X) Date CLng(X) Long CCur(X) Currency CSng(X) Single2．Foreach ……next 语句：For...Next:指定循环次数，使用计数器重复运行语句。

ForEach...Next:对于集合中的每项或数组中的每个元素，重复执行一组语句让我们来看看ForEach...Next语句,ForEach...Next循环与For...Next循环类似 ForEach...Next不是将语句运行指定的次数，而是对于数组中的每个元素或对象集合中的每一项重复一组语句这在不知道集合中元素的数目时非常 有用它的语法如下：　　ForEachelementIngroup[statements][ExitFor][statements]Next[element]　　如果group中有至少一个元素，就会进入ForEach块执行一旦进入循环，便首先对group中第一个元素执行循环中的所有语句只要 group中还有其他的元素，就会对每个元素执行循环中的语句当group中没有其他元素时退出循环，然后从Next语句之后的语句继续执行。