-
VB 6.0 过程引用传递参数
VB 6.0 过程引用传递参数,显示传递前和传递后的参数值:
Private Sub mysub(ByRef i As Integer)
i = 100
End Sub
Private Sub Form_Resize()
Dim num As Integer
num = 1
Print "传递前:" & num
Call mysub(num)
Print "传递后:" & num
End Sub
- 2022-02-12 05:00:23下载
- 积分:1
-
VB制作圆形窗体界面
VB6.0制作圆形窗体界面,打开后是一个矩形窗体,双击后变为一个圆形窗口,创建一个矩形区域的API函数,用来将窗口恢复为矩形,同时创建一个椭圆形区域的API函数,圆形应该是一个规则的矩形窗口,代码还是挺简单的,而且还有注释,非常适合学习研究VB的窗体制作,有兴趣的下载源码。
- 2022-04-14 23:47:36下载
- 积分:1
-
VB.NET将任意图像文件设置为鼠标形状
VB.NET将任意图像文件设置为鼠标形状,变换光标,光标文件读取,支持自定义光标的图像文件格式为:图像文件(*.jpg;*.gif;*.png;*.bmp)。操作方法挺简单的,点击 按钮选择一个格式合适的光标文件即可,注意查看鼠标光标的变化。
- 2022-05-05 06:26:41下载
- 积分:1
-
药品管理程序源码Vb 6.0 SqlServer
一款基于VB开发的药品管理程序,数据库采用SqlServer,运行之前首先在SQL查询分析器里执行SQL目录下的myMedsys.sql脚本.大家可根据源程序代码自行扩展程序,二次开发完善。
- 2022-04-24 20:15:24下载
- 积分:1
-
VB6.0仿迅雷悬浮窗口(图标)的实现源码
VB6.0仿迅雷悬浮窗口(图标)的实现源码,迅雷的悬浮窗相信大家很熟悉了,其实就是显示一个图标,悬浮在屏幕上,通过这个悬浮图标可单击右键调出菜单,双击图标则会显示主窗口,本源码模拟了悬浮窗口的实现,另外是模拟了悬浮窗口双击显示主窗口的功能。代码中注释不多,不过没有使用过多复杂的代码,对VB新手友好。
- 2022-03-24 09:58:35下载
- 积分:1
-
VB Socket获取主机名和IP地址
VB Socket获取主机名和IP地址,获取主机名是使用了VB中的GetComputerName直接得到,然后对Socket初始化,使用gethostbyname取得主机地址,再获取到IP后进行转化为标准的IP格式。转换过程如下:
RtlMoveMemory host, hostent_addr, LenB(host)
RtlMoveMemory hostip_addr, host.hAddrList, 4
ReDim temp_ip_address(1 To host.hLength)
RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLength
For i = 1 To host.hLength
ip_address = ip_address & temp_ip_address(i) & "."
Next i
ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)
MsgBox "IP:" + ip_address
- 2022-10-23 19:55:03下载
- 积分:1
-
VB.NET窗体Tab 读取ini文件 界面滑动等功能集
本源码基于VB.NET编写,集合了VB.NET中的读取ini文件,窗体Tab标签,界面滑动等效果,界面看上去是一个音乐播放器,其实本程序是侧重于界面的编程设计,演示了窗口中TAB标签切换、界面滑动以及整体界面的美化的具体实现,使用了比较多的三方DLL,已经都打包了,感兴趣的下载源码,在VS2012版本以上的VS中打开并编译。
- 2022-01-26 07:32:46下载
- 积分:1
-
VB NET写的DVD播放器源代码
播放器窗口界面中的操作菜单,实现了弹出菜单的功能,把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。
播放器功能支持DVD格式的视频播放,包括了暂停、播放、停止、弹出等功能。
本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。
- 2023-05-18 15:05:03下载
- 积分: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
-
VB6 获取当前打开窗口数量
VB6 获取当前打开窗口数量,如何获取当前打开窗口数量,本示例打开一个窗口后,在测试时会打开另外一个窗口,然后主窗口中会统计到这个打开的窗口,把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的用法。调用新窗口显示可参考以下代码:
Private Sub Command1_Click()
Form2.Show
Call Form_Activate
End Sub
Private Sub Form_Activate()
Text1.Text = DoEvents()
End Sub
- 2022-07-19 06:40:19下载
- 积分:1