-
VB6.0检查是否有拨号连接
VB6.0检查你的电脑是否有拨号连接,获取本机的网络连接列表,重点是检测是否有拨号网络连接。
- 2022-07-25 20:56:18下载
- 积分:1
-
VB使用曲线图展示各项指标完成情况
VB6.0折线图生成实例,使用曲线图展示各项指标完成情况,同样是使用了MSChart控件的功能,这个折线图的数据取自SQL数据库,在程序中会建立数据库操作模块,将数据读取出来,然后交给折线图生成模块,最终生成这种不同颜色的曲线图,每条曲线都代表一项指标,在视图方面,本示例中的折线图可以按行显示标记,也可以叠置显示,最终效果,如测试图示.
运行前,请确保已正确连接测试数据库,否则程序不能运行.
- 2022-07-21 12:00:00下载
- 积分:1
-
VB.net 生成条形码code128条码
VB.net绘制生成code128条形码的例子,另外还有EAN128、包括了Code128 A/B/C类型的条形码,程序非常好用,在文本框输入规定要求的数据,即时输入,即时生成。程序中为生成条形码,创建了一些函数,比如显示可见条码文字 如果小于40 不显示文字、获取条形码宽和放大系数、获得条码图形、根据编号获得条纹、获取目标对应的数据、偶数检测判断、获取128图形等,在VB.NET生成条形码的朋友,本范例源码是个很好的参考。
- 2022-02-14 15:50:30下载
- 积分:1
-
VB 6 在DataGrid表格中实现下拉列表框
VB 6.0 在DataGrid表格中实现下拉列表框,大家可以看截图,在如演示效果所示的DataGrid表格中,单击“单位”一列任意行数据,会显示出一个下拉框,供输入者选择单位,扩展了DataGrid的功能,增加了易用性,提升了用户体验。添加这一功能的核心代码为:
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "tb_stock"
Set DataGrid1.DataSource = Adodc1
List1.AddItem ("支")
List1.AddItem ("瓶")
List1.AddItem ("盒")
List1.AddItem ("袋")
DataGrid1.Columns(6).Button = True
仅供参考,本示例是配合数据库实现的,请确保测试时数据库是连接的。
- 2022-07-26 04:39:52下载
- 积分:1
-
vb串口调试助手源码,可用于自己做调试测试工具
1.用易懂的VB语言编程 2.可设置串口号波特率 3.支持十六进或字符形式发送或接收,可定时发送。3,可自己换程序的图片
- 2022-07-13 02:02:52下载
- 积分:1
-
VB 演示如何使用WeekdayName获取星期名称
VB 演示如何获取星期名称,这里获取星期几是使用了VB内置的WeekdayName函数,将获取到的日期和星期几直接显示在Text控件中,下面是这个函数的具体用法:
Private Sub Command1_Click()
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub
Private Sub Form_Load()
Text1.Text = Date
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub
在VB6.0 IDE环境中编译此源代码,生成如演示截图所示的运行效果。
- 2022-11-30 01:55:03下载
- 积分:1
-
VB6.0演示的AutoSize实例
VB6.0演示的AutoSize实例,自动改变图片框的大小以显示图形全部内容,当图片框比图形小时,图形超出部分不被显示,减少图片框高度,使图片框小于图形。
- 2022-08-07 04:59:17下载
- 积分:1
-
VB生成圆形图表,圆饼百分比图表
VB成绩统计饼图,生成圆形图表,圆饼百分比图表的例子,这种图表相信大家见多了,这个例子介绍了VB简单生成圆饼图的方法,对初学VB的朋友会有帮助,通过这个图表,你可以了解绘图、填充、按比例分配、绘制扇形等是如何实现的,用它来显示优秀人数、良好人数、及格人数、不及格人数所占的比例,各个比例用不同的颜色填充,让结果一清二楚,源代码运行于VB6.0环境 ,运行效果如下图所示。
- 2022-05-15 05:38:34下载
- 积分:1
-
VB 6.0将时、分、秒转换为时间
VB 6.0将时、分、秒转换为时间,就是把输入文本框中的内容,重新组合,并添加连接符,形成人们视觉习惯上的时间格式。
其实实现这个功能,不两行代码就可实现了:
Private Sub Command2_Click()
t = TimeSerial(Text1, Text2, Text3)
Label4.Caption = "时间为:" & t
End Sub
- 2022-08-15 03:56:46下载
- 积分:1
-
VB6.0仿迅雷悬浮窗口(图标)的实现源码
VB6.0仿迅雷悬浮窗口(图标)的实现源码,迅雷的悬浮窗相信大家很熟悉了,其实就是显示一个图标,悬浮在屏幕上,通过这个悬浮图标可单击右键调出菜单,双击图标则会显示主窗口,本源码模拟了悬浮窗口的实现,另外是模拟了悬浮窗口双击显示主窗口的功能。代码中注释不多,不过没有使用过多复杂的代码,对VB新手友好。
- 2022-03-24 09:58:35下载
- 积分:1