【发布时间】:2020-08-07 14:17:45
【问题描述】:
使用 VB.NET,我创建了一个带有 TopMost=True、FormBorderStyle=FixedDialog、ControlBox=False、text=""、size 400x50 的表单。
我在 Windows 10 任务栏上方显示此表单。当我点击任务栏时,表单只占据任务栏的一部分,表单被移到任务栏后面。如果在屏幕的工作区域上移动表单,它会保持在最顶层。
有没有办法让窗体保持在 Windows 10 任务栏上方?
示例代码如下。使用箭头键可以重新定位表单以进行测试。
***已添加更新示例代码。
Public Class Form1
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
Dim istep As Integer = 1
If e.Alt Then istep = 10
Select Case e.KeyCode
Case Keys.Down
Me.Top += istep
Case Keys.Up
Me.Top -= istep
Case Keys.Left
Me.Left -= istep
Case Keys.Right
Me.Left += istep
End Select
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim b As Rectangle = My.Computer.Screen.Bounds
Dim w As Rectangle = My.Computer.Screen.WorkingArea
Me.Top = w.Height
Me.Left = 500
End Sub
结束类
【问题讨论】: