龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

无框窗体移动最简法（程序）

时间:2009-12-30 15:42来源:未知 作者:admin 点击: 次
分享到：
Dimi,x1AsDouble,y1AsDouble,x2AsDouble,y2AsDouble
　　PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　i=1
　　x1=X
　　y1=Y

EndSub

PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　Ifi=1Then
　　x2=X-x1 form1.lift
　　y2=Y-y1 form1.top
　　form1.movex2,y2

EndIf
　　EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　i=0

EndSub

->

精彩图集
灵活实用的VBS入门教程基础篇
灵活实用的
Vbs COM之打开/保存文件脚本代码
Vbs COM之打开
当某IP 连接我机器的3389端口 报警的脚本
当某IP 连接

热门标签

video标 android模拟 上传文件限制 文有乱码 自动清理 php php中让脚本 单字母函数 getline()函数 gzcompress函数 小爬虫 入侵测试 toLo php php复制文 地图经纬度 循环改变 缩放 文字 列索引 OCI8安 图片库 抓取 一段简 Gif图片 fso 导致ASP.N getopt_long SendKeys参考文档 Table mysql导出数据 编 创建文件夹 GraphicsMagi strnatcmp vmstat 实现机制 立体声 导出函数 自增ID gzip压缩 域控制器 IIS6 判断质数 强制文件下载 站点地 php php无限分类 Login swing 代码重构 bt种子 跨服务 自定义函数 转换大写 运行程序 xml 统计日志 回帖脱衣服 框架设计 日志记录 动态移动 升级 异步

赞助商链接