使 Windows 窗体控件无响应

Question

我想以某种方式使 Windows 窗体控件变得不负责任——比如将 Control.Enabled 设置为 False，但没有它的视觉效果（我将有一些自定义的“控件正忙”指示器，所以它不会不清楚最终用户为什么控件没有响应）。

原因是：我正在为 windows 窗体编写一个繁忙的指示器控件，并希望它尽可能通用。

目的是能够像下面这样使用它。

Dim busy_control As Control = ...
ShowBusyIndicator(busy_control)
BeginDoWork() 'starts a worker thread

'in some OnCompleted-Event:
HideBusyIndicator(busy_control)

我当前的问题是，我想确保busy_control 根本不会对任何用户输入做出反应。

在当前版本中，我通过处理 GotFocus 事件确保控件失去焦点并且永远无法再次获得焦点。由于覆盖控件的Parent是busy_control，所以我还将OnMouseWheel事件设置为handled（否则busy_control可以滚动）。

我想还有更多这样的事件。这就是为什么我想“禁用”控件而不实际将启用设置为 false。

有什么办法吗？

Answer 1

我也建议您不要这样做...但是，如果您必须...

只需将您想要抑制/禁用的控件传递到此子项即可。显然，当您重新启用控件时，您需要删除创建的图片框...但我会让您自己弄清楚。

Private Sub SuppressControl(ByRef CtrlToSuppress As Control)
    ''create an image of the control
    Dim ctrlImage As New Bitmap(CtrlToSuppress.Width, CtrlToSuppress.Height)
    CtrlToSuppress.DrawToBitmap(ctrlImage, CtrlToSuppress.ClientRectangle)
    ''create a picturebox in the same location/size as the control
    Dim PictureBox1 As New PictureBox
    PictureBox1.Left = CtrlToSuppress.Left
    PictureBox1.Top = CtrlToSuppress.Top
    PictureBox1.Width = CtrlToSuppress.Width
    PictureBox1.Height = CtrlToSuppress.Height
    ''Set the anchors to maintain alignment on form resize
    PictureBox1.Anchor = CtrlToSuppress.Anchor
    ''place the image in picturebox
    PictureBox1.Image = ctrlImage
    ''add the picture box to the form
    CtrlToSuppress.Parent.Controls.Add(PictureBox1)
    ''and bring it to the front
    PictureBox1.BringToFront()
    ''Suppress the control
    CtrlToSuppress.Enabled = False
End Sub

Answer 2

您最好的选择可能是透明的Panel。通过将它放在您想要“禁用”的控件上，您可以拦截任何点击它的尝试，因为Panel 将注册点击。您也可以将OnClick 句柄添加到Panel。

由于您已经在使用“微调器”之类的东西，您可能希望将加载指示器放在 Panel 上。这样一来，用户就不会对为什么单击没有执行任何操作或控件没有看起来 禁用感到困惑。如果没有，只需使整个Panel 透明即可。有关如何控制 Panel 透明度的信息，请参见 here。

请注意，在链接的示例中，由于操作系统的限制，您需要在Form 级别进行透明性的技术说明。您将在该链接中找到帮助您构建所需内容的参考资料，具体取决于您所针对的 Windows 版本。

我怎么强调都不过分，最好使用微调器来覆盖您禁用的内容。这比让控件假装它没有被禁用要清晰得多（老实说，也更容易编码）。