Question

vb窗体中的鼠标图形改变我想改成一个放大镜

Private Sub Form_Load()
me.MouseIcon = loadpicture("D:\新建文件夹\IMG_0335.ICO")
End Sub我没安装msdn就不能换吗？

Answer 1

Private Sub Form_Load()
Me.MousePointer = 99 '需要先加这一句
me.MouseIcon = loadpicture("D:\新建文件夹\IMG_0335.ICO")
End Sub

追问

貌似还是不行啊 ，给的错误提示是：无效属性值380。是不是我没下msdn的缘故啊

追答

换个ICO，尽量使用16*16 256色的，千万不要用真彩的