vb无边框窗体的拖动 - Visual Basic - 有风塘网络
vb无边框窗体的拖动
作者:飞鱼 【
】 浏览:367次
用vb写程序的朋友，在后期程序美观设计的时候，很多人都喜欢去掉窗体的边框，然后用image等控件，加载ps好的图片来装饰我们的程序，最大、最小、关闭按钮等都可以模拟，可有时候也不得不遇到一个问题，那就是窗体的拖动。当我们去掉窗体边框之后，标题栏也没了，这时候如果我们因某个功能的需要，需要让用户能拖动窗体，怎么实现了？解决的办法当然不是放弃美观，显示边框，我们可以用label控件模拟，同时让它具有窗体拖动的功能，如下：1、启动vb程序，添加一个窗体，并将其边框设为none&&&(BorderStyle属性设置为0-none&)2、在窗体的顶部添加一个label控件name属性为&labFormTitle，可根据美观需要设置它是否背景透明等3、在窗体里添加如下代码：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 Declare Function ReleaseCapture Lib "user32" () As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const HTCAPTIO = 2
Private Sub labFormTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture 'WM_SYS向窗体发送一个移动窗体命令
Call SendMessage(Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTIO, 0)
'SC_MOVE+ HTCAPTIO表示单击左键移动窗体
End Sub运行一下看看，是不是可以拖动了？其他的就是根据自己的需要设置labFormTitle的大小、位置、用image模拟背景什么的了！
你也可以顺便说点什么 O(∩_∩)O【图文】第2章 VB简单程序设计_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
第2章 VB简单程序设计
上传于||暂无简介
大小：724.00KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢vb设置borderstyle=0后无法移动窗体，求解决！能很好解决者重赏！_百度知道
vb设置borderstyle=0后无法移动窗体，求解决！能很好解决者重赏！
解释清楚要纯代码用API
提问者采纳
VBBorderStyle属性0窗体没边框并且没与边框相关元素种窗体具简洁、占用空间少等优点用设计某些富性窗体由于没标题栏窗体能移同能改变
用API解决问题监视鼠标作记录鼠标按候坐标根据鼠标移坐标计算窗口新坐标并赋值即 Dim ctX As Single, ctY As Single Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ctX = X: ctY = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Me.Move Me.Left - ctX + X, Me.Top - ctY + Y End Sub满意请采纳
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁君，已阅读到文档的结尾了呢~~
第3章 简单vb程序设计
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
第3章 简单vb程序设计
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口VB模拟试卷和答案_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB模拟试卷和答案
上传于||暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
下载文档到电脑，查找使用更方便
还剩13页未读，继续阅读
你可能喜欢}