如何動態設置標籤鼠標圖標

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