VB窗体控件设计登录注册页面
 
界面如下
 
 
代码如下
 
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub


'登录
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

    Dim myconnect As New SqlClient.SqlConnection
    Dim mycommand As New SqlClient.SqlCommand
    Dim myread As SqlClient.SqlDataReader = Nothing
    Dim mytable As New DataTable()
    myconnect.ConnectionString = "server=127.0.0.1;database=master;integrated security=true;uid=chk;pwd=chk123456"
    myconnect.Open()        '打开数据库
    '设置命令属性
    mycommand.Connection = myconnect
    mycommand.CommandType = CommandType.Text

    Dim name As String
    Dim password As String
    name = Me.TextBox1.Text
    password = Me.TextBox2.Text

    mycommand.CommandText = "select * from test w

    上一篇博客已经介绍了WebService的简单实例，现在讲述如何利用WebService实现简单的注册登录
 
    首先在数据库中创建一个Users表，我设置为主键自增：
 
 
    其实注册登录就只是对表进行增加查找，于是在此过程中肯定要连接数据库，在WebService中添加如下代码：
 
 '连接数据库
    Public conn As New SqlConnection("server=CNALCLUOD001242\SQLSERVER;database=RegisterAndLogin;user ID=sa;password=5201314.qaz")

    <WebMethod(Description:="用户注册方法")> _
    Public Function UserAdd(ByVal userName As String, ByVal password As String) As Integer
        Dim a As Integer = 0
        Try
            conn.Open()  '打开数据库连接
            Dim sql As String = "insert into Users(userName,password) values(@userName,@password)"
            Dim cmd As New SqlCommand(sql, conn)  'SqlCommand方法是构造函数，参数为一个执行的SQL语句，一个为连接对象
            cmd.CommandText = sql  '获取要执行的T-sql语句
            cmd.Parameters.Add(New SqlParameter("@userName", userName))    '实体的UserName参数
            cmd.Parameters.Add(New SqlParameter("@password", password))
            If cmd.ExecuteNonQuery() > 0 Then a = 1
        Catch ex As Exception

        Finally
            conn.Close()
        End Try
        Return a
    End Function

    <WebMethod(Description:="用户登录方法")> _
    Public Function UserLogin(ByVal userName As String, ByVal password As String) As Integer
        Dim a As Integer = 0
        Try
            conn.Open()  '打开数据库连接
            Dim sql As String = "select * from Users where userName=@userName and password=@password"
            Dim cmd As New SqlCommand(sql, conn)  'SqlCommand方法是构造函数，参数为一个执行的SQL语句，一个为连接对象
            cmd.CommandText = sql  '获取要执行的T-sql语句
            cmd.Parameters.Add(New SqlParameter("@userName", userName))    '实体的UserName参数
            cmd.Parameters.Add(New SqlParameter("@password", password))
            If cmd.ExecuteReader.Read Then a = 1
        Catch ex As Exception

        Finally
            conn.Close()
        End Try
        Return a
    End Function
 
    之后进行运行，在函数中写的description则是对该函数功能的解释说明：
 
 
    然后我们更改上节创建的windows Forms 项目的窗体名为login，当然也可以自己新建一个工程，再右键点击工程名->add->new item，找到Windows Forms，命有意义的名，依次再增加两个窗口：
 
 
    这样该工程下就有三个窗口，分别是login，register和users,，login为登录窗口，register为注册窗口，users为用户登录成功后进入的窗口：
 
 
   此时再依次对三个窗口按照需要进行页面设置，如下所示：
 
              
 
    双击login界面的注册按钮，编写以下代码，表示点击该按钮时register窗体打开：
 
Public Class login

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        register.Show()
    End Sub
End Class
 
    双击register界面的确定按钮，编写代码，实现注册的功能，其思想很简单，获取窗口输入的用户名和密码，通过调用WebService提供的UserAdd方法，判断返回值是什么，如果是1则注册成功否则注册失败。
 
    但是在编写过程中遇到如下问题，那就是根本找不到UserAdd方法，明明自己写的WebService成功运行且有该函数，这是怎么回事呢？
 
 
    原来是因为我们没有更新WebService，右键点击WebService的命名空间，选择update....，当然也可以像之前那样先把引用的WebService删除再重新引用，不过那样太麻烦了：
 
 
    此时就有UserAdd方法了：
 
 
   register界面“确定”按钮完整代码：
 
Public Class register

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '获取输入的用户名
        Dim userName As String = TextBox1.Text.Trim
        '获取输入的密码
        Dim password As String = TextBox2.Text.Trim
        '获取引用
        Dim service As New ServiceReference1.WebService1SoapClient
        '接收返回值
        Dim result As Integer = 0
        Try
            '调用WebService提供的注册功能函数
            result = service.UserAdd(userName, password)
            If result = 0 Then
                MessageBox.Show("注册失败！")
            End If
            If result = 1 Then
                MessageBox.Show("注册成功！自动返回登录界面！")
                '关闭当前register窗口
                Me.Close()
            End If
        Catch ex As Exception
            '管他出现啥错误都说注册失败
            MessageBox.Show("注册失败！")
        End Try
    End Sub
End Class
 
    登录的代码逻辑和注册相同，获取用户名和密码，调用WebService提供的登录函数，判断返回值进行相应操作，其代码如下：
 
 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '获取输入的用户名
        Dim userName As String = TextBox1.Text.Trim
        '获取输入的密码
        Dim password As String = TextBox2.Text.Trim
        '获取引用
        Dim service As New ServiceReference1.WebService1SoapClient
        '接收返回值
        Dim result As Integer = 0
        Try
            '调用WebService提供的登录功能函数
            result = service.UserAdd(userName, password)
            If result = 0 Then
                MessageBox.Show("登录失败！")
            End If
            If result = 1 Then
                MessageBox.Show("登录成功！自动进入用户界面！")
                '隐藏当前login窗口
                Me.Hide()
                '打开用户界面窗口
                users.Show()
            End If
        Catch ex As Exception
            '管他出现啥错误都说登录失败
            MessageBox.Show("登录失败！")
        End Try
    End Sub
 
实现结果如下所示：
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 
 

  

   原文地址：使用VB编写QQ2012登陆界面以及简单的判断功能 – 代码练习
   作者：沈晨
  
  

   
  使用VB编写QQ2012登陆界面以及简单的判断功能 – 代码练习 
 
   
 作者：沈晨         编写用时：2个半小时
 
   
 
 
   
 
 
   
Const TS As String = "登录提示："
 
   
 
 
   
    '当输入帐号时
 
   
Private Sub Combo1_Change()
 
   
 
 
   
    '向对应的帐号添加对应的图片
 
   
    If Combo1.Text = "1161738714" Then
 
   
        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011161738714.picture.jpg")
 
   
    ElseIf Combo1.Text = "1179845640" Then
 
   
        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011179845640.picture.jpg")
 
   
    ElseIf Combo1.Text = "1079788293" Then
 
   
        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011079788293.picture.jpg")
 
   
    Else
 
   
        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001QQ截图20120316142952.jpg")
 
   
    End If
 
   
   
 
   
End Sub
 
   
 
 
   
    '当点击下拉列表框选择帐号时
 
   
Private Sub Combo1_Click()
 
   
 
 
   
    '向对应的帐号添加对应的图片
 
   
    If Combo1.Text = "1161738714" Then
 
   
        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011161738714.picture.jpg")
 
   
    ElseIf Combo1.Text = "1179845640" Then
 
   
        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011179845640.picture.jpg")
 
   
    ElseIf Combo1.Text = "1079788293" Then
 
   
        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011079788293.picture.jpg")
 
   
    Else
 
   
        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001QQ截图20120316142952.jpg")
 
   
    End If
 
   
   
 
   
End Sub
 
   
 
 
   
