-
VB.NET 获取全局鼠标坐标范例
VB.NET 获取全局coordinate鼠标坐标,显示窗体内的XY坐标,窗体外凡是显示屏幕的任意位置都可以显示出坐标,获取全局鼠标坐标,测试截图是获取本窗口外的鼠标坐标,请参见截图效果。随着鼠标移动会显示出各个鼠标坐标点的XY坐标信息。单击窗口的“开始”按钮后,将执行以下代码获取全局坐标:
GetCursorPos(p)
tooltip1.SetToolTip(Me, "当前鼠标位置 X=:" & p.x & "Y=:" & p.y)
tooltip1.Active = True
- 2022-11-10 13:15:03下载
- 积分:1
-
股票采集数据源码
用VB编的股票采集数据源码、分享出来希望对大家有用。
- 2022-07-10 11:37:10下载
- 积分:1
-
VB6.0 添加、修改、删除数据库指定表
VB6.0 添加、修改、删除数据库指定表,添加、修改、删除作者表,VB6.0 添加、修改、删除数据库指定表。
- 2022-08-15 01:24:59下载
- 积分:1
-
VB6 利用Combo、DTPicker组合框辅助录入数据
VB6.0 利用组合框辅助录入数据,输入框什么的就不多说了,主要学习VB6 中的Combo、DTPicker组合框在录入数据时的用法,方便用户选择数据、选择时间,特别是时间,可固定为指定格式,防止程序出错等。
- 2023-03-15 11:25:03下载
- 积分:1
-
VB.NET 软件在线自动升级功能演示
VB.NET 软件在线自动升级功能演示,含源代码,程序自动更新版本源码中核心文件为UpdatingForm.vb,此文件包括了程序自动升级的主要功能,比如更新显示信息、删除不需要的文件、查找客户端需要更新的文件和需要删除的文件、查找服务器端新增需要下载的文件、版本控制文件为必须下载文件、设置当前下载的文件序数、强制结束进程等。
本程序需要一个存放软件最新版本的服务器或者是网址,程序运行后最先检测该网址下的软件是否是最新,若该网址不存在或出错,程序将不再继续,直接退出,如图所示。
- 2022-07-23 12:00:34下载
- 积分:1
-
窗体分割 窗口分栏程序- vB版
窗体分割 窗口分栏程序- vB版,这个可将窗口分为上下部分、左右部分,可分成二栏、三栏,通过程序左侧的参数设置面板,决定程序窗口要经过怎么的切割。本源码同样来自于国外源代码网站。代码注释英文,这里就不帖代码,你可以单击页面底部的“下载源码”按钮,下载本窗口切割实例的完整源码。
- 2022-09-05 06:00:03下载
- 积分:1
-
简单的VB6 播放视频文件程序
简单的VB6 播放视频文件程序,也算是一个简单的视频文件播放器吧,核心基于Windows中的msdxm.ocx控件,可控制播放文件开始暂停、快进快退等简单操作,在测试时如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.
- 2022-09-24 03:35:03下载
- 积分:1
-
VB整源码判断字符串中某一字符是否大写
VB编写完整源码判断字符串中某一字符是否大写,执行下面的代码,这个例子简单哦,不多介绍了,直接看代码吧:
If Asc(Mid(Text1, Val(Text2), 1)) >= 65 And Asc(Mid(Text1, Val(Text2), 1)) = 97 And Asc(Mid(Text1, Val(Text2), 1))
- 2022-06-27 09:12:36下载
- 积分:1
-
VB制作的软件助手动画 使用Microsoft Agent控件完成
VB使用Microsoft Agent控件制作的软件助手动画,软件助手这个相信大家都熟悉吧,最早的Office里面,就有一个大眼睛小助手,不过感觉这个小助手似乎并没有赢得大家的喜爱。本程序就是调用Windows中固有的Agent控件够实现一个简单的小助手,为制作同类程序的VB开发者提供参考。
注:我测试失败了,我的系统是Widows7,当时这个程序是面向Windows XP的。
- 2023-01-24 11:35: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