将一个始终位于顶部的窗体固定到屏幕的角落

Question

我有一个小小的VB.net应用程序，它是一个单一的FixedToolWindow形式，我已经使TopMost = True和部分透明。有可能把这个"停靠"到屏幕的角落吗?我喜欢它位于底部角落，但目前必须手动对齐。

Answer 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代替，如果你想把它放在任务栏上方(如果它是可见的)