[已解决]发个别人看不懂的代码，猜中有奖

hytsky

Private Sub UserForm_Initialize()
    With Me.TextBox1
        .MousePointer = 99
        .MouseIcon = LoadPicture(ThisWorkbook.Path & "\myMouse.ico")
    End With
End Sub

最佳答案

月排行榜 / 总排行榜

老糊涂

2011-12-8 08:58

自定义设定鼠标光标图形

跳转到最佳答案楼层

菜鸟锐

windows的鼠标只有0-15这几种，
99是用户自定义，如果你设置了99，则mouseicon这个属性有效
修改表格鼠标指针图标为指定标示

老糊涂

自定义设定鼠标光标图形

hytsky

老糊涂 发表于 2011-12-8 08:58
自定义设定鼠标光标图形

恭喜，答对了，奖励你一个最佳

hytsky

菜鸟锐 发表于 2011-12-8 08:12
windows的鼠标只有0-15这几种，
99是用户自定义，如果你设置了99，则mouseicon这个属性有效
修改表格鼠标 ...

咦，你怎么也有参与竞猜啊，我都直接跳过你看到下楼去了，抱歉抱歉

菜鸟锐

hytsky 发表于 2011-12-8 10:04
咦，你怎么也有参与竞猜啊，我都直接跳过你看到下楼去了，抱歉抱歉

我倒！！！我分析的那么全面~~你居然没看见，然三楼的朋友赚到了

201228

解法二：

别的看不懂，但我只ico 是什么。

myMouse.就不用说了。我的鼠标。

然后一联想就懂了。哈哈

hytsky

201228 发表于 2011-12-9 20:15
解法二：

别的看不懂，但我只ico 是什么。

聪明```聪明```看来是我的问题太简单了````{:051:}