vb程序源代码，vb基础代码
大家好，关于vb程序源代码很多朋友都还不太明白，今天小编就来为大家分享关于vb基础代码的知识，希望对各位有所帮助！
VB Winsock最简单的;聊天程序源代码
这个是我以前学习的一个实例。希望对你有帮助！！！
用VB实现客户——服务器（TCP/IP）编程实例
-
现在大多数语言都支持客户－服务器模式编程，其中VB给我们提供了很好的客户－服务器编程方式。下面我们用VB来实现TCP／IP网络编程。
TCP／IP协议是Internet最重要的协议。VB提供了WinSock控件,用于在TCP／IP的基础上进行网络通信。当两个应用程序使用Socket进行网络通信时，其中一个必须创建Socket服务器侦听，而另一个必须创建Socket客户去连接服务器。这样两个程序就可以进行通信了。
1．创建服务器，首先创建一个服务端口号。并开始侦听是否有客户请求连接。
建立一窗体，并向其增加一个Winsock控件(可在工程菜单中的部件项来添加此控件)
添加两文本框Text1,Text2,和一按钮Command1
Private Sub Form_Load()
SockServer.LocalPort= 2000′服务器端口号,最好大于1000
SockServer.Listen′开始侦听
End Sub
Private Sub Form_Unload(Cancel As Integer)
SockServer.Close
End Sub
Private Sub SockServer_Close()
SockServer.Close
End Sub
Private Sub SockServer_ConnectionRequest(ByVal requestID As Long)
SockServer.Close
SockServer.Accept requestID′表示客户请求连接的ID号
End Sub
′当客户向服务器发送数据到达后,产生DataArrival事件,在事件中接收数据,GetData方法接收数据。
Private Sub SockServer_Data
Arrival(ByVal bytesTotal As Long)
Dim s As String
SockServer.GetData s
Text1.Text= s
End Sub
当我需要向客户发送数据时，只需调用SendData方法。
Private Sub Command1_Click()
SockServer.SendData Text2.Text
text1.text= text2.text
text2.text=""
End Sub
2．创建客户。要创建客户连接服务器，首先设置服务器主机名，如IP地址、域名或计算机名，然后设置服务器端口，最后连接服务器。
建立一窗体，并向其增加一个Winsock控件(可在工程菜单中的部件项来添加此控件)，取名为：SockC1。添加两文本框Text1,Text2,和一按钮Command1
Private Sub Form_Load()
dim my as string
my= SockCl.RemoteHostIP
SockCl.RemoteHost= my
′表示服务器主机名
SockCl.RemotePort= 2000
′表示服务器端口名
SockCl.Connect
′连接到服务器
End Sub
Private Sub Form_Unload(Cancel As Integer)
SockCl.Close
End Sub
Private Sub SockCl_Close()
SockCl.Close
End Sub
Private Sub SockCl_DataArrival(ByVal bytesTotal As Long)
Dim s As String
SockCl.GetData s′接收数据到文本框中
Text1.Text= s
End Sub
Private Sub Command1_Click()
SockCl.SendData Text2.Text′向服务器发送数据
text1.text= text2.text
text2.text=""
End Sub
3．进行通信。把这两个窗体分别编译成两个EXE文件，服务器Server.exe和客户Client.exe程序，并把它们分别安装在服务器端和客户端，这样就可以实现两者通信了。
------------------------------------整理后的代码如下-------------------------------
Private Sub Form_Load()
Dim my As String
my= SockCl.RemoteHostIP
SockCl.RemoteHost= my
SockCl.RemotePort= 2000
SockCl.Connect
End Sub
Private Sub Form_Unload(Cancel As Integer)
SockCl.Close
End Sub
Private Sub SockCl_Close()
SockCl.Close
End Sub
Private Sub SockCl_DataArrival(ByVal bytesTotal As Long)
Dim s As String
SockCl.GetData s
Text1.Text= s
End Sub
Private Sub Command1_Click()
SockCl.SendData Text2.Text
Text1.Text= Text2.Text
Text2.Text=""
End Sub
Private Sub Form_Load()
SockServer.LocalPort= 2000
SockServer.Listen
End Sub
Private Sub Form_Unload(Cancel As Integer)
SockServer.Close
End Sub
Private Sub SockServer_Close()
SockServer.Close
End Sub
Private Sub SockServer_ConnectionRequest(ByVal requestID As Long)
SockServer.Close
SockServer.Accept requestID
End Sub
Private Sub Command1_Click()
SockServer.SendData Text2.Text
Text1.Text= Text2.Text
Text2.Text=""
End Sub
Private Sub SockServer_DataArrival(ByVal bytesTotal As Long)
Dim s As String
SockServer.GetData s
Text1.Text= s
End Sub
vb程序设计是什么
*vb是Visual Basic的简称。
是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言。
可用于开发 Windows环境下的各类应用程序。它简单易学、效率高，且功能强大可以与 Windows专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。
*VB的特点
1．面向对象
VB采用了面向对象设计思想，它基本思路是把复杂设计问题分解为个个能够完成独立功能——相对
简单对象集合。所谓“对象”就是个可操作实体如窗体、窗体中命令按钮、标签、文本框等面向对
象编程就好像搭积木样员可根据和界面设计要求直接在屏幕上“画\"出窗口、菜单、按钮等区别
类型对象并为每个对象设置属性。
2．事件驱动
在Windows环境下是以事件驱动方式运行每个对象的都能响应多个区别事件，每个事件都能驱动段
代码——事件过程该代码决定了对象功能通常称这种机制为事件驱动事件可由用户操作触发也可
以由系统或应用触发例如单击个命令按钮就触发了按钮Click(单击)事件该事件中代码就会被执行
若用户未进行任何操作(未触发事件)则就处于等待状态整个应用就是由彼此独立事件过程构成
3．软件Software集成式开发
VB为编程提供了个集成开发环境在这个环境中编程者可设计界面、编写代码、调试直至把应
用编译成可在Windows中运行可执行文件并为它生成安装VB集成开发环境为编程者提供了很大方便
4．结构化设计语言
VB具有丰富数据类型是种符合结构化设计思想语言而且简单易学此外作为种设计语言VB还有
许多独到的处
5．强大数据库访问功能
VB利用数据Control控件可以访问多种数据库VB 6．O提供ADOControl控件不但可以用最少代
码实现数据库操作和控制也可以取代DataControl控件和RDOControl控件
6．支持对象链接和嵌入技术
VB核心是对对象链接和嵌入(OLE)技术支持它是访问所有对象种思路方法利用OLE技术能够开
发集声音、图像、动画、字处理、Web等对象于体
7．网络功能
VB 6．O提供了DltTML(Dynamic}tTML)设计工具利用这种技术可以动态创建和编辑Web页面使
用户在VB中开发多功能网络应用软件Software
8．多个应用向导
VB提供了多种向导如应用向导、安装向导、数据对象向导和数据窗体向导通过它们可以快速
地创建区别类型、区别功能应用
9．支持动态交换、动态链接技术．
通过动态数据交换(DDE)编程技术VB开发应用能和其他Windows应用的间建立数据通信通过动态
链接库技术在VB中可方便地用C语言或汇编语言编写也可Windows应用接口(．API)
lO．联机帮助功能
在VB中利用帮助菜单和F1功能键用户可随时方便地得到所需要帮助信息VB帮助窗口中显示了有
关举例代码通过复制、粘贴操作可获取大量举例代码为用户学习和使用提供方便
*vb编程基本概念
可以说是所有编程软件的通用概念，希望大家好好看下。如何去进行编程？先给自己一个明确的步骤，才能更好的完成代码编写工作，程序编写是必须很严谨的，这样我们才能编写出完整的程序。
1、机器语言：对于计算机本身来说，它只能接受和处理由0和1代码构成的二进制指令或数据，
由于这种形式的指令是面向机器的，因此也称为“机器语言”。
2、源程序：我们把由高级语言编写的程序称为源程序。
3、目标程序：二进制代码边式的程序称为“目标程序”。
4、编译程序：如何把源程序转换成机器能够接受的目标程序，软件工作者编制了一系列的软件，
通过这些软件可以把用户按规定语法写出的语句一一翻译成二进制的机器指令。这种具有翻译
功能的软件称为“编译程序”。
5、程序设计一般包含以下几个部分
（1）确定数据结构
（2）确定算法
（3）编码
（4）在计算机上调整程序
（5）整理并写出文档资料
6、算法是指为解决某个特定问题而采取的确定且有限的步骤。一个算法应当具有以下五个特点：
（1）有穷性：一个算法应包含有限个操作步骤
（2）确定性：算法中每一条指令必须有确切的含义，不能有二义性，对于相同的输入必能得出相同的执行结果
（3）可行性：算法中指定的操作，都可以通过已经实现的基本运算执行有限次后实现
（4）有零个或多个输入
（5）有一个或多个输出
参考：
vb用户怎么登录界面用户登陆的代码是多少
vb登陆程序源代码\x0d\x0a\x0d\x0a你可以这样做建一个模块在里面输入下列\x0d\x0aPublic conn As ADODB.Connection\x0d\x0aSub main()\x0d\x0a Set conn= New ADODB.Connection\x0d\x0a conn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;" _\x0d\x0a+"User ID=sa;password=sa;Initial Catalog=您的数据库名;Data Source=127.0.0.1"\x0d\x0a conn.Open\x0d\x0afrom1.Show’登录界面\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a再在登录界面“确定”下写入如下代码：\x0d\x0aPrivate Sub Command1_Click()\x0d\x0a If id.Text="" Then\x0d\x0a MsgBox"用户名不能为空！", vbOKOnly+ vbInformation,"友情提示"\x0d\x0a id.SetFocus\x0d\x0a Exit Sub\x0d\x0a End If\x0d\x0a If password.Text="" Then\x0d\x0a MsgBox"密码不能为空！", vbOKOnly+ vbInformation,"友情提示"\x0d\x0a password.SetFocus\x0d\x0a Exit Sub\x0d\x0a End If\x0d\x0a\x0d\x0a Dim strSQl As String\x0d\x0a strSQl="select* from Users where users_name='"& Trim$(id.Text)&"' and password='"& Trim$(password.Text)&"'"\x0d\x0a \x0d\x0a Dim str As New ADODB.Recordset\x0d\x0a Set str= New ADODB.Recordset\x0d\x0a str.CursorLocation= adUseClient\x0d\x0a str.Open strSQl, conn, adOpenStatic, adLockReadOnly\x0d\x0a \x0d\x0a With str\x0d\x0a If.State= adStateOpen Then.Close\x0d\x0a.Open strSQl\x0d\x0a If.EOF Then\x0d\x0a Try_times= Try_times+ 1\x0d\x0a If Try_times>= 3 Then\x0d\x0a MsgBox"您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly+ vbCritical,"警告"\x0d\x0a Unload Me\x0d\x0a Else\x0d\x0a MsgBox"对不起，用户名不存在或密码错误！", vbOKOnly+ vbQuestion,"警告"\x0d\x0a id.SetFocus\x0d\x0a id.Text=""\x0d\x0a password.Text=""\x0d\x0a End If\x0d\x0a Else\x0d\x0a \x0d\x0a Unload Me\x0d\x0a \x0d\x0a Form2.Show’登录进入的另一个界面\x0d\x0a \x0d\x0a End If\x0d\x0a End With\x0d\x0a\x0d\x0aEnd Sub
如果你还想了解更多这方面的信息，记得收藏关注本站。