-
VB制作可移动按钮位置的Toolbar工具栏
VB制作可移动按钮位置的工具栏,这个窗口中的Toolbar允许用户自己调整位置,可以拖动至指定位置,记得word中的工具栏就是这样,当你改变默认的工具栏布局时,程序会使用 MsgBox ("您确实要调整工具栏按钮的位置吗?")弹出确认信息。另外,本范例也可看作是一个在VB窗口中制作图标菜单的好范例,如示例图所示的效果。
- 2022-11-01 12:50:03下载
- 积分:1
-
VB6 利用Combo、DTPicker组合框辅助录入数据
VB6.0 利用组合框辅助录入数据,输入框什么的就不多说了,主要学习VB6 中的Combo、DTPicker组合框在录入数据时的用法,方便用户选择数据、选择时间,特别是时间,可固定为指定格式,防止程序出错等。
- 2023-03-15 11:25:03下载
- 积分:1
-
国外的VB版跳棋游戏源码
一款国外的VB版跳棋游戏源码,源代码中同样包括了很多注释,不过注释都是英文。这款跳棋感觉和国内的不一样,走棋方法不同,试着玩了,按照国内的走棋方法,棋子并不走动,不知道如何玩。但是源代码在VB6.0下可顺利编译成功,有兴趣的可下载源代码参考学习。运行效果如下图所示。
- 2022-04-21 21:15:12下载
- 积分:1
-
VB模拟输入的成绩判断奖学金等级
VB模拟输入的成绩判断奖学金等级,测试前请输入学生的三门功课的成绩,输入成绩后,程序会根据预设的判定一、二、三等奖学金的条件,来判断该同学成绩应该属于几等奖学金。
这类程序其实容易实现,中间的一些小技巧我觉得不错,比如当用户输入一科成绩后,光标自动定位到下一个文本框,如果需要用户输入内容比较多的时候,这个功能可大大提升用户体验。
更多源码细节请下载查看。
- 2022-02-20 07:54:43下载
- 积分:1
-
VB6 设计带记忆的DataGrid数据录入窗口
VB6 设计带记忆的数据录入窗口,这种记忆实际上是将DataGrid临时输入的数据存入到数据库中了,是一个数据库应用范例,本例子中的数据库采用的Access。在本例中,用户临时对任意DataGrid行列操作时输入的内容,临时保存至数据库中,使用时及时读取,模拟中了记忆功能,方便了用户操作,不过未做测试,不知道数据量较大的时候,会不会对数据库造成压力,有心者可以自行测试哦。
- 2023-04-17 21:20:02下载
- 积分:1
-
vb.net 串口通讯测试项目源码
vb.net 串口通讯测试项目源码,本源码用于练习SerialPort控件、DataReceived事件、16进制操作,同时用于工程需要。作者:李潇海。
运行后先检测测试需用的COM端口是否打开,弹出提示。
测试时请确保发送周期为正整数!串口测试窗口中,可配置参数:端口、波特率、检验位、数据位、停止位等,支持以十六进制发送和接收数据,还可以毫秒定时发送数据。操作方式上,可设置自动清空测试数据,发送文件或发送数据等。右侧为串口测试时的结果显示区。
- 2023-02-14 09:00:03下载
- 积分:1
-
vb.net复制、移动删除及获取文件的各种属性
vb.net获取TXT文件的各种属性参数,除了复制、移动文件、删除文件外,还可获取到文件的各种属性参数,不过只是针对TXT文本文件,可以获取到以下的参数:文 件 名 、路 径 、文件大小 、创建文件时间、最近访问时间、最近写入时间、是否隐藏文件、是否只读文件、是否系统文件 、是否脱机文件等 。
- 2022-01-26 07:50:33下载
- 积分:1
-
vb 交换两个变量的值
vb 不借助第3个变量实现两个变量互换,交换两个变量的值,在窗口上输入a和b的值,从运行效果截图你可看出这个功能:
If IsNumeric(Txt_a.Text) Then
a = Val(Txt_a.Text)
Else
MsgBox "请输入数字!"
Exit Sub
End If
If IsNumeric(Txt_b.Text) Then
b = Val(Txt_b.Text)
Else
MsgBox "请输入数字!"
Exit Sub
End If
a = a + b
b = a - b
a = a - b
Lbl_Info.Caption = "a的值是:" & a & " b的值是:" & b
- 2023-09-06 03:35:03下载
- 积分:1
-
VB6 FileExists判断文件是否存在
VB6 判断文件是否存在,使用VB内置的函数FileExists来实现,可以说实现方法简单,直接调用函数(文件路径)即可,至于返回的结果,这里有两种形式,一种是以MsgBox的方式弹出窗口告之,另一种是返回布尔值,True或False,然后再进行相关处理。关于FileExists用法,有以下代码供参考:
Dim B As Boolean
B = FileExists(Me.Txt_Path.Text)
If B Then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
End If
以上代码段封装在按钮事件中,用户单击按钮后,执行本段代码,判断指定的文件是否存在。
- 2022-07-04 15:21:27下载
- 积分:1
-
文件夹复制VB6.0实例
文件夹复制VB6.0实例源码,这里用了一个用户自定义函数,此函数可以出现一个对话框,并返回所选择的路径,若没有选择返回("")。模拟了Windows系统的文件夹模拟功能,看上去比较低级,只是通过这个功能,熟悉一些VB与文件操作的函数用法。
- 2022-03-05 20:29:32下载
- 积分:1