-
VB工程--百例81--字体演示
所属栏目：[大数据] 日期：2020-12-16 热度：180
与百例79-80例相类似 Option Explicit Private Sub chk1_Click() If chk1.Value = 1 Then '若复选框chk1的值为1 Label2.FontUnderline = True '标签框中的文字加下划线 Else '否则 Label2.FontUnderline = False '标签框中的文字不加下划线 End If End Sub P[详细]
-
VB.net中字符串操作函数
所属栏目：[大数据] 日期：2020-12-16 热度：65
VB.net中字符串操作函数 函数 语法 功能 Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去[详细]
-
VB工程--百例82--改变字号
所属栏目：[大数据] 日期：2020-12-16 热度：66
Option Explicit Private Sub Command1_Click() On Error GoTo 1 '表示禁止一个错误的发生 '它的语法格式如下：on error goto line 其中的参数line表示要跳转到的行号， '它可以标会任何数值。当程序发生错误时，用on error goto语句可以跳过错误程序， '直[详细]
-
VB工程--百例83--圆形颜色变换
所属栏目：[大数据] 日期：2020-12-16 热度：143
Option Explicit Private Sub Command1_Click() cdl1.ShowColor '打开颜色对话框（关键） Shape1.BorderColor = cdl1.Color '圆形shape1的边框颜色是在颜色对话框中所在的颜色 End Sub Private Sub Command2_Click() cdl1.ShowColor Shape2.BorderColor = cd[详细]
-
一路走来——2012上半年总结
所属栏目：[大数据] 日期：2020-12-16 热度：70
半年一瞬而逝，不过时间没有像以前那样白白流逝。用vb6实现了机房收费系统后，米老师安排了一年的学习任务，让我们半年完成。现在完成的差不多了，感觉还是挺有成就感的。下面说说这半年的历程吧。 七月八月 -软件工程 九月 -机房收费系统文档 -UML图 十月 -[详细]
-
VB工程--百例84--播放视频AVI文件.
所属栏目：[大数据] 日期：2020-12-16 热度：157
Option Explicit Private Sub Command1_Click() mci1.Command = "close" '关闭mci1不可见 mci1.Notify = False '不产生一个回调事件 mci1.Wait = True '必须等到下一个MCI命令完成才能将控件返回应用程序 mci1.Command = "open" ' 打开mcil1设备 mci1.Notify[详细]
-
vb4章节对比
所属栏目：[大数据] 日期：2020-12-16 热度：136
vb课本的四章以前做过一些总结，现在这章节已经细看过了，感觉往做的有些不细致，线图如下。点解图片看详图[详细]
-
VB.NET获取局域网IP和MAC地址
所属栏目：[大数据] 日期：2020-12-16 热度：100
方法很简单，而且适用于windows xp/2003/vista/7/2008。 运行效果如下： 众所周知，在windows下的命令行程序arp能给我们返回ARP表，那么一切问题就迎刃而解了。在调用arp前，我们只需要做的就是ping 局域网内的ip，最后通过调用arp指令即可获取全部的ip和mac[详细]
-
VB工程--百例86--播放flash动画.
所属栏目：[大数据] 日期：2020-12-16 热度：188
此题的唯一难点就是加载swf动画，路径。 Option Explicit Private Sub Command1_Click(Index As Integer) Select Case Index '以命令按钮的索引值作为测试表达式 Case 0 Flash1.Movie = "D:软件文件夹2大型软件VB学习百例百例源文件实例86实例素材wg[详细]
-
个人总结.
所属栏目：[大数据] 日期：2020-12-16 热度：119
前两天有朋友问我的职业规划是怎样的.突然我觉得很迷茫. 其实这个问题我在毕业时就已经规划好,而且每年都有详细的规划文档. 但往往计划不如变化,很多事情没有按原计划进行. 2009年毕业时原计划毕业三年类精学开发,进入一家正规的软件开发企业学习.但我一到广[详细]
-
VB.NET读取（数据库）配置文件
所属栏目：[大数据] 日期：2020-12-16 热度：182
之前用三层试着做了做登录的小Demo，出的问题还是不少的，不过也还说的过去。在之后，就想把连接数据库的字符串进行一下修正，将它添加到配置文件中，而在代码中直接引用配置文件，进行读取数据，从而连接数据库，进行后续的工作。然而就在这简单的配置文件[详细]
-
软件工程之路
所属栏目：[大数据] 日期：2020-12-16 热度：94
对机房收费系统的总结先告一段落。下面说下我从软工到vb.net的感觉。 一、软件工程 现在为止，还没开始团队开发，所以对文档的重要性体会的还不那么深，但是可以明显感觉到文档是有作用的了。 现在总算体会到了一点点囫囵吞枣的学习的感觉，现在还清楚的记得[详细]
-
VB.NET中的安全加密算法
所属栏目：[大数据] 日期：2020-12-16 热度：198
这几天需要对系统中的一些关键数据进行加密。用VB.NET编写CLR函数，然后在存储过程中略加修改即完成任务。 在测试过程中遇到不少问题，比如说不熟悉流对象（初学VB.NET），不熟悉编码转换，最重要的是加密的密钥长度限制，可能很多人会遇到。 下面的代码中实[详细]
-
VB工程--百例87--删除文件
所属栏目：[大数据] 日期：2020-12-16 热度：75
新知识点： Animation 是“动画模块”的意思 ProgressBar 是“进度条 进度 Option Explicit Private Sub Command1_Click() End End Sub Private Sub Form_Activate() Animation1.Open "D:软件文件夹2大型软件VB学习百例百例源文件实例87实例素材FILE[详细]
-
VB.NET中的sender、e和handles
所属栏目：[大数据] 日期：2020-12-16 热度：200
由于收费系统中，碰到几次事件的调用，对其中参数不是很理解，就总结了一下vb.net中的事件。 在vb6.0中事件非常简单，就拿最常用的单击按钮事件来说，vb中的代码是： Private Sub Command1_Click()MsgBox ("你点击了button1")End Sub 调用command1的单击事件[详细]
-
VB工程---百例88--播放动画
所属栏目：[大数据] 日期：2020-12-16 热度：138
此个实例与百例87很想类似，都是用到了控件Animation，只是反复的重复而已。 Option Explicit Private Sub Command1_Click() '在Command1按下时，五幅avi动画，同时运动 Animation1.Open "D:软件文件夹2大型软件VB学习百例百例源文件实例88实例素材B[详细]
-
VB工程--百例89--插入Execl工作表
所属栏目：[大数据] 日期：2020-12-16 热度：90
Option Explicit Private Sub Command1_Click() OLE1.Class = "excel.sheet.8" '设置OLE1控件中所插入对象的名称 OLE1.SourceDoc = "D:软件文件夹2大型软件VB学习百例百例源文件实例89实例素材Book1.xls" '设置OLE1控件中所插入对象的文件路径及名称[详细]
-
Vb工程--百例91--排列窗口
所属栏目：[大数据] 日期：2020-12-16 热度：69
Option Explicit Private Sub MDIForm_Load() Form1.Show '显示窗体form1 Form2.Show Form3.Show End Sub Private Sub mnuquit_Click() End End Sub 此例子的重点知识：'MDI窗体的arrange属性 0 重叠排列子窗体 1水平排列子窗体2 竖直排列子窗体3 排列窗体的[详细]
-
Built-In Functions of VB Script
所属栏目：[大数据] 日期：2020-12-16 热度：102
'1)Abs Function 'Returns the absolute value of a number Dim VNum VNum = Abs(-123.44) MsgBox VNum '2)ArrayFunction '返回包含在一个数组里的变量值 Dim anyA anyA = Array("V1","V2","V3") MsgBox anyA(0) '在过程级中声明动态数组变量并分配或重新分[详细]
-
VB工程--百例92---拍照窗体
所属栏目：[大数据] 日期：2020-12-16 热度：89
Option Explicit Private Sub Form_Load() Dim wbitmap '定义变量 Me.AutoRedraw = True '使窗体能够自动重绘 wbitmap = CreateCompatibleBitmap(Me.hdc,0) '建立一个位图，高度和宽度均为0 SelectObject Me.hdc,wbitmap '将建立的位图放到设备环境中 Me.Ref[详细]
-
VB工程--实例93--图形窗体
所属栏目：[大数据] 日期：2020-12-16 热度：91
Option Explicit Private Sub Form_Click() End End Sub Private Sub Form_Load() Dim h,d As Long Dim scrw,scrh As Long scrw = Me.Width / Screen.TwipsPerPixelX scrh = Me.Height / Screen.TwipsPerPixelY h = CreateEllipticRgn(0,scrw,scrh) d = SetW[详细]
-
成长中的小菜——完善《机房收费系统》
所属栏目：[大数据] 日期：2020-12-16 热度：90
我想这是历时最长的一个程序，机房收费系统，从去年七月份开始，到现在，依旧没有完成，听着都恐怖，但是，下面讲讲为何他历时如此长的时间。 ***********************************************2011年八月*************************************************[详细]
-
软工学习一路走来
所属栏目：[大数据] 日期：2020-12-16 热度：136
从去年暑假到现在半年多的时间一直都走在软工的路上…… 暑假期间用vb做了两个系统，这是踏入这个行业以来，初次编写系统，学生管理系统米老师给了源码，我在做的时候，整体上看了vb与Sql交互的代码，照着敲了一部分代码之后就尝试着摆脱源代码的束缚，应该[详细]
-
参数的传递
所属栏目：[大数据] 日期：2020-12-16 热度：63
一、概念的理解 1、参数传递：在使用函数时，要填入与函数形式参数个数相同的实际参数（有默认参数的除外），在程序运行过程中，实际参数就会将参数值传递给相应的形式参数，然后在函数中实现对数据的处理和返回。 2、 形式参数：定义函数时函数名后面括号中[详细]
-
VB工程--百例94--屏幕保护
所属栏目：[大数据] 日期：2020-12-16 热度：122
敲此例题时出现了一个问题，就是程序运行后，鼠标找不到啦！经过不懈努力和高人指点，这才把问题解决啦！自己不懂的还很多，编程路任重而道远 。 下面红色字体是注释，认真读写。 Option Explicit Dim x,r Private Sub Form_KeyPress(KeyAscii As Integer) I[详细]
