Question

VB中怎么把鼠标指针设置成“彩色”的自定义图片？

我自己做了几个彩色的鼠标指针添加在MouseIcon里,可是vb运行显示出的却是黑白的,怎么变成彩色的呀？
别跟我说是MousePoint没设置，这个我还是知道的！问题不在这儿。

Answer 1

请问你是用代码加载鼠标指针文件还是直接在属性那里设置？

追问

用代码的话是这样吗？
Me.MouseIcon = LoadPicture("C:\ico图标集\111.ico")
这个也试过了，还是不行

追答

我的可以，你重新做个指针试试。

Private Sub Form_Load()

Me.MousePointer = 99

Me.MouseIcon = LoadPicture("e:\ico\1.ico")

End Sub

是否加了纠错代码？

加了On Error Resume Next  纠错的话无效图片就不会提示继续执行。

没加纠错代码就会提示无效图片。请看下图