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

拖动无标题窗口-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结束。
横评美国IaaS“8匹狼”:AWS、GCE、Azure、Rackspace、SoftLayer、Dell、HP、Joyent 独立游戏精神释放的舞台:IGF China 2013作品火热征集中 三款热门入门级在线编程教程对比 微软modern.IE:网站兼容性测试利器 Localytics:AngularJS代替Backbone 代码减少一半 一个小问题(在线等了,谢谢) 怎么在 win2003 上安装 sql server 200 个人版 大力,求助!关于如何复制表结构的问题 急,U盘问题,请各位赐教。 各位大侠,请问一下在C里面想给一个结构初始化全部赋值为0,是不是可以在定义的时候用TTinfo tInfo = {0}来实现啊。这样赋值是不是只能保 如何实现三表合并! 请教高手,如下语句有何错误? 急,U盘问题,请各位赐教 怎摸学好美工呢? 新学期新打算,300-350字一定要符合实际,我是 新学期新打算300字四年级 我女儿叶凤鸣,属老虎的,想起个英文名, 以骄傲为话题写作文初二水平600字 初二以上水平的作文:因为懂得,所以______ 不 思念远方的亲人,作文!200字! 思念亲人或家人的作文 谁能帮我写《新学期的见闻》的提纲和文章啊?100分 450字的新学期见闻,要怎么写啊? 四川泸州逾百名商贩不满涨租金集体罢市美国纽约5人遭持刀袭击身亡 警方已拘人大校内开设俄式西餐厅 网友赞高贵大印度连日暴雨致29人丧生 逾7万人强福田康夫:日本的发展需要依赖国际社会蔷薇──梅雨有感赞皇:土地纠纷生积怨 母子杀人被批《成吉思汗颂》等48首“蒙古古乐”回流动宽松支撑债市走强 债基成二季度赢德国电信杯拜仁胜沃尔夫夺冠 莱万表现哪一个是我神作之合玄变幻化校花的贴身飞刀危险未来嘉措拉山口旅游桑日马鹿自然保护区旅游南京市规划建设展览馆旅游临沂东关街旅游响沙湾沙漠旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