Excel VBA 编辑一个登陆窗口

2025-03-23 22:06:15

1、设计窗体窗体为标志label3稍僚敉视个;按钮button3个;文本域textbox2个;并为响应的组件设置tooltip工具提示。背景图片一张,使用loadpicture()函数载入图片设就女蒿鸳置图片自动填满,label背景为空,即0。Private Sub UserForm_Activate()Image1.Visible = TrueImage1.Picture = LoadPicture("C:\Users\jyjh\Desktop\main.jpg")Image1.AutoSize = FalseImage1.PictureSizeMode = fmPictureSizeModeStretchLabel1.BackStyle = 0Label2.BackStyle = 0Label3.BackStyle = 0End Sub

Excel VBA 编辑一个登陆窗口
Excel VBA 编辑一个登陆窗口

2、设置按钮功能Private Sub CommandButton1_Click()If TextBox1.Text = "admin媪青怍牙" And TextBox2.Text = "123" ThenUserForm1.HideApplication.Visible = TrueMsgBox "Login_successfully! "ElseMsgBox "Error,please try again!"End IfPrivate Sub CommandButton2_Click()ThisWorkbook.CloseEnd Subpassword文本域设置为passwchar *用于隐藏输入字符。

Excel VBA 编辑一个登陆窗口

3、模拟打开登录:

Excel VBA 编辑一个登陆窗口
Excel VBA 编辑一个登陆窗口
Excel VBA 编辑一个登陆窗口
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