将始终在顶部的表单捕捉到屏幕的一角

时间:2013-03-05 10:13:24

标签: .net windows vb.net docking always-on-top

我有一个很小的VB.net应用程序,它是一个FixedToolWindow形式,我已经TopMost = True并且部分透明。是否有可能将这个“停靠”放到屏幕的一角?我喜欢它坐在底角,但目前必须手动对齐它。

我在Windows 7机器上使用它。

1 个答案:

答案 0 :(得分:1)

您可以将代码中的移动到角落。以下代码将其移动到当前占用的屏幕的右下角:

Dim scr As Screen = Screen.FromControl(Me)
Me.Top = scr.WorkingArea.Top + scr.WorkingArea.Height - Me.Height
Me.Left = scr.WorkingArea.Left + scr.WorkingArea.Width - Me.Width

WorkingArea会将其放在任务栏上方,如果您想将其放在任务栏上(如果可见),请使用Bounds