vb.net - 在 ShowDialog 期间加载事件期间在应用程序范围内显示沙漏光标

Question

我有以下代码：

Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click

    Dim f As New frmStyle
    f.ShowDialog()

End Sub

frmStyle 在它的 Load 事件期间做了很多事情，所以它不会立即出现。相反，它需要大约 1 秒钟才能显示出来。

因此，我想在表单的 Load 事件期间显示一个沙漏光标。

在 VB6 中，这非常容易。我可以只使用“Screen.Cursor = vbHourglass”。然后，您可以将光标从您想要的任何位置设置回默认值，例如在 Form_Load 事件结束时。

现在如何在 VB.NET 中做到这一点？

我想在应用程序范围内显示光标，而不仅仅是单个控件。还有（是什么让我的问题独一无二，到目前为止还没有在另一个问题中回答），我需要重置它，但它应该在 Form_Load 结束时重置（这不是初始化元素。相反，按钮是“初始化”元素，但我不能在按钮单击结束时将光标设置为默认值，因为 ShowDialog 以模态方式显示。这意味着只有在再次关闭表单时才会将光标改回）。

谢谢！

标签： vb.netwinformscursor