vb.net – printDialog之后的Cursor.Wait

Me.Cursor = Cursors.WaitCursor

Dim result As DialogResult = printDialog.ShowDialog()
If result = DialogResult.Cancel Then
    Return
End If
' not necesary any more
'Cursor.Current = Cursors.WaitCursor

并且在显示printDialog之后WaitCursor停留了.

编辑：找到一个很好的解释Cursor.Current and Cursor之间的差异！

EDIT2：我改变了我的代码,以利用上面提到的@HansPassant的例子中的HourGlass类.即使您输入textBox,WaitCursor也会保留.无论如何 – 当我悬停在例如边界上时,我仍然能够失去waitCursor.一个textBox.

总而言之IMO我认为当仍然可以输入文本aso时强制使用waitCursor并不是很好.也许您可以考虑在某种操作完成之前禁用控件,然后再将光标更改回来.

Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
    Hourglass.Enabled = True

    Dim result As DialogResult = PrintDialog1.ShowDialog()
    If result = Windows.Forms.DialogResult.Cancel Then
        Return
    End If

    'Cursor.Current = Cursors.WaitCursor
End Sub

Hourglass.vb – 我希望在将其转换为vb.net时没有犯任何错误

Public Class Hourglass
  Implements IDisposable

  Public Shared Property Enabled As Boolean
    Get
        Return Application.UseWaitCursor
    End Get
    Set(ByVal value As Boolean)
        If value = Application.UseWaitCursor Then Return
        Application.UseWaitCursor = value
        Dim f As Form = Form.ActiveForm
        If Not f Is Nothing AndAlso f.Handle <> IntPtr.Zero Then
            SendMessage(f.Handle,32,f.Handle,1)
        End If
    End Set
  End Property

  <System.Runtime.InteropServices.DllImport("user32.dll")>
  Private Shared Function SendMessage(hWnd As IntPtr,msg As IntPtr,wp As IntPtr,lp As IntPtr) As IntPtr
  End Function

  Public Sub Dispose() Implements IDisposable.Dispose
    Enabled = False
  End Sub
End Class