作品展越来越近了,我们的作品《文件管理专家》也已经成形了,正在努力完善中,也在期待着作品选拔~~~
作品里有很多精华的东西,算是整个作品的亮点功能。比如说:界面图标的切换(当鼠标移动到图标上时,图标变大,反之,鼠标离开后,图标变回原来大小)
效果如下:
(一)首先,添加Image控件,在Image控件里添加自己所需要的图片;其次,在Image控件上面覆盖一层Picture控件;最后,通过代码实现二者的切换。
在Image的MouseMove事件里编写如下代码:
Picture1(index).Top = Image1(index).Top - 100
Picture1(index).Left = Image1(index).Left - 100
Picture1(index).Picture = Image1(index).Picture
Picture1(index).Visible = True
(二)通过装载Image控件的容器的MouseMove事件和Form的MouseMove事件让图标轻松切换
Image1(index).Visible=True
Picture1(index).Visible=False
(三)如图2所示,当鼠标移动到图标上时,会有ToolTipList弹出,但是为了让弹出的文字更加好看,我们使用了“气泡提示”
的方式,修改了Picture的ToolTipList的形状,让界面更加美观。
一点一滴的积累,为了做出完美的作品,更是为了更深入的学习。
分享到:
相关推荐
image没有鼠标移出的属性、 所以利用mousemove属性实现 鼠标移入移出换图
VB-MouseMove的用法,当鼠标路过不同图片时,状态栏将显示不同的状态和鼠标的位置,也就是显示鼠标的坐标。当鼠标悬停在对应的头像上时,状态栏显示该头像的文字提示,表明该图标是生气或是喜悦。
VB-MouseMove用法源码:移动鼠标显示鼠标状态和位置
VB实现的浮动窗体,mousemove触发窗体出现
今天用vue+原生js的mousemove事件,写了个拖动,发现只能慢慢拖动才行,鼠标只要移动快了,就失效,不能拖动了; 搞了半天在,总算解决了,但是问题的深层原理还没搞清楚,知道的大侠可以留言分享,下面直接上代码:...
悬停显示-MouseMove的用法示例vb.net源代码 Dim TT As ToolTip TT = New ToolTip() TT.ToolTipTitle = "轴间距" '提示信息标 TT.SetToolTip(Label1, "盘他" & vbCrLf & "勾月" & vbCrLf & "算了吧") '提示信息...
3、检测鼠标移动VB中有一个检测鼠标移动的对象事件MouseMove事件。MouseMove事件通常在应用程序启动时就会触发,有时在鼠标并未移动的情况下,MouseMove事件仍有可能被触发。因此如果在程序中直接用MouseMove事件...
《锋利的jquery》利用mousemove方法实现鼠标跟动
VisualBasic程序设计 形考任务三实验5鼠标MouseMove事件应用.zip
鼠标移动事件的监控!
MouseMove的用法,当鼠标路过不同图片时,状态栏将显示不刚的状态和鼠标的位置VB6.0源代码
MFC动态画直线(响应WM_MOUSEMOVE)
VB自定义窗口的状态栏,一个使用StatusBar的例子,使状态栏显示时间,字体和相关的操作提示等信息,主要是使用VB StatusBar实现,学习一下如何对其进行设置等。下面的参数设置对应实现状态栏显示的功能: 名称-----...
鼠标拖动实现窗口跳转,每一个子窗口是单独的背景
取色器,动态给出RGB的值(VB6.0源代码编写)Option Explicit Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long Dim pColor As Long Dim R As Long, G...
基于html5,canvas技术.全代码手把手画雷达图,实现内部元素的点击,浮动等事件,比echarts功能更强大.
使用VB6.0编程过程中可以使用自带的MouseDown、MouseMove等事件中的Button响应鼠标左右键,却不能响应鼠标滚轮事件。如果你需要处理鼠标滚轮事件,本资源正是你需要的。
祝你考试成功2003年9月全国计算机等级考试二级VB语言笔试试卷 (含参考答案) (考试时间90分钟,满分100分) 一、 选择题((1)~(20)每小题2分,(21)~(30)每小题3分,共70分) (1)以下叙述中错误的是 A) ...
国开大学 VisualBasic程序设计 形考任务三:请同学选择课程【第4章】-【实战演练】“实验4 菜单设计”或【第5章】-【实战演练】“实验5鼠标MouseMove事件应用”的其中之一,在VB集成开发环境中认真完成实验。