如何通过在窗体中图片上下层关系实现图片变色效果?

作者：绿色风分类：时间：2022-08-17 浏览：86

楼主 kevinchengcw	Q: 如何通过在窗体中图片上下层关系实现图片变色效果? A: 新开一个excel文档,按Alt + F11进入VBA编辑器,插入一个窗体,在窗体中插入两个image控件,并将控件设置成一个图片的两种效果(单色和彩色)或两个不同的图片,双击任一image控件,在打开的编辑框中输入如下代码: Private Sub Image1_Click() MsgBox "这是很多软件上经常用到的方法", vbOKOnly, "" '当图片1显现时点击弹出解释对话框 End Sub Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Image2.Visible = False '当鼠标移入Image2时Image隐藏 End Sub Private Sub UserForm_Initialize() '在窗体初始化事件中将图片2的位置及大小设置成与图片1一致 Image2.Top = Image1.Top Image2.Left = Image1.Left Image2.Height = Image1.Height Image2.Width = Image1.Width End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) '判断窗体内鼠标是否移出图片2的范围,如果是则显示图片2 If X < Image2.Left Or Y < Image2.Top Or X > Image2.Top + Image2.Width Or Y > Image2.Top + Image2.Height Then Image2.Visible = True End Sub 注意: 后插入的image控件居于上层,所以请注意显隐时是操作上层的控件. 很多软件的按钮效果就是利用这种原理实现的,附示例文件. 窗体学习--图片变换.rar
2楼海洋之星	路过,学习一下
3楼 pcwmmn	辛苦辛苦，谢谢了~~

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表