做网站建设公司哪家好?,重庆市招投标公共资源交易中心,大创项目做英语网站,湖北seo优化诊断满意答案nan67182014.07.08采纳率#xff1a;53% 等级#xff1a;12已帮助#xff1a;8369人我原来写的一个缩屏的程序#xff0c;后来没用#xff0c;当时只是为了测试透明窗体的.代码给你参考下。功能差一个禁用任务管理器的功能Private Declare Function GetWindowL…满意答案nan67182014.07.08采纳率53% 等级12已帮助8369人我原来写的一个缩屏的程序后来没用当时只是为了测试透明窗体的.代码给你参考下。功能差一个禁用任务管理器的功能Private Declare Function GetWindowLong Lib user32 _Alias GetWindowLongA ( _ByVal hwnd As Long, _ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib user32 _Alias SetWindowLongA ( _ByVal hwnd As Long, _ByVal nIndex As Long, _ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib user32 ( _ByVal hwnd As Long, _ByVal crKey As Long, _ByVal bAlpha As Byte, _ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED H80000Private Const GWL_EXSTYLE (-20)Private Const LWA_ALPHA H2Private Const LWA_COLORKEY H1Dim GRB_Alpha As IntegerDim rtn As LongPrivate Sub Command1_Click()GRB_Alpha GRB_Alpha - 5If GRB_Alpha 5 ThenGRB_Alpha 5End IfLabel1.Caption Alphaֵ GRB_Alphartn GetWindowLong(Me.hwnd, GWL_EXSTYLE)rtn rtn Or WS_EX_LAYEREDSetWindowLong hwnd, GWL_EXSTYLE, rtnSetLayeredWindowAttributes hwnd, 0, GRB_Alpha, LWA_ALPHAEnd SubPrivate Sub Command2_Click()GRB_Alpha GRB_Alpha 5If GRB_Alpha 255 ThenGRB_Alpha 255End IfLabel1.Caption Alphaֵ GRB_Alphartn GetWindowLong(Me.hwnd, GWL_EXSTYLE)rtn rtn Or WS_EX_LAYEREDSetWindowLong hwnd, GWL_EXSTYLE, rtnSetLayeredWindowAttributes hwnd, 0, GRB_Alpha, LWA_ALPHAEnd SubPrivate Sub Form_DblClick()frmLogin.ShowEnd SubPrivate Sub Form_Load()Form1.Width Screen.WidthForm1.Height Screen.HeightGRB_Alpha 200Label1.Caption Alphaֵ GRB_AlphaForm1.BackColor H80C0FFLabel1.BackColor H80C0FFrtn GetWindowLong(Me.hwnd, GWL_EXSTYLE)rtn rtn Or WS_EX_LAYEREDSetWindowLong hwnd, GWL_EXSTYLE, rtnSetLayeredWindowAttributes hwnd, 0, GRB_Alpha, LWA_ALPHAEnd SubPrivate Sub Form_Unload(Cancel As Integer)Unload MeEnd Sub登陆窗口的代码Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click()设置全局变量为 false不提示失败的登录LoginSucceeded FalseMe.HideEnd SubPrivate Sub cmdOK_Click()检查正确的密码If txtPassWord1.Text Or txtPassword.Text ThenLabel1.Caption 密码不能为空EndEnd IfIf txtPassWord1.Text txtPassword.Text Then将代码放在这里传递成功到 calling 函数设置全局变量时最容易的Str_PassWord txtPassWord1.TextLoginSucceeded TrueUnload MeForm1.ShowElseLabel1.Caption 无效的密码请重试!txtPassWord1.SetFocusEnd IfEnd Sub00分享举报
