VB打地鼠怎么把鼠标变锤子啊求指导求代码。。。谢谢哈
答案:1 悬赏:30 手机版
解决时间 2021-10-22 09:56
- 提问者网友：謫仙
- 2021-10-21 18:50
VB打地鼠怎么把鼠标变锤子啊求指导求代码。。。谢谢哈
最佳答案
- 五星知识达人网友：罪歌
- 2021-10-21 18:58
比如你点击开始按钮后鼠标变成锤子，首先在本地文件夹放一个名为"锤子.cur"的图片，这是种鼠标格式，当然也可以改别的名字，不过要在下面代码自己改过来Private Sub Command1_Click()Screen.MouseIcon = LoadPicture(App.Path + "\锤子.cur")Screen.MousePointer = 99End SubScreen.MousePointer = 99的意思是把屏幕鼠标类型设为自定义类型，不可省去。Screen.MouseIcon = LoadPicture(App.Path& "\锤子.cur")设置屏幕鼠标，用loadpicture(路径+文件名)。如果还不明白还可以再问我。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