说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

拖动无标题窗口-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
拖动无标题窗口-VB资料
通常我们是拖动标题栏来移动窗口,当没有标题栏时,该如何来拖动窗口呢?方法是 当我们在窗口区按下鼠标左键时,调用ReleaseCapture函数,释放鼠标的俘获,同时 发送移动标题栏的消息,就可以实现窗口的拖动。
下面的例子实现了该功能。
>>步骤1----建立新工程,在窗体上放置CommandButton按钮。
>>步骤2----改变窗体的外观,使BorderStyle = 0(None)
>>步骤3----编写如下代码:

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal _
wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Command1_Click()
End
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0
'SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
'上述两种方法都能实现该功能。
End Sub

>>步骤4----编译运行,在窗体上按下鼠标左键,是不是可以拖动了?按下Command1结束。
VB如何在VB中用API获得EXE文件图标并显示在Picture控件里 VB如何在VB中直接显示无格式256灰度级图像 VB如何在窗体中平铺图片? 三维字的实现 -VB资料 闪动窗口标题 -VB资料 闪烁的标题栏 -VB资料 实现画面的各种切换方法-VB资料 实现屏幕变暗的效果 -VB资料 实现图像切换效果 -VB资料 提取Win9x拷贝的动画-VB资料 一个图像滤光处理程序-VB资料 一个用VB5.0 实现的鼠标绘图程序 用VB6.0制作画图板 用VB6设计有趣的动画场景 用VB编程绘制网格图像 用VB绘制抛物线动画曲线 用VB绘制正弦动画曲线 用VB实现“百叶窗”的图形特效 用VB实现托盘动画图标 用Visual Basic 定制BMP文件 用Visual Basic的Move方法实现动画效果 用Visual Basic与MS-Draw开发通用作图软件 在VB中获取可执行文件及Windows 95快捷方式的图标 在VB中进行各种图形切换的方法 在VB中制作可滚动的图像显示 在图片上平滑移动文字 -VB资料 VB怎样使程序的标题条闪烁? VB制作图像的Mask图 CWinInetConnection-一个封装了WinInet API函数的类 -VB资料 MODEM通讯意外处理-VB资料 MsComm 文字传输-VB资料 那里可以下载倒Oracle9i?? 向各位汇编高手致敬,仰慕之情如滔滔江水 初学者函数调用问题 救救我吧!!!!!看这个查询如何做!在线等待!!!!!! 发现一个奇怪的问题求大虾帮一下. 大家对人文科学(哲学,心理学,伦理学等)怎么看待? 刚装好c++builder6就有问题:[linker fatal error] fatal:expected a file name高分请教 大侠帮看看这个问题! 交友!来者有分! 100分求救,关系ADSL连机问题,解决再开贴送分!高手进 升星无罪,散分有理 请问vb怎样关闭一个正在运行的程序,例如qq.exe,谢谢 商业软件一般用什么表格控件,报表?给分 18岁女孩的第一次(转帖) 当鼠标在Treectrl的Item上面停留时,会向主窗口发送什么通知消息? 请问我可以把autocad的文件作为一个字段保存到sql2000里面吗?我该怎么办了? 在一个Console程序中需要用到清屏(cls),但是聪console类中没有发现类似的功能,谁知道如何做?高分。 为什么一用request.htm进行搜索,就会要求下载保存search.asp文件? 怎样遍历一目录树并将其子目录及文件拷贝到另一地方 为什么当textArea的高度增大后它所在的单元格会变宽? 网上调查投票程序 ***散分求助--如何是jTable的某一列数据隐藏invisible,但是在数据还可以取出来? 安装quickstart问题,急……在线等待!!! 大送分 怎样写个SQL语句,把不及格的学生放在表noPass里? 黑客2观后感 明天要参加兄弟的追悼会。 在delphi中引用图片(jpg格式)如何限制图片的大小? 找不到Microsoft Office Server Extensions破解版的下载地址 关于VB二级考试的问题(请各位大虾多多帮忙撒:) DBComboBox非常奇怪的问题? 并发可以分为哪两种类型,或哪两种原因造成的? 真想把发垃圾邮件的邮箱和网站给黑了 如何得到一个目录的大小(关键要包含所有的子目录),有什么简单办法吗? 多表间的数据更新(在线给分) 再向大家提个问题,还是求救啊,大家都来帮帮我吧 求救:怎样控制Kodak控件中ImgThumbnail组件的问题 为什么我安装的 XPMenu 控件不听使唤的? 握一把苍凉 怎样遍历一目录树并将其子目录及文件拷贝到另一地方 一个列表控件如何转变为带有滚动的窗口视图? 我想学习写游戏,希望对此有兴趣的朋友,或者能给与帮助的朋友留下联络方法,便与交流 怎样给窗口加滚动条? 大家帮我看看这个存储过程,调用时老报错!! 求救:怎样控制Kodak控件中ImgThumbnail组件的问题 高人救命,如何让在单行textBox中按回车时不会“咣”的一声 在<script language="javascript">中使用aspb出错啊! 求救:怎样控制Kodak控件中ImgThumbnail组件的问题 郁闷!。。。今年我决定不考研。。。人家留在学校备考,我留在学校做课程表查询系统 filter怎么用呀? 怎样可以使得listview可以根据不同的列排序? "大地春光好,神州气象新" 用一段文字描写一下 酸楚的我不禁什么然泪下这个名句是什么 我的双肩背包的牌子周围红色,中间一个十字的图案,是什么品牌周围有个since 1893的字,中间是一个正方形,里面周围是红色,中间是个金黄色的十字图形.想知道是神马牌子的. 请问环境标志图形的中心是山、水和太阳,表示人类的( 不要在红灯点时过马路英语怎么说 日月潭水就是女儿想念母亲时流下的眼泪用的什么修辞手法 伤感的句子 就是 我已经学会面对新的感情……不会傻傻哭 LOVE BY.丫头 把前面的句子改一改 伤感的句子 就是 我已经学会面对新的感情……不会傻傻哭 LOVEBY.丫头把前面的句子改一改 根据古代《僧六律》的解释:一刹那为一念,二十念为一瞬,二十瞬为一弹指,二十弹指为一罗预,二十罗预为一须臾.一日一夜为三十须臾.请问:“一刹那”是多少秒? 不止是树,人也是一样,在不确定中生活的人,能比较经得起生活的考验,会锻炼出一颗独立自主的心.这句话的意思说的是词语____ 请问( )的南风 括号里应该填什么词语 注意是这个的不是地 用there be句子 外媒:美国使馆搞监听激怒亚洲多国英报:高尔夫球场或成中共反腐“新阵地德内政部长称接受斯诺登帮助 但拒绝为美国国土安全部爆工资丑闻 1年多发8克里称NSA监控为“自动导航” 指责巴基斯坦塔利班首领被美击毙 巴和平进美83岁珠宝大盗涉嫌“重操旧业”被捕NSA被曝窃听国际货币基金组织和世界以色列空袭叙利亚 打击俄制导弹库阿根廷出新规应对外汇加速“失血”日本警察和站街女的战争【图】“魅力之夜”贵阳业余足球联赛开赛也门冲突各方达成停火协议亚运礼仪小姐没整容?探访韩国整形业:帮你保持苗条盲人朋友,让我给你讲故事射击射箭比赛结束“神医作法”消灾7万现金变废纸贵阳新航道学校成立超千人群众性活动须公安许可七年级学生抢救无效死亡国寿8月份强势逆袭
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