Question

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

原因是：我正在为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事件设置为处理（否则busy_control可以滚动）。

我想还有更多这样的事件。这就是为什么我要＆＃34;禁用＆＃34;没有实际设置启用为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。通过将此放在您想要＆＃34;禁用＆＃34;的控件上，您可以拦截任何单击它的尝试，因为Panel将注册该点击。您也可以将OnClick句柄添加到Panel。

由于您已经在使用＆＃34; spinner＆＃34;之类的内容，因此您可能希望将加载指示符放在Panel上。这样，用户就不会为什么点击什么都不做或为什么控件没有看起来而感到困惑。如果没有，只需使整个Panel透明。有关如何控制Panel透明度的信息，请参见here。

请注意，在链接的示例中，由于操作系统限制，您需要在Form级别进行透明度的技术解释。您可以找到帮助您在该链接上构建所需内容的参考，具体取决于您所定位的Windows版本。

我不能强调使用你的微调器来覆盖你禁用的东西会更好。它比让控件假装它没有被禁用更清晰（并且更容易编码，老实说）。

使窗体控件无响应

2 个答案: