vb.net - 拖动时表单未置于前面

Question

我创建了一个列表表单，它附加到 VB.NET 中的主表单。这一切都很好，除了当主窗体被激活时，我也需要将列表放在前面。我已经输入了一个简单的 IF 函数来执行此操作，但是当我添加这些代码行时，主窗体以及列表窗体现在不会被带到前面，直到您松开鼠标按钮。显然，这意味着如果您拖动表单，它会一直停留在后面，直到您松开鼠标按钮。

我添加的代码如下：

 If CRL.Visible = True Then
   CRL.BringToFront()
 End If

CRL 是列表形式。

如果我再次注释掉这段代码，主窗体在拖动时会被带到前面，但显然列表窗体不会。主窗体和列表窗体都是 MDI 子窗体。

Answer 1

你用最顶层的属性来欺骗它：

If CRL.Visible = True Then
   CRL.BringToFront()
   CRL.TopMost = True 
   Application.DoEvents
   CRL.TopMost = False
End If