Private Sub Form_Load()
 
   
    '改变指定  组件  字体的颜色
 
   
     Label3.ForeColor = RGB(Int(Rnd() * 24), Int(Rnd() * 145), Int(Rnd() * 255))
 
   
     Label4.ForeColor = RGB(Int(Rnd() * 24), Int(Rnd() * 145), Int(Rnd() * 255))
 
   
   
 
   
    '向  组件  添加内容
 
   
    Combo1.AddItem "1161738714"
 
   
    Combo1.AddItem "1179845640"
 
   
    Combo1.AddItem "1079788293"
 
   
       
 
   
    '向  组件  添加内容
 
   
    List1.AddItem "在线"
 
   
    List1.AddItem "隐身"
 
   
    List1.AddItem "离开"
 
   
    List1.AddItem "忙碌"
 
   
   
 
   
    '向  组件  添加内容
 
   
    Option1.Caption = "记住密码"
 
   
    Option2.Caption = "自动登录"
 
   
   
 
   
    '向  组件  添加内容
 
   
    Command2.Caption = "网络设置"
 
   
   
 
   
End Sub
 
   
 
 
   
    '当鼠标移到  登录  图片外  （组件 Imager3  前）改变图片
 
   
Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   
    Image4.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001登录.jpg")
 
   
    '改变字体  -->   不显示字体下划线
 
   
    Label3.FontUnderline = False
 
   
    Label4.FontUnderline = False
 
   
End Sub
 
   
 
 
   
    '当鼠标按下  登录  图片时  改变图片
 
   
Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   
    Image4.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001登录2.jpg")
 
   
End Sub
 
   
 
 
   
    '当鼠标移到  登录  图片内  改变图片
 
   
Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   
    '当鼠标移到可链接  字体上方时  改变鼠标图案为  手指状
 
   
    Image4.MousePointer = 99
 
   
    Image4.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001登录1.jpg")
 
   
End Sub
 
   
 
 
   
    '当鼠标抬起  登录  图片时  改变图片
 
   
Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   
    Image4.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001登录.jpg")
 
   
End Sub
 
   
 
 
   
Private Sub Image4_Click()
 
   
 
 
   
    '判断  帐号  是否为空
 
   
    If Combo1.Text = "" Then
 
   
        MsgBox "请您输入帐号后再登录！", , TS
 
   
    '判断  密码  是否为空
 
   
    ElseIf Text1.Text = "" Then
 
   
        MsgBox "请您输入密码后再登录！", , TS
 
   
    End If
 
   
   
 
   
    '判断输入的  帐号密码  是否正确
 
   
    If Combo1.Text = "1161738714" Then
 
   
           
 
   
        If Text1.Text = "86573178." Then
 
   
            MsgBox "登陆成功！", , TS
 
   
            MsgBox "此软件为测试软件，不含联网登录功能！", , TS
 
   
            Text1.Text = ""                     '文本框内容改为空
 
   
 
 
   
        ElseIf Text1.Text <> "" Then
 
   
            MsgBox "密码输入错误！", , TS
 
   
            Text1.Text = ""                     '文本框内容改为空
 
   
        End If
 
   
       
 
   
    ElseIf Combo1.Text = "1179845640" Then
 
   
   
 
   
        If Text1.Text = "0000" Then
 
   
            MsgBox "登陆成功！", , TS
 
   
            MsgBox "此软件为测试软件，不含联网登录功能！", , TS
 
   
            Text1.Text = ""                     '文本框内容改为空
 
   
        ElseIf Text1.Text <> "" Then
 
   
            MsgBox "密码输入错误！", , TS
 
   
            Text1.Text = ""                     '文本框内容改为空
 
   
        End If
 
   
       
 
   
    ElseIf Combo1.Text = "1079788293" Then
 
   
   
 
   
        If Text1.Text = "1111" Then
 
   
            MsgBox "登陆成功！", , TS
 
   
            MsgBox "此软件为测试软件，不含联网登录功能！", , TS
 
   
            Text1.Text = ""                     '文本框内容改为空
 
   
        ElseIf Text1.Text <> "" Then
 
   
            MsgBox "密码输入错误！", , TS
 
   
            Text1.Text = ""                     '文本框内容改为空
 
   
        End If
 
   
   
 
   
    ElseIf Text1.Text <> "" And Combo1.Text <> "1161738714" And Combo1.Text <> "1179845640" And Combo1.Text <> "1079788293" Then
 
   
        MsgBox "帐号不存在，请重新输入！", , TS
 
   
        Combo1.Text = ""                    '内容改为空
 
   
        Text1.Text = ""                     '文本框内容改为空
 
   
       
 
   
    End If
 
   
   
 
   
