- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何将程序窗口置最前 or qq停靠窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161048)
-- 发布时间：2021/3/4 8:59:00
-- [求助]如何将程序窗口置最前 or qq停靠窗口
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编辑过]
-- 发布时间：2021/3/4 9:18:00
--
参考：http://www.foxtable.com/webhelp/topics/2713.htm
-- 发布时间：2021/3/4 10:28:00
--
可以将FT开发的程序窗口置于最前吗？
打开之后的第一个窗口
-- 发布时间：2021/3/4 10:31:00
--
窗口afterload
e.Form.baseform.Topmost = True
ShowAppWindow(e.form.text,1)
-- 发布时间：2021/3/8 23:14:00
--
蓝版，如果让窗口像QQ这样可以隐于显示器边上，鼠标移至时，就可以显现，
这种效果怎么实现？
-- 发布时间：2021/3/8 23:23:00
--
看看：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=123413
-- 发布时间：2021/3/24 23:34:00
--
以下代码实例，没有达到效果，不会隐藏窗口，也不会显示窗口
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/25 8:24:00
--
请上传实例说明
-- 发布时间：2021/3/26 7:05:00
--
此主题相关图片如下：微信截图_20210326070504.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口隐藏.zip |
-- 发布时间：2021/3/26 9:11:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:窗口隐藏.zip |