用户登陆窗体界面设计

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

主窗体验证码属性的设置

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