征服者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