征服者cx168plus band:在vb中把光标变成一幅图

来源:百度文库 编辑:高校问答 时间:2024/05/05 17:44:49
在vb中把光标变成一幅图

在 MousePointer 属性改为 99,
再在 MouseIcon 属性里设置图片。

使用动画光标 *.CUR

*.cur可以动,也可以静止不动

这个可以用光标工具自已画

Sub timer1_timer()
static a as integet
Me.MousePointer=99
Me.MouseIcon = loadpicture("C:\" & a & ".ico")
a=a+1
end sub
sub form_load()
Timer1.Interval=100
end sub