先上成品:
制作过程:
1.先创建控件:
我创建了5个控件,其中一个用于显示信息,另外四个功能(画红圈的),一看图就知道
2.写代码
代码如下:
Option Explicit
Dim state As Boolean
Private Sub Command1_Click()
If Text2.Text = "pas123" Then
Form_inf.Hide
Form1.Show
Else
MsgBox "密码错误!", 16, "提示"
End If
End Sub
Private Sub Form_Load()
state = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Label2_Click()
If state = True Then
Text2.PasswordChar = ""
Label2.Caption = "隐藏密码"
state = False
Else
Text2.PasswordChar = "*"
Label2.Caption = "显示密码"
state = True
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command1_Click
End If
End Sub
只要理解了你可以根据自己需要进行修改,例如:密码隐藏符号可以改为其他,如:‘#’,也可以添加多个密码,甚至输入不同密码来实现不同功能