Visual Basic（简称VB）
关注
分享
扫一扫
Visual Basic（简称VB）
彭世瑜
记录我的工作学习笔记
展开
-
[转载]使用VB编写QQ2012登陆界面以及简单的判断功能 – 代码练
原文地址：使用VB编写QQ2012登陆界面以及简单的判断功能 – 代码练习作者：沈晨使用VB编写QQ2012登陆界面以及简单的判断功能–代码练习作者：沈晨 编写用时：2个半小时 Const TS As String ="登录提示：" '当输入帐号时Private SubCombo1_Change() '向...原创 2013-07-08 08:36:55 · 911 阅读 · 0 评论 -
[转载]VB网络聊天程序的开发(1)_彭世瑜_新浪博客
原文地址：VB网络聊天程序的开发(1)作者：VB源码博客互联网已经成为现代社会生活中非常普及的一项事务。在互联网上可以查询信息、电子购物，还可以进行网络聊天。本博将从今天起，具体的计解一下利用VB开发一个网络的聊天程序，详细介绍项目分析和设计、实现功能。一、项目分析项目分析是对全部工程项目的需求进行分析和设计，实现模块的功能，网络聊天程序主要包括服务器端程序密码验证、输入信息收客户...原创 2013-07-09 10:03:16 · 362 阅读 · 0 评论 -
[转载]VB网络聊天程序的开发(1)
原文地址：VB网络聊天程序的开发(1)作者：VB源码博客互联网已经成为现代社会生活中非常普及的一项事务。在互联网上可以查询信息、电子购物，还可以进行网络聊天。本博将从今天起，具体的计解一下利用VB开发一个网络的聊天程序，详细介绍项目分析和设计、实现功能。一、项目分析项目分析是对全部工程项目的需求进行分析和设计，实现模块的功能，网络聊天程序主要包括服务器端程序密码验证...原创 2013-07-09 10:03:16 · 544 阅读 · 0 评论 -
[转载]用VB编写一个聊天程序！
原文地址：用VB编写一个聊天程序！作者：淡墨文章来源： http://zhidao.baidu.com/question/13804719.html 一个server端Private Sub Command1_Click()EndEnd SubPrivate Sub Command2_Click()Winsockserver.SendData Tex...原创 2013-07-08 10:30:08 · 1589 阅读 · 0 评论 -
VB编程：Static 静态变量实现计数功能实例-1_彭世瑜_新浪博客
Option ExplicitPrivate SubCommand1_Click() Static j As Integer j = j + 1 'j用于计数，每次单击Command命令按钮加1。 If j > 3 Then MsgBox"只能运行3次" ExitSub End I...原创 2016-11-15 08:34:38 · 595 阅读 · 0 评论 -
[转载]VB网络聊天程序的开发(5)_彭世瑜_新浪博客
原文地址：VB网络聊天程序的开发(5)作者：VB源码博客运行程序：网络聊天程序各窗体设计好之后，可以查看整个程序的运行状况。运行程序，弹出网络聊天登陆窗体，如下图所示。选择服务器登录则弹出服务器端窗体。单击“关于窗体”按导，弹出关于窗体，选择客户端登录则弹出客户端窗体。编译程序：完成了网络聊天程序编程和调试工作，最后进行程序的编译。编译程序涉及到程序项目属性的设置，可执行应...原创 2013-07-09 11:03:02 · 347 阅读 · 0 评论 -
[转载]用VB编写一个聊天程序！_彭世瑜_新浪博客
原文地址：用VB编写一个聊天程序！作者：淡墨文章来源：http://zhidao.baidu.com/question/13804719.html一个server端Private Sub Command1_Click()EndEnd SubPrivate Sub Command2_Click()Winsockserver.SendData Text4.Text ...原创 2013-07-08 10:30:08 · 345 阅读 · 0 评论 -
[转载]VB网络聊天程序的开发(5)
原文地址：VB网络聊天程序的开发(5)作者：VB源码博客运行程序：网络聊天程序各窗体设计好之后，可以查看整个程序的运行状况。运行程序，弹出网络聊天登陆窗体，如下图所示。选择服务器登录则弹出服务器端窗体。单击“关于窗体”按导，弹出关于窗体，选择客户端登录则弹出客户端窗体。编译程序：完成了网络聊天程序编程和调试工作，最后进行程序的编译。编译程序涉及到程序项目属性...原创 2013-07-09 11:03:02 · 479 阅读 · 0 评论 -
[转载]使用VB编写QQ2012登陆界面以及简单的判断功能 – 代码练_彭世瑜_新浪博客...
原文地址：使用VB编写QQ2012登陆界面以及简单的判断功能–代码练习作者：沈晨使用VB编写QQ2012登陆界面以及简单的判断功能–代码练习作者：沈晨编写用时：2个半小时Const TS As String ="登录提示："'当输入帐号时Private SubCombo1_Change()'向对应的帐号添加对...原创 2013-07-08 08:36:55 · 369 阅读 · 0 评论 -
VB编程：Static 静态变量实现计数功能实例-1
Option ExplicitPrivate SubCommand1_Click() Static j As Integer j = j + 1 'j用于计数，每次单击Command命令按钮加1。 If j > 3 Then MsgBox"只能运行3次" ExitSub ...原创 2016-11-15 08:34:38 · 1118 阅读 · 0 评论 -
VB编程：无标题栏窗体移动和自定义鼠标样式-7
效果显示：实现无边框效果：窗体BorderStyle=0-None图片框的BorderStyle=0-None代码开始：'---------实现移动无标题栏窗体API调用声明--------------------Const HTCAPTION = 2Const WM_NCLBUTTONDOWN = &HA1Private Declare ...原创 2016-11-15 18:56:02 · 996 阅读 · 0 评论 -
VB编程：Const自定义常量计算圆面积-2_彭世瑜_新浪博客
Private Sub Command1_Click()Const pi = 3.1415966 '定义常量pis = pi * Val(Text1.Text) ^ 2Debug.Print s 'Debug立即窗口输出s的计算结果End Sub ...原创 2016-11-15 09:17:25 · 483 阅读 · 1 评论 -
VB编程：SelectCase多分支选择结构判断成绩优良-11
运行效果：程序代码：Private Sub Command1_Click() If IsNumeric(Text1.Text)Then Select Case CInt(Text1.Text) Case Is>= 85 Label2.Caption = "成绩：" &am...原创 2016-11-16 15:27:46 · 3831 阅读 · 0 评论 -
VB编程：Val字符串转数字，CStr数字转字符串-6
效果显示：Private Sub Text1_Change()Text2.Text = CStr(Text1.Text) '转字符串Text3.Text = Val(Text1.Text) '转为数字End Sub备注：1、Val()函数，字符串转为数字，从左到右依次转换，遇到非数字字符为止，必要时可以使用CDbl()；2、CSt...原创 2016-11-15 15:13:41 · 9783 阅读 · 0 评论 -
VB编程：IF语句判断成绩优良-8_彭世瑜_新浪博客
运行效果：源代码：Private Sub Command1_Click() Dim i As Integer i = Val(Text1) If i = 100 Then MsgBox "满分" ElseIf i >= 85Then MsgBox "优秀" ElseIf i >= 75The...原创 2016-11-16 09:47:08 · 803 阅读 · 0 评论 -
VB编程：If-ElseIf判断输入的字符是数字还是字母-10
运行效果：程序代码：Private Sub Command1_Click() Dim bo, ba, st AsString st = Text1.Text bo = st Like"[a-z]" ba = st Like"[A-Z]" If IsNumeric(st)Then MsgBox "输...原创 2016-11-16 14:02:03 · 5817 阅读 · 0 评论 -
VB编程：IF语句嵌套实例猜数小游戏-9_彭世瑜_新浪博客
运行效果：程序代码：Public A As Long '定义全局变量，用于储存生成的随机数Private Sub Command1_Click() Randomize ...原创 2016-11-16 11:34:14 · 527 阅读 · 0 评论 -
VB编程：FileLen函数获取文件的大小-5
显示效果：Private Sub Command1_Click() CommonDialog1.ShowOpen '打开对话框 IfCommonDialog1.FileName <> "" Then '判断文件名是否为空 Label1.Caption =...原创 2016-11-15 14:06:14 · 3266 阅读 · 0 评论 -
VB编程：Const自定义常量计算圆面积-2
Private Sub Command1_Click()Const pi = 3.1415966 '定义常量pis = pi * Val(Text1.Text) ^ 2Debug.Print s 'Debug立即窗口输出s的计算结果End Sub ...原创 2016-11-15 09:17:25 · 1754 阅读 · 0 评论 -
VB编程：FileLen函数获取文件的大小-5_彭世瑜_新浪博客
显示效果：Private Sub Command1_Click() CommonDialog1.ShowOpen '打开对话框 IfCommonDialog1.FileName <> "" Then '判断文件名是否为空 Label1.Caption = "您打开的文件...原创 2016-11-15 14:06:14 · 607 阅读 · 0 评论 -
VB编程：UCase转大写，LCase转小写-4
Private Sub Text1_Change()Text2.Text = LCase(Text1.Text) '转换成小写字母Text3.Text = UCase(Text1.Text) '转换成大写字母End SubPrivate Sub Command1_Click()EndEnd Sub界面效果： ...原创 2016-11-15 13:21:57 · 2404 阅读 · 0 评论 -
VB编程：Val字符串转数字，CStr数字转字符串-6_彭世瑜_新浪博客
效果显示：Private Sub Text1_Change()Text2.Text = CStr(Text1.Text) '转字符串Text3.Text = Val(Text1.Text) '转为数字End Sub备注：1、Val()函数，字符串转为数字，从左到右依次转换，遇到非数字字符为止，必要时可以使用CDbl()；2、CStr()函数，数字...原创 2016-11-15 15:13:41 · 511 阅读 · 0 评论 -
VB编程：不能更改窗体大小又能最小化-3
目的：不能更改窗体大小又能最小化解决方案：1、把Form窗体属性borderstyle设为1 '固定窗体；2、把Form窗体属性minbutton设为true '最小化可用。备注：如果需要最大化可用，就把Form窗体属性maxbutton设置为true即可。 ...原创 2016-11-15 10:36:34 · 3025 阅读 · 0 评论 -
VB编程：不能更改窗体大小又能最小化-3_彭世瑜_新浪博客
目的：不能更改窗体大小又能最小化解决方案：1、把Form窗体属性borderstyle设为1 '固定窗体；2、把Form窗体属性minbutton设为true '最小化可用。备注：如果需要最大化可用，就把Form窗体属性maxbutton设置为true即可。 ...原创 2016-11-15 10:36:34 · 508 阅读 · 0 评论 -
VB编程：IF语句判断成绩优良-8
运行效果：源代码：Private Sub Command1_Click() Dim i As Integer i = Val(Text1) If i = 100 Then MsgBox "满分" ElseIf i >= 85Then MsgBox "优秀" ElseIf i >...原创 2016-11-16 09:47:08 · 4360 阅读 · 0 评论 -
VB编程：UCase转大写，LCase转小写-4_彭世瑜_新浪博客
Private Sub Text1_Change()Text2.Text = LCase(Text1.Text) '转换成小写字母Text3.Text = UCase(Text1.Text) '转换成大写字母End SubPrivate Sub Command1_Click()EndEnd Sub界面效果： ...原创 2016-11-15 13:21:57 · 474 阅读 · 0 评论 -
VB编程：全局变量&控件数组实例简单计算器-12_彭世瑜_新浪博客
运行效果：程序代码：Dim current, prev, choice '全局变量'-------------这段代码是个额外加上的小测试可以忽略----------'---------------用API来关闭正在运行运行的程序---------------Private Declare Function FindWindow Lib "user32" Alias...原创 2016-11-16 17:38:01 · 620 阅读 · 0 评论 -
VB编程：IF语句嵌套实例猜数小游戏-9
运行效果：程序代码：Public A As Long '定义全局变量，用于储存生成的随机数Private Sub Command1_Click() Randomize ...原创 2016-11-16 11:34:14 · 2640 阅读 · 0 评论 -
VB编程：SelectCase多分支选择结构判断成绩优良-11_彭世瑜_新浪博客
运行效果：程序代码：Private Sub Command1_Click() If IsNumeric(Text1.Text)Then Select Case CInt(Text1.Text) Case Is>= 85 Label2.Caption = "成绩：" &"优秀"...原创 2016-11-16 15:27:46 · 997 阅读 · 0 评论 -
VB编程：If-ElseIf判断输入的字符是数字还是字母-10_彭世瑜_新浪博客
运行效果：程序代码：Private Sub Command1_Click() Dim bo, ba, st AsString st = Text1.Text bo = st Like"[a-z]" ba = st Like"[A-Z]" If IsNumeric(st)Then MsgBox "输入的是数字", ...原创 2016-11-16 14:02:03 · 710 阅读 · 1 评论 -
VB编程：Enum创建包含12个月的枚举类型-20_彭世瑜_新浪博客
运行效果：程序代码：Option ExplicitPublic Enum Month jan = 1 feb = 2 mar = 3 apr = 4 may = 5 jun = 6 jul = 7 aug = 8 sep = 9 Oct = 10 nov = 11 dec = 12...原创 2016-11-21 14:52:38 · 525 阅读 · 0 评论 -
VB编程：利用循环嵌套求1000以内的完数-18_彭世瑜_新浪博客
运行效果：编写总结 完数：它的因子之和恰好等于它的本身； 亏数：它的因子之和小于本身； 盈数：它的因子之和大于本身；程序代码：Private Sub Form_Click() Dim n, r, j, i AsInteger n = 1000 Me.Cls For i = 1 To n - 1 r ...原创 2016-11-21 11:25:39 · 627 阅读 · 0 评论 -
VB编程：全局变量&控件数组实例简单计算器-12
运行效果：程序代码：Dim current, prev, choice '全局变量'-------------这段代码是个额外加上的小测试可以忽略----------'---------------用API来关闭正在运行运行的程序---------------Private Declare Function FindWindow Lib "user3...原创 2016-11-16 17:38:01 · 1813 阅读 · 0 评论 -
VB编程：将文本控件添加到集合Collection中-19_彭世瑜_新浪博客
运行效果程序代码Dim aaa As CollectionPrivate Sub Command1_Click() Dim item AsControl For Each item Inaaa item.Text = "microsoft" '对集合中所有TextBox的Text属性赋值 Next itemEnd SubPr...原创 2016-11-21 13:10:32 · 500 阅读 · 0 评论 -
VB编程：利用循环嵌套求1000以内的完数-18
运行效果：编写总结 完数：它的因子之和恰好等于它的本身； 亏数：它的因子之和小于本身； 盈数：它的因子之和大于本身；程序代码：Private Sub Form_Click() Dim n, r, j, i AsInteger n = 1000 Me.Cls For i = 1 To n - 1 ...原创 2016-11-21 11:25:39 · 2626 阅读 · 0 评论 -
VB编程：DO...Loop循环语句比较最大最小值-16_彭世瑜_新浪博客
一、运行效果二、编写心得程序中，最大值和最小值的比较类似，先用一个布尔型变量“c”和“if”条件语句来区分第一次提示还是后续提示，输出相应的“输入提示框”；再用“if”条件语句和“isnumeric()”函数判断输入是否为数值，不是则用“exitfor”跳出“do”循环；如果是数值则接着执行下一个“if”语句，控制第一次输入之后就改变“inputbox”的输入提示内容，每次...原创 2016-11-18 18:57:14 · 601 阅读 · 0 评论 -
VB编程：While...Wend语句实例漂亮的星星-17_彭世瑜_新浪博客
运行效果：程序代码：Private Sub Command1_Click() Dim a As Long, b AsLong Form1.Cls '清空窗体 While a <= 9 '限制条件，0-9，一共输出10行 a = a + 1 '调整输出位置 ...原创 2016-11-20 13:46:41 · 764 阅读 · 0 评论 -
VB编程：DoEvents将控制权交给系统，防止无限循环-14_彭世瑜_新浪博客
一、运行效果：1、没有DoEvents时运行（出现未响应）：2、有DoEvents时运行（没有未响应）：二、关键点 1、DoEvents函数，将控制权交给系统，防止无限循环。 2、将下面程序中的“if”语句删除试试两种效果有何不一样。三、程序代码Private Sub Command1_Click() On Error ResumeNext...原创 2016-11-17 18:23:51 · 616 阅读 · 0 评论 -
VB编程：DoWhile...Loop当循环计算0~100累加和-15_彭世瑜_新浪博客
一、运行效果二、技巧总结 1、常用的循环有三种： （1）for循环（For...Next）； （2）当循环（Do...While...Loop）或者（While...Wend）； （3）直到循环（Do...Until...Loop）；三、测试代码Private Sub Command1_Click() Dim a As Long, b ...原创 2016-11-17 18:42:55 · 875 阅读 · 0 评论 -
VB编程：Me关键字的使用&VB常用颜色代码-22_彭世瑜_新浪博客
运行效果：程序代码：Private Sub Command1_Click() Unload MeEnd SubPrivate Sub Form_Click() Me.Text1.Top = 0 Me.backcolor =vbCyanEnd Sub程序小结： 1、在测试代码时，可以将不用的代码先注释，便于之后在使用，这是一个不错的习...原创 2016-11-21 16:43:07 · 548 阅读 · 0 评论