飘云阁

 找回密码
 加入我们

QQ登录

只需一步,快速开始

查看: 8020|回复: 4

VB登陆框

[复制链接]

该用户从未签到

发表于 2007-4-29 01:34:49 | 显示全部楼层 |阅读模式
设计两个TEXT文本,2个标签,其标签为用户名和密码
一个确定按钮
用户名和密码都为123
如果当输入正确的时候则显示登陆成功,否则你有3次机会重新输入
每次提示递减信息
最后一次则退出整个程序

如何编写,
请指教

VB初学者,请能人帮助编写下,谢谢
PYG19周年生日快乐!
  • TA的每日心情
    开心
    2024-12-1 11:04
  • 签到天数: 12 天

    [LV.3]偶尔看看II

    发表于 2007-4-29 01:49:23 | 显示全部楼层
    Private Sub Command1_Click()
    Static k As Integer

    If Text1 = "123" And Text2 = "123" Then
        MsgBox "登录成功!"
    Else
        k = k + 1
        If k <> 3 Then
            MsgBox "你还有" & 3 - k & "次机会"
        Else
            End
        End If
    End If
       
       
    End Sub
    PYG19周年生日快乐!

    该用户从未签到

     楼主| 发表于 2007-4-29 02:23:46 | 显示全部楼层
    Static k As Integer
    是什么来的
    不是dim k as integer
    ??????

    k = k + 1
        If k <> 3 Then



    能简单说说编程的思路么,例如这道题目
    我知道很简单的,可是要从什么思路进行思考和编写呢?谢谢
    请指教一下

    [ 本帖最后由 NICHOLAS2005 于 2007-4-29 05:30 编辑 ]
    PYG19周年生日快乐!

    该用户从未签到

    发表于 2007-4-29 12:33:46 | 显示全部楼层
    '下面代码表示按扭1被单击就执行下面
    Private Sub Command1_Click()
    '下面声明变量K(整数型)
    Static k As Integer
    '下面是如果编辑框1的内容=123和编辑框2的内容=123
    If Text1 = "123" And Text2 = "123" Then
    '下面是弹出提示框,提示内容为登陆成功
        MsgBox "登录成功!"
    '别的(如果上面不等于123)就执行下面
    Else
    '整数变量=整数变量+1   
    k = k + 1
    '如果K(变量)小于3
        If k < 3 Then
    '弹出提示“你还有”加上3-变量(K)加上“次机会”
            MsgBox "你还有" & 3 - k & "次机会"
    '别的
        Else
    '退出程序
            End
    '退出如果
        End If
    '退出如果
    End If
       
    '退出按扭被单击程序集   
    End Sub

    ’你可以把密码和用户名保存到一个文本文件或数据库或注册表等任意位置,然后检测用户名密码是否正确。

    '建议你先多看看教程,资料。

    '祝你学习愉快,我基本不用VB了,他做的组件控件对其他程序不通用,还是VC好/:12
    PYG19周年生日快乐!

    该用户从未签到

    发表于 2007-4-29 12:39:47 | 显示全部楼层
    这个坛子的速度太慢呀/:L

    [ 本帖最后由 老顽童 于 2007-4-29 13:17 编辑 ]
    PYG19周年生日快乐!
    您需要登录后才可以回帖 登录 | 加入我们

    本版积分规则

    快速回复 返回顶部 返回列表