表单启动太慢时显示一个等待图标(类似Windows下的时间沙漏)

在PPC下有时打开一个程序或表单会比较慢, 往往要等十几甚至几十秒, 这可能让用户以为他没有点中所选项, 比如说在调用一个使用了数据库的表单时更是如此, 虽然第二次再打开这个表单会很快, 但是如果你在用户点了某个选项或菜单项后, 立即显示一个等待图标,那么就不会让用户觉得你的程序很奇怪了,并且也给程序增加了色彩, 何乐而不为了, 方法很简单:

在表单启动前添加一句:

Cursor.Current = Cursors.WaitCursor

在表单的Load事件里添加一句:

Cursor.Current = Cursors.Default

例如:

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
'Display the wait cursor
Cursor.Current = Cursors.WaitCursor
FormOpenPatient.ShowDialog()
End Sub

Private Sub Form_OpenPatient_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Do some other things
'Display the default cursor
Cursor.Current = Cursors.Default
End Sub