vb登录界面编写_vb登录界面代码-程序员宅基地

VB 登录界面编写

登录界面展示（此篇只有登录代码）

登录代码
Private Sub Command1_Click() 'command1是登录的按钮
Dim no $, n p$ , i%, j%, b%, p%
b = 0
p = 0
If Text1.text = “” Then 'text1是用户名的label
MsgBox (“请先输入用户名！”)
Text1.SetFocus
End If
If Text2.text = “” And Text1.text <> “” Then 'text2是密码的label
MsgBox (“请输入密码！”)
Text2.SetFocus
End If
If Text1.text <> “” And Text2.text <> “” Then
b = 1
End If

If b = 1 Then
Open “” & App.Path & “\save.txt” For Input As #1 '打开存储用户名及密码的文件夹并使用相对路径 app.path
j = 0
Do While Not EOF(1)
Input #1, no
If Text1.text = no Then
j = 1
Exit Do
End If
Loop
If j = 0 Then
MsgBox (“您还不是已注册用户，请先注册！”)
Text1.text = “”
Text2.text = “”
Else
p = 1
End If
Close #1
Else
End If

If p = 1 Then
Open “” & App.Path & “\pipei.txt” For Input As #1
i = 0
Do While Not EOF(1)
Input #1, np
If Text1.text + Text2.text = np Then
i = 1
Form2.Show
Unload Me
Exit Do
End If
Loop
If i = 0 Then
MsgBox (“密码错误！”)
Text2.text = “”
End If
Close #1
Else
End If
End Sub

Private Sub Command2_Click()
Label5.Caption = “”
Form3.Show
Unload Me
End Sub

Private Sub Form_Load() //设置各个label、command、text的大小
Label1.Left = (Me.ScaleWidth - Label1.Width) \ 2
Label2.Left = (Me.ScaleWidth - 0.8 * Label3.Width) \ 2
Label3.Left = (Me.ScaleWidth - Label3.Width) \ 2
Command1.Left = (Me.ScaleWidth - 2.5 * Command1.Width) \ 2
Command2.Left = (Me.ScaleWidth + 0.5 * Command2.Width) \ 2
Text1.Left = (Me.ScaleWidth - Text2.Width + 500) \ 2
Label5.Left = Text1.Left + 400
Label4.Left = Label2.Left
Text2.Left = Text1.Left
Label7.Left = (Me.ScaleWidth - Label1.Width) \ 2
End Sub

Sub Text1_KeyPress(KeyAscii As Integer)
Dim f%
f = 0
If KeyAscii = 13 Then
If IsNumeric(Text1) Then
Text1.text = “”
MsgBox (“用户名中不得包含数字！”)
Text1.SetFocus
f = 1
End If
If f = 0 And Text1.text = “” Then
Text1.text = “”
MsgBox (“请输入用户名！”)
End If
If f = 0 And Text1.text <> “” Then
Text2.SetFocus
End If
End If
End Sub
Private Sub Text1_LostFocus()
If IsNumeric(Text1) Then
Text1.text = “”
MsgBox (“用户名中不得包含数字！”)
Text2.SetFocus
End If
End Sub

Private Sub Text2_GotFocus()
If Text1.text = “” Then
Text1.text = “”
MsgBox (“请输入用户名！”)
End If
Label5.Caption = “密码的长度不得超过8位！”
Text2.Locked = False
Text2.PasswordChar = “*”
End Sub
Private Sub Text2_LostFocus()
If Text1.text = “” Then
MsgBox (“密码错误！”)
Text2.text = “”
End If
End Sub

Private Sub Timer1_Timer() //界面展示上有个闹钟按键可以显示当前时间
Timer1.Interval = 1000

**label7.Caption =now（）**

End Sub

本文链接：https://blog.csdn.net/li_641233642/article/details/90141838

原作者删帖不实内容删帖广告或垃圾文章投诉

智能推荐

python怎么将两列数据比大小_python – 使用大pandas比较两列-程序员宅基地

文章浏览阅读6.2k次。您可以使用np.where.如果cond是一个布尔数组,并且A和B是数组,那么C = np.where(cond, A, B)定义C等于A,其中cond为True,而B为cond,则为False.import numpy as npimport pandas as pda = [['10', '1.2', '4.2'], ['15', '70', '0.03'], ['8', '5', '0']]..._python dataframe 两列值比较大小

为什么短除法能求最小公倍数？-程序员宅基地

文章浏览阅读1.7k次。最小公倍数的定义是：几个数公有的倍数，叫做这几个数的公倍数；其中最小的一个，叫做这几个数的最小公倍数。求几个数最小公倍数的方法，可以用分别分解质因数的方法，先找出几个数公有的质因数，再找出各自独有的质因数，把这些质因数连乘起来，最后得出的积就是这几个数的最小公倍数。例如：求12和20的最小公倍数。　　12和20..._为什么短除法可以求出最小公倍数

北京市2021年高考一摸成绩查询,北京2021高考一模成绩公布-程序员宅基地

文章浏览阅读84次。记笔记的误区误区1：笔记就是抄板书记笔记不是照着老师的板书，一字不漏的抄下来，而是知识点的浓缩和精华，不然直接看书更加简误区2：笔记从不回顾我们每个人都会做笔记，但是大家却很容易出现一个现象：我们总是走了太远，而忘记当初为何出发!什么意思?就是做笔记是为了以后回顾的呀，可是你们自己抿心自问，自己做的笔记自己翻过几遍没~都成过期杂志丢一边了······误区3：笔记不做更新笔记应该是在不断的复习和巩固..._北京高三第一次模考成绩什么时候出来

