关于组件如何获得焦点问题

使用focus()方法来获得焦点

一般窗口组件都有此方法，如

window

文本

密码

按钮

单选按钮

复选按钮

选择菜单

选择菜单的子表项

文本区域

相应的聚焦的事件是 onFocus

代码

<Script>

function checkPassword(testObject) {

if (testObjectvaluelength < 4) {

alert("密码长度不得小于四");

testObjectfocus();

testObjectselect();

}

}

</Script>

i = MsgBox("密码错误", 5)

'MsgBox是d窗函数，第一个参数是d出的提示窗口需要显示的信息，第二个参数表示需要显示按钮组合，具体参数值见下面：

'vbOKOnly 0 只显示“确定”按钮。（缺省）

'vbOKCancel 1 显示“确定”和“取消”按钮

'vbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略”按钮

'vbYesNoCancel 3 显示“是”、“否”和“取消”按钮

'vbYesNo 4 显示“是”和“否”按钮

'vbRetryCancel 5 显示“重试”和“取消”按钮

If i <> 4 Then

'如果MsgBox的返回值不等于4，也就是如果点击的按钮不是“重试”，MsgBox函数返回值参见下面：

'vbOK 1 单击了“确定”按钮

'vbCancel 2 单击了“取消”按钮

'vbAbort 3 单击了“终止”按钮

'vbRetry 4 单击了“重试”按钮

'vbIgnore 5 单击了“忽略”按钮

'vbYes 6 单击了“是”按钮

'vbNo 7 单击了“否”按钮

Quit

'这个应该是自定义的过程（sub），在此处调用Quit过程退出程序

Else

MeText0SetFocus

'设置Text0获取焦点

MeText0Text = ""

'清空Text0的内容

End If

以上就是关于关于组件如何获得焦点问题全部的内容，包括:关于组件如何获得焦点问题、VB编程菜鸟求解答、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！