ljsq.net
当前位置:首页 >> vB登陆界面设计代码 有姓名文本框和密码文本框,有... >>

vB登陆界面设计代码 有姓名文本框和密码文本框,有...

if option1.value=true then '选择教师登陆 if text1.text="yjy" and text2.text="123" then msgbox "登陆成功" end ifelseif option2.value=true then if text1.text="xs" and text2.text="123" then msgbox "登陆成功" end ifelseif option3.v...

Private Sub Form_Load()txtPassword = ""txtUsername = ""txtPassword.MaxLength = 6End SubPrivate Sub Label1_Click()If txtUsername "txtUsername" Then MsgBox "请输入正确用户名", vbInformation, "Err" txtUsername = ""Else If txtPass...

1、选中要设置的控件 2、按F4调出它的属性框 3、在其属性里面有个“PasswordChar" 4、将其后面空中输入"*"就可以了。

在VB程序运行时可将文本框中输入的内容作prompt参数赋值给MsgBox函数。 MsgBox 函数 在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。 代码实例: Private Sub Command1_Click() Dim Title, Response Title

Private Sub Command1_Click() Dim T As Object Static Num As Long Set T = Me.Controls.Add("VB.textbox", "Text" & Num, Me) '第一个参数是要添加的控件,第二个是控件名 T.Text = "Text" & Num '指定控件文本内容 T.Left = 122 + Num * 200 ...

1L一堆废话 问题出在If (txtName.Text UseName) Then If (txtMode.Text UseMode) Then If (Trim(txtName.Text) = UseName And Trim(txtMode.Text) = UseMode) Then上 你好好看看常量名和判断时的常量名 一个是User一个是Use 当然不能正常使用了 ...

这个简单,先在窗体内设置一个text1和一个label1,在来一个command1,代码如下: Private Sub Command1_Click()'单击按钮1If Text1.Text "1234567" Then Text1.Text = ""',如果文本不等于"1234567"那么 Text1.SetFocus'聚焦文本窗口 Command1.E...

'2个窗体(form1,form2) 2个textbox(text1,text2) 1个commandbutton (command1) 'text1 为账号框,text2为密码框,command1为登录按钮 Dim cCount As Long Private Sub Command1_Click() If LCase(Text1.Text) = "abc" And Text2.Text = "123" Then...

vb6.0中将文本框隐藏只需在设计中将文本框的Visible 属性设置为False,或在运行代码中赋值为False。 具体运行代码实例: Private Sub Command1_Click() Text1.Visible = FalseEnd SubVisible 属性,返回或设置一指示对象为可见或隐藏的值。 说明...

以下假定为 显示剩余次数的标签控件名称为lblPrompt 登录、清除、退出按钮的名称分别为cmdLogin cmdClear cmdExit 欢迎界面的窗体名称为WelcomeForm 初始密码为"admin" Private leftTime As Integer '剩余次数 Private password As String '密码...

网站首页 | 网站地图
All rights reserved Powered by www.ljsq.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com