满意答案

nan6718

2014.07.08

采纳率：53%    等级：12

已帮助：8369人

我原来写的一个缩屏的程序，后来没用，当时只是为了测试透明窗体的.代码给你参考下。功能差一个禁用任务管理器的功能

Private Declare Function GetWindowLong Lib "user32" _

Alias "GetWindowLongA" ( _

ByVal hwnd As Long, _

ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" _

Alias "SetWindowLongA" ( _

ByVal hwnd As Long, _

ByVal nIndex As Long, _

ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" ( _

ByVal hwnd As Long, _

ByVal crKey As Long, _

ByVal bAlpha As Byte, _

ByVal dwFlags As Long) As Long

Private Const WS_EX_LAYERED = &H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = &H2

Private Const LWA_COLORKEY = &H1

Dim GRB_Alpha As Integer

Dim rtn As Long

Private Sub Command1_Click()

GRB_Alpha = GRB_Alpha - 5

If GRB_Alpha < 5 Then

GRB_Alpha = 5

End If

Label1.Caption = "Alphaֵ" & GRB_Alpha

rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE)

rtn = rtn Or WS_EX_LAYERED

SetWindowLong hwnd, GWL_EXSTYLE, rtn

SetLayeredWindowAttributes hwnd, 0, GRB_Alpha, LWA_ALPHA

End Sub

Private Sub Command2_Click()

GRB_Alpha = GRB_Alpha + 5

If GRB_Alpha > 255 Then

GRB_Alpha = 255

End If

Label1.Caption = "Alphaֵ" & GRB_Alpha

rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE)

rtn = rtn Or WS_EX_LAYERED

SetWindowLong hwnd, GWL_EXSTYLE, rtn

SetLayeredWindowAttributes hwnd, 0, GRB_Alpha, LWA_ALPHA

End Sub

Private Sub Form_DblClick()

frmLogin.Show

End Sub

Private Sub Form_Load()

Form1.Width = Screen.Width

Form1.Height = Screen.Height

GRB_Alpha = 200

Label1.Caption = "Alphaֵ" & GRB_Alpha

Form1.BackColor = &H80C0FF

Label1.BackColor = &H80C0FF

rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE)

rtn = rtn Or WS_EX_LAYERED

SetWindowLong hwnd, GWL_EXSTYLE, rtn

SetLayeredWindowAttributes hwnd, 0, GRB_Alpha, LWA_ALPHA

End Sub

Private Sub Form_Unload(Cancel As Integer)

Unload Me

End Sub

登陆窗口的代码

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()

'设置全局变量为 false

'不提示失败的登录

LoginSucceeded = False

Me.Hide

End Sub

Private Sub cmdOK_Click()

'检查正确的密码

If txtPassWord1.Text = "" Or txtPassword.Text = "" Then

Label1.Caption = "密码不能为空"

End

End If

If txtPassWord1.Text = txtPassword.Text Then

'将代码放在这里传递

'成功到 calling 函数

'设置全局变量时最容易的

Str_PassWord = txtPassWord1.Text

LoginSucceeded = True

Unload Me

Form1.Show

Else

Label1.Caption = "无效的密码，请重试!"

txtPassWord1.SetFocus

End If

End Sub

00分享举报