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

【问题标题】：Snap an always-on-top form to the corner of the screen将始终在顶部的表单捕捉到屏幕的角落
【发布时间】：2013-03-05 10:13:24
【问题描述】：

我有一个很小的 VB.net 应用程序，它是一个单独的 FixedToolWindow 表单，我制作了 TopMost = True 并且部分透明。是否可以将这个“停靠”到屏幕的角落？我喜欢它坐在底角，但目前必须手动对齐。

我在 Windows 7 机器上使用它。

【问题讨论】：

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

【解决方案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

【讨论】：