大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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
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
按钮的焦点是去不掉的,既然你不想有焦点,不如不要用按钮,改用Label控件就是
常用的我只记得有Label,Image.
其它的你可以这样辨别,你在窗体上添加了控件之后,在代码框中键入它的控件名、按下".",在出来的提示框中没有SetFocus这一方法的,也都不能获取焦点。