-
VB将 数组元素作为实参
VB将 数组元素作为实参,本例可以求出三个一元二次方程的根。请先单击命令按钮,先输入各个方程的系数,
- 2023-06-29 13:10:04下载
- 积分:1
-
VB演示 FileToSplit分割文件与合并文件
VB演示分割文件与合并文件,这里使用到比较多的文件操作函数,比如FileToSplit、FileLen、UBound、FileCount、FileInfo等。本范例文件分割的思路:程序通过调用FreeFile函数来取得可以的文件号,以二进制的方式打开文件,根据文件的长度FilesLen和每个分割单位的比较,得出被分割之后的子文件个数,重新定义最后一个子文件的大小,将所取得的内容,分别存储到各个子文件中,将文件分割情况,存储到自定义的结构类型FileInfoFile中,最后将文件分割的情况,存入到模版文件中。
关于文件合并,则可看作是上述的逆过程,不再详述,请参见源码中的文件注释。
- 2022-11-15 13:30:03下载
- 积分:1
-
VB 石头剪刀布猜拳游戏
VB 石头剪刀布猜拳游戏,游戏操作方法:在窗体左下方的石头、剪子、布图标中,单击用户想要出的一种手势,电脑会自动给出该手势,任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑:
将用户和计算机所选的图片的序号合成一个字符串,根据这个字符串判断用户的输赢
00 石头对石头 重来
01 石头对剪子 用户赢
02 石头对布 用户输
10 剪子对石头 用户输
11 剪子对剪子 重来
12 剪子对布 用户赢
20 布对石头 用户赢
21 布对剪子 用户输
22 布对布 重来
- 2023-07-03 14:45:03下载
- 积分:1
-
VB.NET 多线程TCP端口扫描工具
VB.NET 多线程TCP端口扫描工具,使用前请输入要扫描的网段IP和端口,本程序可将扫描到的开放端口数量显示在窗口中,扫描时应用了多线程技术,扫描时显示当前线程数,适时显示扫描进度和扫描时间,以毫秒计时,扫描速度提升了不少。
注:本程序仅能扫描开放的端口,被禁止和未开放的端口不能被扫描到。
- 2022-05-25 05:47:04下载
- 积分:1
-
VB删除指定路径下的文件夹【目录】
VB6.0 删除指定路径下的文件夹【目录】 ,删除时请输入要删除文件夹的所在路径和名称,单击按钮即可。支持遍历目录删除文件,我觉得这是一个挺好的使用FSO操作的VB范例,对于VB新手学习相关的文件操作有很好的帮助。
- 2022-03-19 05:31:28下载
- 积分:1
-
VB 6.0 打印与打印预览功能源码
VB 6.0 打印与打印预览功能源码,这个打印预览可以调节预览的放大倍率,在不同的放大状态下预览打印内容,支持打印文字内容和图片的内容,自动调用Windows默认的打印机进行打印,如测试截图所示的效果。
- 2023-05-22 11:35:03下载
- 积分:1
-
VB SetWindowLong限制调整窗口大小的最大值
VB 限制调整窗口大小的最大值,我们根据SetWindowLong函数的说明 ,可写出一个函数,当用户拖动窗口时,控制窗口最大能拖动到什么大小,当达到最大值时,窗口就不能继续被拖大,我们定义一个函数,在打开这个VB窗口时自动加载函数,实现对窗口最大拖动大小的控制:
Private Sub Form_Load()
Dim ret As Long
preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc)
End Sub
- 2022-10-14 18:50:03下载
- 积分:1
-
VB实现子窗体跟随主窗体自动移动
VB实现子窗体跟随主窗体自动移动,这个窗体的形式,相信大家也见到过,就像一些播放器的子窗口,当拖动主窗体的时候,子窗体会跟着移动,紧紧贴服,自动跟随,好像是主窗口带有磁性一样。
测试时,请在主窗口中单击“打开跟随窗体”后,会显示子窗口,此时拖动父窗口,即可看到效果。
- 2023-07-19 00:25:03下载
- 积分:1
-
vb实现调用其他应用程序的菜单
vb演示如何调用其他应用程序菜单的方法,程序演示了在VB程序中,调用 windows记事本程序的菜单,不过测试发现,本程序在Windows 7中失效了,本代码写于2010年的,有些早了,当时可能只考虑了Windows XP,可能需要对以下代码加以修正,才能适用于windows 7/10环境:
hwnd = FindWindow(vbNullString, "无标题 - 记事本菜单")
If hwnd = 0 Then Exit Sub
hMainMenu = GetMenu(hwnd)
hMenu = GetSubMenu(hMainMenu, 0)
MenuID = GetMenuItemID(hMenu, 3)
AppActivate "无标题 - 记事本菜单"
Ret = SendMessage(hwnd, WM_COMMAND, MenuID, 0&)
- 2022-06-26 16:44:01下载
- 积分:1
-
VB制作圆形窗体界面
VB6.0制作圆形窗体界面,打开后是一个矩形窗体,双击后变为一个圆形窗口,创建一个矩形区域的API函数,用来将窗口恢复为矩形,同时创建一个椭圆形区域的API函数,圆形应该是一个规则的矩形窗口,代码还是挺简单的,而且还有注释,非常适合学习研究VB的窗体制作,有兴趣的下载源码。
- 2022-04-14 23:47:36下载
- 积分:1