看懂代码，自己学着改：
If e.Form.baseform.Top <= 0 Then '如果顶部<=0，即把窗口向上移动靠边
Dim x As Integer = System.Windows.Forms.Cursor.current.position.x '鼠标在屏幕的x坐标,离屏幕左边距离
Dim y As Integer = System.Windows.Forms.Cursor.current.position.y '鼠标在屏幕的y坐标,离屏幕上边距离
If x < e.Form.BaseForm.Left OrElse x > e.Form.BaseForm.Left + e.Form.BaseForm.Width OrElse y > e.Form.BaseForm.Top + e.Form.BaseForm.Height Then
'人鼠标不在窗口范围之内
e.Form.Baseform.Top = - e.Form.Baseform.Height + 10 '窗口顶部向上移动窗口的高度,留出10像素的底部位置
Else
e.Form.Baseform.Top = 0 '如果鼠标在窗口范围内,把窗口顶部设置为0,即显示窗口
End If
End If
[此贴子已经被作者于2019/7/23 22:56:07编辑过]
加好友 
发短信
Post By：2019/7/6 10:59:00 [显示全部帖子]
