vb界面设计(续)

#界面设计注册部分
点击注册后会显示
在这里插入图片描述
输入完成后点击注册按钮则会显示注册成功字样

代码如下
Private Sub Text2_GotFocus() 'getfocus的用法不会的可以查百度
Label7.Caption = “密码的长度不得超过8位!”
Text2.Locked = False
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
If Text1.text <> “” Then
Label7.Caption = “密码的长度不得超过8位!”
End If
End If
End Sub
Private Sub Text1_LostFocus()
If IsNumeric(Text1) Then
Text1.text = “”
MsgBox (“姓名中不得包含数字!”)
Text1.SetFocus
End If
If Text1.text = “” Then
Text1.text = “”
MsgBox (“请输入姓名!”)
Text1.SetFocus
End If
If Text1.text <> “” Then
Label7.Caption = “密码的长度不得超过8位!”
End If
End Sub
Sub Text2_KeyPress(KeyAscii As Integer)
Dim f%
f = 0
If KeyAscii = 13 Then
If Len(Text2.text) > 8 Then
MsgBox (“密码长度不得超过8位!”)
Text2.text = “”
f = 1
Text2.SetFocus
Label7.Caption = “密码的长度不得超过8位!”
End If
If f = 0 And Text2.text = “” And Text1.text <> “” Then
MsgBox (“请输入密码!”)
Text2.SetFocus
End If
If f = 0 And Text2.text <> “” Then
Text3.SetFocus
End If
End If
Label7.Caption = “”
End Sub
Private Sub Text2_LostFocus()
Dim f%
f = 0
If Len(Text2.text) > 8 Then
MsgBox (“密码长度不得超过8位!”)
Text2.text = “”
f = 1
Text2.SetFocus
End If
If Text2.text = “” And Text1.text <> “” And f = 0 Then
MsgBox (“请输入密码!”)
Text2.SetFocus
End If
Label7.Caption = “”
End Sub
Sub Text3_KeyPress(KeyAscii As Integer)
Dim f%
f = 0
If KeyAscii = 13 Then
If Text3.text <> Text2.text And Text2.text <> “” And Text3.text <> “” Then
MsgBox (“第二次输入的密码不正确!”)
Text3.text = “”
f = 1
End If
If f = 0 And Text3.text = “” And Text2.text <> “” And Text1.text <> “” Then
MsgBox (“请再次输入密码!”)
End If
If f = 0 And Text3.text <> “” Then
Text4.SetFocus
End If
End If
End Sub
Private Sub Text3_LostFocus()
Dim f%
f = 0
If Text3.text <> Text2.text And Text2.text <> “” And Text3.text <> “” Then
MsgBox (“第二次输入的密码不正确!”)
Text3.text = “”
f = 1
End If
If Text3.text = “” And Text1.text <> “” And Text2.text <> “” And f = 0 Then
Text3.text = “”
MsgBox (“请再次输入密码!”)
End If
End Sub
Sub Text4_KeyPress(KeyAscii As Integer)
Dim f%
f = 0
If KeyAscii = 13 Then
If Text4.text = “” And Text1.text <> “” And Text2.text <> “” And Text3.text <> “” Then
MsgBox (“请输入手机号!”)
f = 1
Text4.SetFocus
End If
If f = 0 And Text1.text <> “” And Text2.text <> “” And Text3.text <> “” Then
Text5.SetFocus
End If
End If
End Sub
Private Sub Text4_LostFocus()
If Text4.text = “” And Text1.text <> “” And Text2.text <> “” And Text3.text <> “” Then
MsgBox (“请输入手机号!”)
Text4.text = “”
Text4.SetFocus
End If
End Sub
'Sub Text5_KeyPress(KeyAscii As Integer)
’ Dim f%
’ f = 0
’ If KeyAscii = 13 Then
’ If Text5.Text = “” And Text1.Text <> “” And Text2.Text <> “” And Text3.Text <> “” And Text4.Text <> “” Then
’ MsgBox (“请输入邮箱!”)
’ f = 1
’ Text5.SetFocus
’ End If
’ If f = 0 And Text1.Text <> “” And Text2.Text <> “” And Text3.Text <> “” And Text4.Text <> “” Then
’ Command1.SetFocus
’ End If
’ End If
'End Sub
Private Sub Timer1_Timer()
Label8.Caption = Now()
End Sub

