如何动态设置标签鼠标图标

Question

我在表单内创建动态标签，并希望光标将其样式从标准样式更改为指针。此时代码如下所示：

Set lbl = Me.Controls.Add("Forms.Label.1") 
With lbl 
    .Caption = myArray(i) ' array of label names 
    .Top = i * 25 
    '.MouseIcon = "C:\hand.cur" <- this does not work 
End With 

不幸的是，这不起作用。

Answer 1

你将需要：

... 
    .MousePointer = fmMousePointerCustom 
    .MouseIcon = LoadPicture("C:\hand.cur") 
End With