End Sub
 
   
 
 
   
Private Sub Command2_Click()
 
   
    '消息框提示
 
   
    MsgBox "此功能尚未开启，敬请期待！", , "消息提示："
 
   
End Sub
 
   
 
 
   
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   
    '当鼠标移到可链接  字体上方时  改变鼠标图案为  手指状
 
   
    Label3.MousePointer = 99
 
   
    '当鼠标移到 Label3  组件内时，字体添加下划线
 
   
    Label3.FontUnderline = True
 
   
End Sub
 
   
 
 
   
    '点击  组件时转到指定的网站
 
   
Private Sub Label3_Click()
 
   
    Shell "explorer.exe ""http://zc.qq.com/chs/index.html?from=client&ptlang=2052&ADUIN=0&ADSESSION=0&ADTAG=CLIENT.QQ.3847_NewAccount_Btn.0"""
 
   
End Sub
 
   
 
 
   
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
   
    '当鼠标移到可链接  字体上方时  改变鼠标图案为  手指状
 
   
    Label4.MousePointer = 99
 
   
    '当鼠标移到 Label4  组件内时，字体添加下划线
 
   
    Label4.FontUnderline = True
 
   
End Sub
 
   
 
 
   
    '点击  组件时转到指定的网站
 
   
Private Sub Label4_Click()
 
   
    Shell "explorer.exe ""http://aq.qq.com/cn2/findpsw/findpsw_index"""
 
   
End Sub
 
   
  
 
   
 
 
   
 
 
   
 主要的功能截图：
 
   
 
 
   
  程序运行界面：
 
   
  
 
   
  
 
   
  
 
   
  判断帐户并改变图案
 
   
  
 
   
  

 
   
  判断帐户为空时：
 
   
  
 
   
  

 
   
  判断帐号不存在时：
 
   
  
 
   
  

 
   
  判断密码输入错误时：
 
   
  
 
   
  

 
   
  判断密码为空时：
 
   
  
 
   
  

 
   
  当点击网络设置时：
 
   
  
 
   
  
 
   
 
 
   
 
 
   
  其它的功能就不再演示了，自己可以试试。比如：1、点击“注册帐号”时，自动打开IE并链接到相应的网站！2、密码输入错误时，自动清空密码框中的内容，等等！
 
   
  
 
   
  
 
   
  
 
   
  
 
   
  
 
   
  
 
   
  
  
 
 

Vb.net WinForm的小伙伴在创建登录界面时有个疑问，为什么我关闭登录窗体，然后再打开业务窗体时，程序自动退出了呢。
 我简单讲一下，大家知道，WinFrom程序有一个 Sub Main入口，C#会在初始化项目时自动创建,但是为什么VB.net不创建呢。
 这是因为默认项目中，VB.Net的编译器为你自动创建了入口，你不需要用代码实现。
 那我要怎样才能实现关闭登录窗体后进入业务窗体呢，有以下两种方式：
 
方式一：打开My Project-应用程序，将关键模式修改为“当最后一个窗体关闭时”。
 
方式二：新建模块写入以下代码(注意打开窗体不是用的Show,用的是Application.Run)
 
    Public Sub Main()
        Application.EnableVisualStyles()
        Application.SetCompatibleTextRenderingDefault(False)
        Dim NF As New Form1()
        Application.Run(NF)
        If NF.登录成功 Then
            Application.Run(New Form2())
        End If
    End Sub
 
打开My Project-应用程序，去掉启用应用程序框架勾选,启动对象选择Sub Main.。
 
 
 
 
Application.Run：在当前线程上开始运行标准应用程序消息循环，并使指定窗体可见。以该模式打开窗体后,该线程窗体将持续响应消息循环，该线程只会随着窗体的关闭而关闭。一个线程只有存在一个消息循环。后面我再开专题为大家演示怎么在分线程下面创建属于自己线程的UI窗体。
 分线程窗体的好处：小伙伴们可以在不启用分线程的方式下，主线程计算长耗时算法时卡死后任然可以显示进度条。 ↩︎