射向凹透镜的两条光线:在vb中把光标变成一幅图
来源:百度文库 编辑:神马品牌网 时间:2024/05/11 01:01:23
在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