Foxtable(狐表)用户栏目专家坐堂 → [求助]如何将程序窗口置最前 or qq停靠窗口


  共有2250人关注过本帖平板打印复制链接

主题:[求助]如何将程序窗口置最前 or qq停靠窗口

帅哥哟,离线,有人找我吗?
瑞峰
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:205 积分:2097 威望:0 精华:0 注册:2018/10/8 13:32:00
[求助]如何将程序窗口置最前 or qq停靠窗口  发帖心情 Post By:2021/3/4 8:59:00 [只看该作者]

1. 如何将程序窗口置最前?
2. 像QQ那样,可以隐藏在屏幕边,鼠标移至时,才出现
3. 可以折叠,缩小成一小条

以下代码实例,没有达到效果

TimerTick

窗口计时器代码,根据设定的间隔执行

If e.Form.baseform.Top <= 0  Then
    
    Dim x As Integer = System.Windows.Forms.Cursor.current.position.x
    Dim y As Integer = System.Windows.Forms.Cursor.current.position.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
    Else
        e.Form.Baseform.Top = 0
    End If
End If
[此贴子已经被作者于2021/3/24 23:33:28编辑过]

 回到顶部