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

表单繁忙时显示等待光标

1 个答案: