扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
获取屏幕大小宽和高 和初始化窗口的尺寸 屏幕减尺寸等于你想要的left值 和top值 即屏幕比你窗体高多少 宽多少就是你右对齐的初始值 右上角对齐top依旧为0
创新互联公司专业为企业提供华宁网站建设、华宁做网站、华宁网站设计、华宁网站制作等企业网站建设、网页设计与制作、华宁企业网站模板建站服务，十年华宁做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
'点击窗口的任何位置拖动窗体
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.Left = Me.Left + X - ctX
Me.Top = Me.Top + Y - ctY
End If
End Sub
方法有二：
1。写代码判断窗体和鼠标位置，并且做相应的动作
2。使用屏幕边缘自动隐藏控件
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网