用户登录窗体界面设计

此次登录界面我仿照了张铎的学生系统，添加了一个验证码的功效，当时其实我还是很懵的，只是觉得他的那个好，就借鉴了；与此同时呢，问题也来了，师傅在帮助我验第一次学生的时候就说能否加个功能就是第二次验证的时候验证码才出来呢？最终出来结果也挺曲折坎坷的，但最后经过大神们铺路之后，我静下心来，到最后竟然也成功了，哈哈哈当时还挺高兴的，不过后来又发现了一个小细节就是无论验证码正确与否都能登录进去，最后师傅叫我捣鼓捣鼓，然后跟师傅说我出来捣鼓了，不用再下去弄了哈哈
废话不多说：以下是我的主要部分的代码展示：

主窗体验证码属性的设置

OK = False miCount = 0 '设置验证码属性 cmdCancel.Cancel = True Picture1.FontSize = 12 Picture1.FontBold = True Picture1.AutoRedraw = True drawvc

验证码用随机数生成随机校验码

Dim vc As Long
     Randomize '初始化随机种子
     '生成随机校验码
     vc = CLng(8999 * Rnd + 1000)
     vcode = vc
     Picture1.Cls
     Picture1.Print vc
     

设置的登录两次之后，验证码才显示出来

miCount = miCount + 1
If miCount = 2 Then
    Label2.Visible = True
    Text1.Visible = True
    Picture1.Visible = True
    Label1.Visible = True
    ## 验证码的限制条件
If Text1.Visible = True And miCount >= 2 Then
         If Text1.Text = vcode Then
                Me.Hide
                frmMain.Show
            Else
                MsgBox "验证码错误。", vbCritical + vbSystemModal, "错误"
                Text1.Text = ""
                drawvc
                Exit Sub
        End If
    End If