【深度学习系列4】深度学习及并行化实现概述_2012年,hinton又带领学生在目前最大的图像数据库imagenet上-程序员宅基地

文章浏览阅读841次。【深度学习系列4】深度学习及并行化实现概述mary 发表于 2014.8.18 9710浏览 8讨论摘要：深度学习可以完成需要高度抽象特征的人工智能任务，如语音识别、图像识别和检索、自然语言理解等。深层模型是包含多个隐藏层的人工神经网络，多层非线性结构使其具备强大的特征表达能力和对复杂任务建模能力。训练深层模型是长期以来的难题_2012年,hinton又带领学生在目前最大的图像数据库imagenet上

kspider网络信息资源采集系统-程序员宅基地

文章浏览阅读499次。KSpider网络信息资源采集系统清华同方KSpider网络信息资源采集系统是一套功能强大的网络信息资源开发利用与整合系统，可用于定制跟踪和监控互联网实时信息，建立可再利用的信息服务系统。KSpider能够从各种网络信息源，包括网页、BLOG、论坛等采集用户感兴趣的特定信息，经自动分类处理后,以多种形式提供给最终用户使用。KSpider能够快速及时地捕获用户所需的热点新闻、市..._kspider

matlab中划出实线框,图纸上限定绘图区域的线框，必须用粗实线画出图框，格式分为留装订边和不留装订边。...-程序员宅基地

文章浏览阅读640次。摘要：百合皂苷为抗抑郁的主要有效成分，图纸图区与卷丹百合、百合比较，细叶总皂苷抗抑郁的作用更明显。定绘订边订边三维曲线绘图命令为：将同一草图内多个不相交的轮廓进行不同方向不同长度的拉伸，线框须用线画可用基于草图的特征工具条中的( )命令。...百合皂苷为抗抑郁的主要有效成分，图纸图区与卷丹百合、百合比较，细叶总皂苷抗抑郁的作用更明显。上限人类历史上第一个电动机专利获得者是( )。定绘订边订边三维曲..._图框线分装订和不装订

随便推点

2023全球智能汽车AI挑战赛——赛道二：智能驾驶汽车虚拟仿真视频数据理解赛道_2023全球智能汽车ai挑战赛数据集-程序员宅基地

文章浏览阅读333次。使用CLIP模型，原理是图文对比预训练。_2023全球智能汽车ai挑战赛数据集

Python爬虫山东济南景点数据可视化和景点推荐系统开题报告_济南为什么python这么少-程序员宅基地

文章浏览阅读2.3k次，点赞22次，收藏21次。Python爬虫山东济南景点数据可视化和景点推荐系统开题报告毕设作品毕业设计成品，，从而起到传承和弘扬地域文化的作用。提高旅游管理和服务水平：通过数据分析和挖掘，可以为旅游管理部门和企业提供更加准确和全面的数据支持，帮助他们更好地了解市场和游客需求，提高管理和服务水平。提升旅游体验：通过数据可视化和推荐系统，游客可以更加直观地了解济南的旅游资源分布和特色，从而制定出更加合理和个性化的旅游计划，提升旅游体验。越来越多的人选择外出旅游，体验不同的文化和风景。_济南为什么python这么少

Error：Given input size: (256x4x2). Calculated output size: (256x1x0). Output size is too small_given input size: (64x256x256x1). calculated outpu-程序员宅基地

文章浏览阅读1.2w次。Traceback (most recent call last): File "cls_set.py", line 62, in <module> main() File "cls_set.py", line 50, in main output = model(input_var) File "/usr/local/lib64/python3.6/site-packages/torch/nn/modules/module.py", line 532, in __._given input size: (64x256x256x1). calculated output size: (64x128x128x0). ou

联想昭阳k43c-80 BIOS里UEFI是灰色项，改不了为legacy_昭阳k43c-80硬盘模式-程序员宅基地

文章浏览阅读9.3k次，点赞2次，收藏6次。机子：联想昭阳k43c-80要安装win7，bios里面UEFI选项是灰色的，EXIT项里面把OS那项disable掉也没用解决方法：按f2进入BIOS，在第二项configuration - storage，把硬盘模式从RST mode改为ACHI mode即可，改为按F10保存重启进BIOS。..._昭阳k43c-80硬盘模式

Python 单元测试_python单元测试-程序员宅基地

文章浏览阅读2.8k次。编写函数或类时，可以为其编写测试单元，通过测试，可以确定代码面对各种输入都能按照要求那样工作，在添加新代码时也可以对其进行测试，确保不会破坏既有程序。_python单元测试

使用pip install时报错TypeError: unsupported operand type(s) for -=: ‘Retry‘ and ‘int‘的解决办法_unsupported operand type(s) for -=: 'retry' and 'i-程序员宅基地

文章浏览阅读1.6w次。使用pip install时出现报错TypeError: unsupported operand type(s) for -=: ‘Retry’ and ‘int’的解决办法今天使用pip install 安装python库的时候出现了这样的报错root@Conners:~# pip install flask_adminCollecting flask_adminExceptio..._unsupported operand type(s) for -=: 'retry' and 'int