在现代软件开发中，用户界面（UI）设计和用户交互体验（UX）至关重要。尽管Visual Basic for Applications (VBA)通常用于Microsoft Office应用程序的自动化，但其强大的事件驱动编程模型使其成为一个构建简单用户界面的理想工具。本文将介绍一个基于VBA的简单登录界面示例，包括用户名和密码验证、回车键触发事件以及鼠标悬停效果。
登录界面
示例概述
本示例通过一个用户表单（UserForm）实现基本的登录功能。用户需要输入用户名和密码，如果输入正确，则显示成功消息并关闭表单；如果输入错误，则显示错误消息并清空输入框。此外，还包括回车键自动提交和鼠标悬停改变标签颜色的功能。
代码详解
1. 变量声明
Private isMouseOverLabel15 As Boolean此变量用于追踪鼠标是否悬停在Label15上，以实现颜色变化的逻辑。
2. 登录按钮点击事件（Label15_Click）
Private Sub Label15_Click()Dim enteredUsername As StringDim enteredPassword As StringDim correctUsername As StringDim correctPassword As StringcorrectUsername = "123456" ' 替换成你设定的正确用户名correctPassword = "123456" ' 替换成你设定的正确密码enteredUsername = Me.TextBox1.ValueenteredPassword = Me.TextBox2.ValueIf enteredUsername = correctUsername And enteredPassword = correctPassword ThenMsgBox "用户名和密码正确！"Unload MeElseMsgBox "用户名或密码错误！"TextBox1.Value = ""TextBox2.Value = ""End IfEnd Sub在点击登录标签时，程序会检查输入的用户名和密码是否与预设值匹配，并根据结果显示相应的消息框。
3. 密码框回车事件（TextBox2_KeyDown）
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)If KeyCode = 13 Then ' 检查按下的键是否是回车键的 KeyCodeLabel15.ForeColor = RGB(0, 0, 0) ' 将 Label8 控件的字体颜色设置为黑色Label15_ClickEnd IfEnd Sub当用户在密码框按下回车键时，模拟点击登录标签，执行登录验证。
4. 帮助标签点击事件（Label7_Click）
Private Sub Label7_Click()MsgBox "请联系管理员！"End Sub点击帮助标签时，显示一个提示消息框，指导用户联系管理员。
5. 用户名框回车事件（TextBox1_KeyDown）
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)If KeyCode = 13 Then ' 检查按下的键是否是回车键的KeyCodeMe.TextBox2.SetFocus ' 将光标焦点设置到下一个文本框 TextBox2End IfEnd Sub在用户名框按下回车键时，自动将焦点切换到密码框，提高用户输入效率。
6. 鼠标移动事件（UserForm_MouseMove）
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Dim lbl As MSForms.LabelSet lbl = Me.Controls("Label15") ' 确保Label15是用户窗体上的控件名' 判断鼠标是否在Label15上Dim isCurrentlyOver As BooleanisCurrentlyOver = (X >= lbl.Left And X <= lbl.Left + lbl.Width And Y >= lbl.Top And Y <= lbl.Top + lbl.Height)' 如果状态改变，则更新颜色If isCurrentlyOver <> isMouseOverLabel15 Thenlbl.ForeColor = IIf(isCurrentlyOver, vbBlack, vbGray)isMouseOverLabel15 = isCurrentlyOverEnd IfEnd Sub当用户移动鼠标时，此事件检查鼠标是否悬停在登录标签上，并根据结果改变标签的字体颜色，增强用户交互体验。
完整代码:
Private isMouseOverLabel15 As BooleanPrivate Sub Label15_Click() Dim enteredUsername As String Dim enteredPassword As String Dim correctUsername As String Dim correctPassword As String correctUsername = "123456" ' 替换成你设定的正确用户名 correctPassword = "123456" ' 替换成你设定的正确密码 enteredUsername = Me.TextBox1.Value enteredPassword = Me.TextBox2.Value If enteredUsername = correctUsername And enteredPassword = correctPassword Then MsgBox "用户名和密码正确！" Unload Me Else MsgBox "用户名或密码错误！" TextBox1.Value = "" TextBox2.Value = "" End IfEnd SubPrivate Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ' 检查按下的键是否是回车键的 KeyCode Label15.ForeColor = RGB(0, 0, 0) ' 将 Label8 控件的字体颜色设置为黑色 Label15_Click End IfEnd SubPrivate Sub Label7_Click() MsgBox "请联系管理员！"End SubPrivate Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ' 检查按下的键是否是回车键的KeyCode Me.TextBox2.SetFocus ' 将光标焦点设置到下一个文本框 TextBox2 End IfEnd SubPrivate Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim lbl As MSForms.Label Set lbl = Me.Controls("Label15") ' 确保Label15是用户窗体上的控件名 ' 判断鼠标是否在Label15上 Dim isCurrentlyOver As Boolean isCurrentlyOver = (X >= lbl.Left And X <= lbl.Left + lbl.Width And Y >= lbl.Top And Y <= lbl.Top + lbl.Height) ' 如果状态改变，则更新颜色 If isCurrentlyOver <> isMouseOverLabel15 Then lbl.ForeColor = IIf(isCurrentlyOver, vbBlack, vbGray) isMouseOverLabel15 = isCurrentlyOver End IfEnd Sub总之，通过本文的学习，读者将能够掌握使用VBA创建用户登录窗体的基本步骤和技巧，为在Microsoft Office应用程序中实现更高级的用户认证和安全功能打下基础。
