表单忙碌时显示等待光标

Question

我有一个应用程序正在做一些需要时间的工作，我想使用等待光标，但我找不到方法。

Cursor = Cursors.WaitCursor 'and some various me.Cursor / current.cursor 
CalulateBalance()
FTableAdapter.FillDateID(BudgetDataSet.FQuartaly)
FQuartalyDataGridView.Refresh()
MsgBox("Completed updating Balances", MsgBoxStyle.OkOnly)
Cursor = Cursors.Default

Answer 1

除非你想运行在另一个线程上进行你的长进程，你只需要在更改光标之后和长进程之前坚持 Application.DoEvents() 行。

Cursor = Cursors.WaitCursor 'and some various me.Cursor / current.cursor 
Application.DoEvents()
CalulateBalance()
FTableAdapter.FillDateID(BudgetDataSet.FQuartaly)
FQuartalyDataGridView.Refresh()
MsgBox("Completed updating Balances", MsgBoxStyle.OkOnly)
Cursor = Cursors.Default

表单忙碌时显示等待光标

Display a wait cursor while form is busy

vb.net

forms