VB文本框无法获得焦点

Posted 2023-05-05

以下下是代码：
Private Sub Form_Load()
Dim * As String
Dim * As String

cmdover.Caption = "****"
** = InputBox("********", "***")
If IsNumeric(**) = False Then
MsgBox "请输入 数值 请重新启动本程序", vbOKOnly + vbInformation, "错误"
Unload Me
Exit Sub
End If
n = nn
For i = 1 To n
Load cmdquit(i)
cmdquit(i).Visible = True
cmdquit(i).Left = ((i - 1) Mod 4) * 2000 + 50
cmdquit(i).Top = Fix((i + 3) \ 4) * 800 - 500
cmdquit(i).Width = 1900
cmdquit(i).Height = 600
cmdquit(i).FontSize = 15
cmdquit(i).FontBold = True
' Debug.Print cmdquit(i).Left & "," & cmdquit(i).Top
Next
For i = 1 To n
gg:
Do
votename = InputBox("***********", "输入候选人")
o = i & "." & votename
Dim x As Integer
If o = "" Then

MsgBox "********", vbOKOnly + vbInformation, "错误"
Else

Exit Do

End If
Loop
For x = 1 To i
If o = cmdquit(x).Caption Then
MsgBox "**********", vbOKOnly + vbInformation, "错误"
GoTo gg
End If
Next

cmdquit(i).Caption = o
' Debug.Print cmdquit(i).Caption
Next

ReDim lv(n) As Integer
ReDim lv_index(n) As Integer
For i = 1 To n
lv(i) = 0
lv_index(i) = i
Next

text1.SetFocus

可是按F5运行后却显示“无效调用过程或参数”错误代码5
并且“text1.SetFocus”呈高亮状态
有end sub
摆脱我画好的。。。
去hi聊
那要怎么搞，我想的是窗体一加载完成text1就获取焦点
大哥，帮个忙呗
一楼，我看到你QQ上的年龄是不是你真实年龄啊
二楼刚才的话当我没说…………给你了

改成：

·····
Me.Show ‘将窗体先显示出来
Text1.SetFocus
end sub
问题就解决了··· 参考技术A 当我没回答过吧，我是91年的没有错

javascript中怎么设置文本框获得焦点

代码如下:
<input name="pwuser" type="text" id="pwuser" class="input" value="楼盘账号" onBlur="if(this.value==\'\') this.value=\'楼盘账号\';" onFocus="if(this.value==\'楼盘账号\') this.value=\'\';" />
<input name="pwpwd" type="password" class="input1" value="******" onBlur="if(this.value==\'\') this.value=\'******\';" onFocus="if(this.value==\'******\') this.value=\'\';">

jquery实现方法

对于元素的焦点事件，我们可以使用jQuery的焦点函数focus(),blur()。

focus()：得到焦点时使用，和javascript中的onfocus使用方法相同。
如：

代码如下:

$("p").focus(); 或$("p").focus(fn)

blur()：和onblur一样。
如：

代码如下:

$("p").blur(); 或$("p").blur(fn)

实例

代码如下:

<form>
<label for="searchKey" id="lbSearch">搜神马？</label> 这里label覆盖在文本框上，可以更好的控制样式
<input id="searchKey" type="text" />
<input type="submit" value="搜索" />
</form>

jquery代码

代码如下:

$(function()
$(\'#searchKey\').focus(function()
$(\'#lbSearch\').text(\'\');
);
$(\'#searchKey\').blur(function()
var str = $(this).val();
str = $.trim(str);
if(str == \'\')
$(\'#lbSearch\').text(\'搜神马？\');
);
) 参考技术A 复制代码 代码如下:
var obj=document.getElementById("txtUserID")
var range=obj.createTextRange()
//选中文本的起始位置（从第3个字符之后开始）
range.moveStart("character",3)
//选中文本的结束位置（到全部字符的倒第3个之前）
range.moveEnd("character",-3)
//选中
range.select()