| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 已解决[求助]任务栏闪烁，怎么做？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137449) |
|
| -- 作者：zto001 -- 发布时间：2019/7/6 10:27:00 -- 已解决[求助]任务栏闪烁，怎么做？ http://www.newxing.com/Code/VC/jiemian/1606.html vb例子，这种狐表怎么做？
[此贴子已经被作者于2019/7/25 16:59:54编辑过]
|
|
| -- 作者：有点蓝 -- 发布时间：2019/7/6 10:59:00 -- 截图说明一下 |
|
| -- 作者：zto001 -- 发布时间：2019/7/6 11:26:00 -- 像qq一样，到边缘隐藏，鼠标再移过来，又出现 |
|
| -- 作者：有点蓝 -- 发布时间：2019/7/6 11:53:00 -- 请自行研究：https://www.baidu.com/baidu?word=vb.net+c%23+QQ+靠边+隐藏 |
|
| -- 作者：zto001 -- 发布时间：2019/7/6 14:24:00 -- 算了，放弃 |
|
| -- 作者：zto001 -- 发布时间：2019/7/7 13:02:00 -- http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=55531&page=0&move=pre |
|
| -- 作者：zto001 -- 发布时间：2019/7/23 22:28:00 -- http://www.newxing.com/Code/VB/jiemian/606.html这是我从网上找的，该怎么该？
|
|
| -- 作者：有点蓝 -- 发布时间：2019/7/23 22:55:00 -- 看懂代码，自己学着改： 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编辑过]
|