相关推荐
这是一个VB6的IDE插件(Addin),使用VB6的IDE直接设计Python的界面。 Python和VB都是能让人快乐的编程语言,我使用了Python之后,很多自己使用的工具都使用Python开发或改写了,因为最终实现的Python代码实在太短了(相比VB),有时候Python一行代码就可以实现VB一个函数的功能。 Python就是这种让人越用越开心的语言。 不过说实在,使用Python开发GUI界面还是麻烦了一些了,自带的标准库Tkinter使用起来非常简单,不过对于习惯了VB拖放控件完成界面设计的同学来说,还是不够人性化。TK也有一个工具叫GUI Builder,不过它使用Layout布局,不够直观,而且界面简陋,用起来也不爽。 至于PyQt/wxPython等GUI库,尽管有可视化设计工具,但总感觉做一般的轻量级应用是杀鸡用牛刀,学习起来也比较复杂,而且不够环保,不够低碳,要带一个很大的库,需要目标机器上夜同样安装了PyQt/wxPython,做不了绿色软件。 所以最终的结果是我更喜欢Tkinter,用起来很简单,绿色环保,真正的跨平台,一个py文件到处运行(担心泄密就编译成pyc)。 很多人都认为TK的界面不够美观,不过导入Python自带的标准TTK主题库,界面非常Native,不输PyQt/wxPython。 此Addin默认启用TTK支持,也可选择关闭。 总而言之,轻量级GUI,TK+TTK足够。 使用此Addin,你可以不用写一句代码就可以生成一个完整可运行的Python的GUI界面,支持python 2.X和3.X。 安装方法:将压缩包解压到你希望的目录,然后执行Setup.exe完成注册插件过程,打开VB6就可以用了。 在VB窗体上设计完成界面后(你可以大胆的设置各控件的属性,Addin尽量将其翻译为tkinter的控件属性),点工具栏上的VisualTkinter(图标为一片橙红色羽毛),再点'生成代码'按钮,即可生成可运行的Python代码,可以拷贝至剪贴板或保存至文件。 一般情况下你可以不用再改变tkinter的控件属性,但是如果你熟悉tkinter,需要更多的控制,可以一一核对各属性,并且修改,再生成代码。 除了用来设计界面外,此ADDIN内置的各控件属性列表可以做为编程参考,比较完整,除了极少数我认为大多数人都不用的属性外,属性定义基本上是我从官方的tkinter文档直接翻译的。 如果还没有VB6,网上找一个VB6精简版即可(建议使用12M的版本,6M的版本也可以使用,不过工具栏图标无法显示,可以通过菜单执行此插件)。 经过网友测试,完美支持WinXP,Windows 7, Windows 8。
一个不错的Matlab的gui界面设计实例 精美日历 function CalendarTable; % calendar 日历 % Example: % CalendarTable; S=datestr(now); [y,m,d]=datevec(S); % d is day % m is month % y is year DD={'Sun','Mon','Tue','Wed','Thu','Fri','Sat'}; close all figure; for k=1:7; uicontrol(gcf,'style','text',... 'unit','normalized','position',[0.02+k*0.1,0.55,0.08,0.06],... 'BackgroundColor',0.6*[1,1,1],'ForegroundColor','b',... 'String',DD(k),'fontsize',16,'fontname','times new roman'); end h=1; ss='b'; qq=eomday(y,m); for k=1:qq; n=datenum(y,m,k); [da,w] = weekday(n); if k==d; ss='r'; end uicontrol(gcf,'style','push',... 'unit','normalized','position',[0.02+da*0.1,0.55-h*0.08,0.08,0.06],... 'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,... 'String',num2str(k)); ss='b'; if da==7; h=h+1; end end uicontrol(gcf,'style','push',... 'unit','normalized','position',[0.6,0.66,0.12,0.08],... 'BackgroundColor',0.6*[1,1,1],'ForegroundColor',ss,... 'String','clock','fontsize',18,'fontname','times new roman'); Tq=uicontrol(gcf,'style','push',... 'unit','normalized','position',[0.74,0.66,0.17,0.08],... 'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],... 'fontsize',18,'fontname','times new roman'); sq='The calendar'; uicontrol(gcf,'style','push',... 'unit','normalized','position',[0.14,0.86,0.37,0.08],... 'BackgroundColor',0.6*[1,1,1],'ForegroundColor',[0.1,0.9,0.9],... 'fontsize',18,'fontname','times new roman','string',sq); try while 1 set(Tq,'String',datestr(now,13)); pause(1); end end
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页