處理過程時(shí)的鼠標(biāo)顯示

為讓你的程序更加專業(yè)一點(diǎn)，我們往往需要在程序處理過程時(shí)的鼠標(biāo)形狀顯示為“沙漏”狀態(tài)。我們一般的方法是在子程序的開始及結(jié)尾編程來改變鼠標(biāo)形狀，這樣十分煩瑣且容易忘記。我們還可以以下面的方法來實(shí)現(xiàn)這一目標(biāo)：
    1、創(chuàng)建一個(gè)新類，命名為：CHourGlass；
    2、在此類中加入以下代碼：
    Private Sub Class_Initialize()
    Screen.MousePointer = vbHourglass
    End Sub
    Private Sub Class_Terminate()
    Screen.MousePointer = vbDefault
    End Sub
    3、在子程序的開始加入下面代碼：
    Dim MyHourGlass As CHourGlass
    Set MyHourGlass = New CHourGlass