vb点虐 不获取焦点 vb控件获得焦点

VB net 文本框为什么得不到焦点？

PRIVATE n AS integer

为盱眙等地区用户提供了全套网页设计制作服务，及盱眙网站建设行业解决方案。主营业务为成都网站建设、成都网站制作、盱眙网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

Private Sub Command6_Click()

If Text1.Text  "admin" Then

MsgBox ("用户名不正确，程序退出！")

End

Else

Do While n = 3

If Text2.Text  "admin" Then

Text2.Text = ""

MsgBox "密码不正确，请重新输入"

Text2.SetFocus

n = n + 1

exit sub

Else

MsgBox ("密码输入正确，欢迎登陆")

Exit Do

End

End If

Loop

End if

If n  3 Then

MsgBox ("密码输入三次均无效，程序退出")

End

End if

End Sub

VB实现窗口最前但不要取得焦点

Private Const SWP_NOACTIVATE = H10 '不获得焦点

Private Const SWP_NOMOVE = 2

Private Const SWP_NOSIZE = 1

Private Const Flags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE

Private Const HWND_TOPMOST = -1

Private Const HWND_NOTOPMOST = -2

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

'设置窗口总在最前的函数

Public Function SetTopMostWindow(tHWND As Long, Topmost As Boolean) As Long

If Topmost = True Then

SetTopMostWindow = SetWindowPos(tHWND, HWND_TOPMOST, 0, 0, 0, 0, Flags)

Else

SetTopMostWindow = SetWindowPos(tHWND, HWND_NOTOPMOST, 0, 0, 0, 0, Flags)

SetTopMostWindow = False

End If

End Function

'使form2窗口总在最前，但不让form2获得焦点

Private Sub Command1_Click()

SetTopMostWindow Form2.hwnd, True

End Sub

vb点虐 按钮无焦点

按钮的焦点是去不掉的，既然你不想有焦点，不如不要用按钮，改用Label控件就是

VB中什么控件不能获得焦点

常用的我只记得有Label，Image.

其它的你可以这样辨别，你在窗体上添加了控件之后，在代码框中键入它的控件名、按下"."，在出来的提示框中没有SetFocus这一方法的，也都不能获取焦点。

文章名称：vb点虐 不获取焦点 vb控件获得焦点
分享地址：http://cdxtjz.cn/article/ddsscce.html