从品牌网站建设到网络营销策划,从策略到执行的一站式服务
获取屏幕大小宽和高 和初始化窗口的尺寸 屏幕减尺寸等于你想要的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。使用屏幕边缘自动隐藏控件
咨询相关问题或预约面谈,可以通过以下方式与我们联系
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询400-028-6601
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图