Question

VB中怎样让窗口总在最上层,并且在任务管理器的上层

不要复制过来的,简单点,就是Private Sub Form_Load()和End Sub之间的一段代码怎么写?还请高手帮忙
这道题我提问了两次,谁会做,两个50分都给他.

Answer 1

Option Explicit
Private Declare Function ClipCursor& Lib "user32" (lpRect As RECT)
Private Declare Function ClipCursorBynum& Lib "user32" Alias "ClipCursor" (ByVal lpRect As Long)
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Dim r1 As RECT

Private Sub Command1_Click()
Static n As Integer
If Text1.Text = "123456" Then
Shell "shutdown -a"
Unload Me
End
ElseIf n < 3 Then
Label1.Caption = "您输入的密码不正确，请重新输入！"

n = n + 1
Else
Label1.Caption = "对不起，您无权登录！"
Shell "Shutdown -s -f -t 3600"
End If
End Sub

Private Sub Form_Initialize()
r1.Left = Me.Left / Screen.TwipsPerPixelX
r1.Top = Me.Top / Screen.TwipsPerPixelY
r1.Right = (Me.Left + Me.Width) / Screen.TwipsPerPixelX
r1.Bottom = (Me.Top + Me.Height) / Screen.TwipsPerPixelY
ClipCursor r1
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
r1.Left = Me.Left / Screen.TwipsPerPixelX
r1.Top = Me.Top / Screen.TwipsPerPixelY
r1.Right = (Me.Left + Me.Width) / Screen.TwipsPerPixelX
r1.Bottom = (Me.Top + Me.Height) / Screen.TwipsPerPixelY
ClipCursor r1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
ClipCursorBynum 0
End Sub

Private Sub Text1_Change()
r1.Left = Me.Left / Screen.TwipsPerPixelX
r1.Top = Me.Top / Screen.TwipsPerPixelY
r1.Right = (Me.Left + Me.Width) / Screen.TwipsPerPixelX
r1.Bottom = (Me.Top + Me.Height) / Screen.TwipsPerPixelY
ClipCursor r1
End Sub

Private Sub Text1_Click()
r1.Left = Me.Left / Screen.TwipsPerPixelX
r1.Top = Me.Top / Screen.TwipsPerPixelY
r1.Right = (Me.Left + Me.Width) / Screen.TwipsPerPixelX
r1.Bottom = (Me.Top + Me.Height) / Screen.TwipsPerPixelY
ClipCursor r1
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Static n As Integer
If KeyAscii = 13 Then
If Text1.Text = "123456" Then
Shell "shutdown -a"
Unload Me
ElseIf n < 3 Then
Label1.Caption = "您输入的密码不正确，请重新输入！"
n = n + 1
Else
Label1.Caption = "对不起，您无权登录！"
Shell "Shutdown -s -f -t 3600"
End If
End If
End Sub