菜鸟问题,关注有分.

Question

在程序运行时,如何将指针设为"沙漏",而不是指针.

Answer 1

将 mousepointer的值改为11-hourglass

Answer 2

set mousepointer = 11.但如果系统忙是系统会自动打鼠标形状改成沙漏

Answer 3

试试
Private Sub cmd忙碌_Click()
    Me.MousePointer = vbHourglass
End SubPrivate Sub cmd正常_Click()
    Me.MousePointer = vbNormal
End Sub

Answer 4

Me.MousePointer = vbHourglass你必须保证在程序运行完或意外退出是能够将鼠标还原成Me.MousePointer = vbNormal否则用户会一直等待，特别是意外退出要加以处理

Answer 5

Private Sub Form_Load()
Me.MousePointer = vbHourglass
End Sub

Answer 6

   UP is over!