大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

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控件获得焦点
链接URL:http://dzwzjz.com/article/ddsscce.html
在线咨询
服务热线
服务热线:028-86922220
TOP