VB高手请来看一看哦!谢谢啦!
打个比方,现在窗口上有个按钮1(这个图标就是Image控件做的)当我的鼠标移到范围那个控件的范围内的时候,能不能实现:1.鼠标变成一个手指2.图标变了,变成另外的样式了,...
打个比方,现在窗口上有个按钮1(这个图标就是Image控件做的)
当我的鼠标移到范围那个控件的范围内的时候,
能不能实现:
1.鼠标变成一个手指
2.图标变了,变成另外的样式了,比如样子变亮一点了,之类的。移开控件的范围,又变回去了!
这个易语言,或者delphi都能实现的,不知道VB行不行啊!
跪谢大神!
有木有理解啊???我的表达能力不好 展开
当我的鼠标移到范围那个控件的范围内的时候,
能不能实现:
1.鼠标变成一个手指
2.图标变了,变成另外的样式了,比如样子变亮一点了,之类的。移开控件的范围,又变回去了!
这个易语言,或者delphi都能实现的,不知道VB行不行啊!
跪谢大神!
有木有理解啊???我的表达能力不好 展开
展开全部
'直接使用标准按钮控件
'按钮1的MouseIcon属性设置成一个手形光标,Style属性设为1
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.MousePointer = 99
Command1.Picture = LoadPicture("颜色亮一点的图片地址")
End Sub
Private Sub Form_Load()
Command1.Picture = LoadPicture("颜色暗一点的图片地址")
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture("颜色暗一点的图片地址")
End Sub
'按钮1的MouseIcon属性设置成一个手形光标,Style属性设为1
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.MousePointer = 99
Command1.Picture = LoadPicture("颜色亮一点的图片地址")
End Sub
Private Sub Form_Load()
Command1.Picture = LoadPicture("颜色暗一点的图片地址")
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture("颜色暗一点的图片地址")
End Sub
AiPPT
2024-09-19 广告
2024-09-19 广告
作为北京饼干科技有限公司的工作人员,关于AIPPT免费生成PPT的功能,我可以简要介绍如下:AIPPT是一款基于人工智能技术的PPT制作工具,它为用户提供了免费生成PPT的便捷服务。用户只需简单输入PPT的主题或内容大纲,AIPPT便能智能...
点击进入详情页
本回答由AiPPT提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询