[原创]【VBA入门点滴】带验证码的登录界面

zhangyilike

[em17]

杨副官

<p>姓名文本框改用组合框感觉更好。</p>

rubao2008

<p>学习学习!~~</p>

jjl_sky

强人啊&nbsp; 学习中

hxqzccct

学习

杨副官

<p>发现笔误：Private Sub CommandButton1_Click()<br/>&nbsp;&nbsp;&nbsp; If TextBox1.Value = "雨中漫步" And TextBox2.Value = "hhzjxss" And TextBox3.Value = Label2.Caption Then<br/>'&nbsp;&nbsp;&nbsp; If TextBox1.Value = "1" And TextBox2.Value = "1" And TextBox3.Value = 1 Then<br/>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Unload UserForm1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Hide<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "欢迎使用！"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Application.Visible = True<br/>&nbsp;&nbsp;&nbsp; ElseIf TextBox1.Value &lt;&gt; "雨中漫步" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "用户名错误！"<br/>&nbsp;&nbsp;&nbsp; ElseIf TextBox1.Value &lt;&gt; "hhzjxss" Then&nbsp;&nbsp; <font color="#ff0066">'此处TextBox1改为TextBox2</font><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "密码错误！"<br/>&nbsp;&nbsp;&nbsp; Else '此处要改为：<font color="#ff0033">ElseIf TextBox3.Value &lt;&gt; Label2.Caption Then</font>&nbsp; ，否则验证码错误也提示密码错误！&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</p><p>&nbsp;MsgBox "验证码错误！"<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Sub<br/></p>

[此贴子已经被作者于2007-11-27 19:42:11编辑过]

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>一剑惊心</i>在2007-11-27 8:09:00的发言：</b><br/><p>能不能实现多用户下拉选择?</p></div><p>能，先不搞那么复杂，学完兰版的教材你就会了！</p>

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>杨副官</i>在2007-11-27 9:58:00的发言：</b><br/><p>发现笔误：<br/></p></div><p>谢谢杨副官，昨夜加班后整的，没仔细想！ </p><p>现调整后重新上传！</p>

wgefyj

非常不错，认真学习

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>杨副官</i>在2007-11-27 9:15:00的发言：</b><br/><p>姓名文本框改用组合框感觉更好。</p></div><p></p>先搞简单的，不搞复杂！