请根据【说明】信息和如图6-16的显示效果,将【Visual Basic程序】中(1)~(5)空缺处的程序语句填写完整。 若要求在图6-16窗口中,用户输入月工资(或薪金收入)后,直接按回车键或向下方向箭就能使焦点(当前光标)跳到应扣除的基本费用的输入文

admin2009-02-15  19

问题 请根据【说明】信息和如图6-16的显示效果,将【Visual Basic程序】中(1)~(5)空缺处的程序语句填写完整。
若要求在图6-16窗口中,用户输入月工资(或薪金收入)后,直接按回车键或向下方向箭就能使焦点(当前光标)跳到应扣除的基本费用的输入文本框,而不用【Tab】键进行切换。请将以下文本框ht_salary的KeyDown(按键)事件过程中空缺的程序代码填写完整。
   If KeyCode =13 Or KeyCode = 40 Then
         (6)  
   End If

选项

答案(6)Txt_base.SetFocus

解析 如果一个对象具有焦点,则在事件中按下键(KeyDown)或松开键(KeyUp)时可能发生焦点的转移。KeyDown和KeyUp的处理过程如下。
   Private Sub对象名_KeyDown([index As Integer,] Keycode As Integer, Shift As Integer)
   Private Sub对象名_KeyUp([index As Integer,] Keycode As Integer, shift As Integer)
   其中,Index参数用于指明控件数组的索引;Keycode是一个键代码,指示键盘上按下的物理键,它包含了键盘上所有键的代码:Shift是在该事件发生时响应【Shift】、【Ctrl】和【Alt】键的状态的一个整数。Shift参数的有效值分别为3、6、7,分别代表【Shift】键和【Ctrl】键、【Ctrl】键和【Atl】键及这3个键都被按下。
   在控件的KeyDown事件中,KeyCode=13是用来判断是否敲入回车,即回车键的键值为13,向下方向箭的键值为40。
   若要求在图6-16窗口中,用户在文本框ht_salary输入月工资(或薪金收入)后,直接按回车键或向下方向箭就能使焦点(当前光标)跳到应扣除的基本费用的输入文本框Txt_base,而不用【Tab】键进行切换。文本框ht_salary的KeyDown(按键)事件过程中相关的程序代码如下。
   If KeyCode=13 Or KeyCode = 40 Then
        Txt_base.SetFocus
   End If
   其中,使用SetFocus方法使得文本框Txt_base获得输入焦点。
转载请注明原文地址:https://kaotiyun.com/show/uEjZ777K
0

随机试题
最新回复(0)