×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载随时随地聆听大师开讲/课堂酷素材!视频教程打包下手绘教程
咔咔摄影抠图教程路径专辑photoshop cs3视频教程 
查看: 3025|回复: 5

如何移动创建的无标题栏窗体位置

[复制链接]

该用户从未签到

发表于 2007-9-29 11:10:19 | 显示全部楼层 |阅读模式
借助API函数,通过鼠标的MouseDown、MouseMove、MouseUp三个事件可完成无标题样窗体的移动。
’在通用部分声明私有API函数及公用变量
Private Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long
 Dim pos As pointapi
 Dim mouselsdown As Boolean
 Dim dx, dy As Long
 Private Type pointapi
  X As Long
  Y As Long
 End Type

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If Y > 240 Then Exit Sub:’当鼠标的位置在此范围时移动有效,你可以改变这一数值
 mouselsdown = True
 dx = X / 15: dy = Y / 15
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If mouselsdown Then
  GetCursorPos pos
  Move (pos.X - dx) * Screen.TwipsPerPixelX, (pos.Y - dy) * Screen.TwipsPerPixelX
 End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 mouselsdown = False
End Sub

该用户从未签到

发表于 2018-7-11 14:15:26 | 显示全部楼层
真心顶。。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-7-11 14:09:30 | 显示全部楼层
难得一见的好帖
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-7-11 13:54:23 | 显示全部楼层
很好哦。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-7-11 14:25:24 | 显示全部楼层
学习了。。。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-7-11 13:48:20 | 显示全部楼层
好帖子要收藏
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [免费注册]

本版积分规则