订阅Excel VBA 编辑一个登陆窗口
来源：网络收集 点击： 时间：2024-05-23设计窗体
窗体为标志label3个；按钮button3个；文本域textbox2个；并为响应的组件
设置tooltip工具提示。背景图片一张，使用loadpicture（）函数载入图片
设置图片自动填满，label背景为空，即0。
Private Sub UserForm_Activate()
Image1.Visible = True
Image1.Picture = LoadPicture(C:\Users\jyjh\Desktop\main.jpg)
Image1.AutoSize = False
Image1.PictureSizeMode = fmPictureSizeModeStretch
Label1.BackStyle = 0
Label2.BackStyle = 0
Label3.BackStyle = 0
End Sub
2/3设置按钮功能
Private Sub CommandButton1_Click()
If TextBox1.Text = admin And TextBox2.Text = 123 Then
UserForm1.Hide
Application.Visible = True
MsgBox Login_successfully!
Else
MsgBox Error,please try again!
End If
Private Sub CommandButton2_Click()
ThisWorkbook.Close
End Sub
password文本域设置为passwchar *用于隐藏输入字符。
3/3模拟打开登录：
注意事项注意对组件参数的修改
EXCELVBA登陆窗口版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_834717.html
