精华内容
下载资源
问答
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
  • VB窗体控件设计登录注册页面

    千次阅读 2020-08-16 13:36:41
    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 ...

    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
    展开全文
  • 内容索引:VB源码,界面编程,热键 Vb为窗体定制热键的源代码实例,定制成功后,如果要显示该窗体,只需按Ctl+Alt+A 即可,就像QQ的聊天窗口一样,一般是按Ctl+Z键即显示了,有些人还是比较喜欢热键的,究其本例的实现...
  • 上一篇博客已经介绍了WebService的简单实例,现在... 其实注册登录就只是对表进行增加查找,于是在此过程中肯定要连接数据库,在WebService中添加如下代码: '连接数据库 Public conn As New SqlConnection("...

        上一篇博客已经介绍了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 = &...

    使用VB编写QQ2012登陆界面以及简单的判断功能 – 代码练习

    作者:沈晨        编写用时:2个半小时

     

     

    Const TS As String = "登录提示:"

     

        '当输入帐号时

    Private Sub Combo1_Change()

     

        '向对应的帐号添加对应的图片

        If Combo1.Text = "1161738714" Then

            Image2.Picture = LoadPicture("D:沈晨VB2012132012-03-16 0011161738714.picture.jpg")

        ElseIf Combo1.Text = "1179845640" Then

            Image2.Picture = LoadPicture("D:沈晨VB2012132012-03-16 0011179845640.picture.jpg")

        ElseIf Combo1.Text = "1079788293" Then

            Image2.Picture = LoadPicture("D:沈晨VB2012132012-03-16 0011079788293.picture.jpg")

        Else

            Image2.Picture = LoadPicture("D:沈晨VB2012132012-03-16 001QQ截图20120316142952.jpg")

        End If

       

    End Sub

     

        '当点击下拉列表框选择帐号时

    Private Sub Combo1_Click()

     

        '向对应的帐号添加对应的图片

        If Combo1.Text = "1161738714" Then

            Image2.Picture = LoadPicture("D:沈晨VB2012132012-03-16 0011161738714.picture.jpg")

        ElseIf Combo1.Text = "1179845640" Then

            Image2.Picture = LoadPicture("D:沈晨VB2012132012-03-16 0011179845640.picture.jpg")

        ElseIf Combo1.Text = "1079788293" Then

            Image2.Picture = LoadPicture("D:沈晨VB2012132012-03-16 0011079788293.picture.jpg")

        Else

            Image2.Picture = LoadPicture("D:沈晨VB2012132012-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:沈晨VB2012132012-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:沈晨VB2012132012-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:沈晨VB2012132012-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:沈晨VB2012132012-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

      

     

     

    主要的功能截图:

     

    程序运行界面:

    [转载]使用VB编写QQ2012登陆界面以及简单的判断功能 <wbr>– <wbr>代码练

     

    判断帐户并改变图案

     

     [转载]使用VB编写QQ2012登陆界面以及简单的判断功能 <wbr>– <wbr>代码练

    判断帐户为空时:

     

     [转载]使用VB编写QQ2012登陆界面以及简单的判断功能 <wbr>– <wbr>代码练

    判断帐号不存在时:

     

     [转载]使用VB编写QQ2012登陆界面以及简单的判断功能 <wbr>– <wbr>代码练

    判断密码输入错误时:

     

     [转载]使用VB编写QQ2012登陆界面以及简单的判断功能 <wbr>– <wbr>代码练

    判断密码为空时:

     

     [转载]使用VB编写QQ2012登陆界面以及简单的判断功能 <wbr>– <wbr>代码练

    当点击网络设置时:

     

     [转载]使用VB编写QQ2012登陆界面以及简单的判断功能 <wbr>– <wbr>代码练

     


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

     

     

    [转载]使用VB编写QQ2012登陆界面以及简单的判断功能 <wbr>– <wbr>代码练

     

     

     

     

    展开全文
  • Vb.net WinForm如何开发一个登录界面

    千次阅读 2018-11-01 10:46:56
    Vb.net WinForm的小伙伴在创建登录界面时有个疑问,为什么我关闭登录窗体,然后再打开业务窗体时,程序自动退出了呢。 我简单讲一下,大家知道,WinFrom程序有一个 Sub Main入口,C#会在初始化项目时自动创建,但是为...

    Vb.net WinForm的小伙伴在创建登录界面时有个疑问,为什么我关闭登录窗体,然后再打开业务窗体时,程序自动退出了呢。
    我简单讲一下,大家知道,WinFrom程序有一个 Sub Main入口,C#会在初始化项目时自动创建,但是为什么VB.net不创建呢。
    这是因为默认项目中,VB.Net的编译器为你自动创建了入口,你不需要用代码实现。
    那我要怎样才能实现关闭登录窗体后进入业务窗体呢,有以下两种方式:

    • 方式一:打开My Project-应用程序,将关键模式修改为“当最后一个窗体关闭时”。
      在这里插入图片描述
    • 方式二:新建模块写入以下代码(注意打开窗体不是用的Show,用的是Application.Run1)
        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.。


    1. Application.Run:在当前线程上开始运行标准应用程序消息循环,并使指定窗体可见。以该模式打开窗体后,该线程窗体将持续响应消息循环,该线程只会随着窗体的关闭而关闭。一个线程只有存在一个消息循环。后面我再开专题为大家演示怎么在分线程下面创建属于自己线程的UI窗体。
      分线程窗体的好处:小伙伴们可以在不启用分线程的方式下,主线程计算长耗时算法时卡死后任然可以显示进度条。 ↩︎

    展开全文
  • VB6插件注册

    2017-12-04 17:47:00
    按照上述步骤,你运气好的话也许会成功,但是一般会看到这样的错误提示:模块“C:\Windows\System\VB6IDEMouseWheelAddin.dll”已加载,但是对DllRegisterServer的调用失败,错误代码OX80004005。这是神马情况?起初...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
  • 完美可用-DirectX修复工具增强版DirectX Repair

    万次阅读 热门讨论 2018-12-06 11:19:34
    点击“实验室”选项卡可以开启实验功能:C++强力修复功能,通过全新的代码设计,彻底改善对于顽固异常文件的处理,极大提高修复成功率。API Sets强力修复功能,参照了DirectX文件的精细修复方式,极大地改善了修复...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    CLR执行中间语言代码前,要对中间语言代码的安全性,完整性进行验证,防止病毒对中间语言代码的修改。  版本支持:系统中的组件或动态联接库可能要升级,由于这些组件或动态联接库都要在注册表中注册,由此可能...
  • vb界面设计(续)

    2019-05-12 16:48:54
    输入完成后点击注册按钮则会显示注册成功字样 代码如下 Private Sub Text2_GotFocus() 'getfocus的用法不会的可以查百度 Label7.Caption = “密码的长度不得超过8位!” Text2.Locked = False End Sub Sub Text1_...
  • ASP.NET 链接sql数据库的 「登录/注册界面

    千次阅读 多人点赞 2019-05-03 19:59:56
    注册成功的提示 不能注册已经在数据库里面的用户ID 我在这里看了很多这个人的教程:walking橙子,但是里面有的东西我不能用,messagebox.show()就不行。我也不是很懂(搜索也没有搜到,不知道怎么使用messagebo...
  • 包括可执行文件和文档文件的“打开”以及已为其注册打印处理程序的文档文件的“打印”。 其他应用程序可能会通过系统注册表添加Shell动词,例如.avi和.wav文件的“play”。 要指定一个Shell命名空间对象,请传递完全...
  • Android模拟手机QQ登录界面和主界面(含源码)

    千次阅读 多人点赞 2020-04-30 20:58:52
    手机QQ登录界面的设计 Intent的显式跳转和隐式跳转 EditText点击小图标清除输入框内容 EditText密码输入框中密码可见与不可见的切换 使用Fragment实现底部导航栏切换界面 PopupMenu的简单使用 二、实验环境: ...
  • 内容索引:VB源码,系统相关,热键,HOOK 很不错的VB热键控件及源程序,可以用代码将多个限制类型用 OR 连接,这样就可以实现,只可用指定的几种组合。...则界面显示 "无",热键是即时生效的,设置成功,热键就可以使用了。
  • 以下VB代码是我在做软件登录界面时的主要实现部分,其中对用户的登录次数进行了限制。代码中的Record 是数据库的记录集对象,其对数据库的链接是通过调用另外的一个模块来完成的. //定义静态变量用于统计用户的...
  • VB——对象库未注册

    万次阅读 多人点赞 2012-08-19 08:09:13
    由于前两天在清理文件的时候,不小心把C盘系统文件删了,今天打开vb6遇到了一个很顽固的问题,如下:       解决方法1: 打开frmMain.log发现如下问题: 行 12: 控件 sbStatusBar 的类 MSComctlLib.Status...
  • vb.net——通过邮箱动态发送验证码实现完美注册

    千次阅读 热门讨论 2016-01-17 20:27:45
     平时不管我们注册哪个网站,想必大家都注意到必须使用有效的电话号码或邮箱号码,为什么呢?因为他们都要求动态发送 验证码,然后通过验证验证码的真伪,来有效避免胡乱注册的现象。  那么,在高校云平台权限的...
  • 如何用VB6.0编写一个用户登录系统

    千次阅读 2020-02-21 18:57:08
    工具/原料电脑VB6.0软件(没有的就去去下载一个)方法/步骤    进入VB6.0软件,双击“标准EXE”显示的页面如图。预设正确的用户名和密码为cxywlq和701213。    先从控件栏选择标签控件在form1...
  • VS2019连接SQL2008实现登录注册功能.

    千次阅读 2020-08-20 12:30:32
    VS2019连接sql2008数据库实现界面登录注册功能。先上参考的博主文章: 添加链接描述 添加链接描述 进入SQL2008新建数据库VS和表login: 打开VS2019,点击工具——连接到数据库,输入服务器tec-t19,数据库名称VS。 ...
  • VB编程之路-如何让界面美化

    千次阅读 2007-01-15 14:01:00
    VB编程之路-如何让界面美化 作者:漏洞多多 来源于:中国VB网 发布时间:2005-5-20 如果大家用过《Windows优化大师》,肯定会被它的界面所倾倒,其实利用ActiveSkin 就可以办到,甚至更爽,但是如果要做的共享软件...
  • 图书管理登录界面   2 btncancel Button 取消   3 btndenglu Button 登录   4 lblbiaoti Label 图书管理系统   5 lblID Label 账号   6 lblpass Label 密码...
  • 用户注册(普通用户注册) 五.部分代码展示 六.数据库表 七.VB.NET 连接SQLserver2012 文件 使用的工具 1.Microsoft Visual Studio 2012 2.SqlServer 2012 一,该管理系统是采用Javaweb开发模式,有连接数据库的...
  • 近段时间接了个项目,是关于一个称重传感器的上位机系统,需要一机一码针对不同的客户机分别注册,第一次注册完后,下次打开后不必注册。 刚开始想用正规的注册机办法去完成,搜罗了半天,发现现在大部分的硬盘...
  • 自定义VB程序加密方案

    千次阅读 2018-09-06 12:12:29
    注册 C盘序列号 电脑名 第五步,应用程序引用   第一步,获取电脑标志  每一台电脑的标志有哪些?  1、硬盘序列号  2、电脑名  3、IP地址  想到的就这些了,本案列以C盘序列号和电脑名为电脑的识别...
  • PresentationParameters As D3DPRESENT_PARAMETERS:只需将我们前面填充的结构放在这里… 初始化代码已经完成-假设代码成功运行,那么我们将在表单上附加一个完全初始化的设备以供使用。关于DirectX错误的一个词-...
  • Visual Studio简单登录程序界面设计

    万次阅读 多人点赞 2019-06-01 21:25:14
    1.新建窗体应用程序,即windows窗体应用,按快捷键ctrl+shift+N,选择windows窗体应用。 2将视图选项中的工具箱和属性窗口拉入到界面中。 ...4.添加代码。 双击”登录“按钮,在对应按钮的函数代...
  • vb 程序破解

    千次阅读 2017-09-02 16:44:57
    这里我尽量多和详细地解释了VB程序的破解(其实也可看到反破解)的相关东西,把一个简单的VB计时器程序研究透了,对于VB破解应有较大帮助,如果觉得无用的不要喷,谢谢!可能包含错误认识,如有错误欢迎指出。 VB程序...
  • VB写OCX控件

    2020-10-05 09:38:00
    VB写OCX控件 一、 OCX简介 OCX,即对象类别扩充组件。控件的最大好处是可重复利用,甚至可以在不同的编程语言之间使用,例如可以在VB中嵌入使用VC开发的控件。 二、用VB做一个OCX控件 1、打开VB6.0,鼠标点击...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 4,814
精华内容 1,925
关键字:

vb注册界面代码注册成功