如图
如何使鼠标移动到图片时,图片高亮?即WIN7下鼠标移动到桌面快捷方式图标时显示的效果?
3 个解决方案
#2
判断一下 鼠标位置如果进入 区域则载入另一张图片 这个是最笨的方法 我在易语言里经常使用
#3
所谓的高亮,并不是图片高亮(如果图片高亮,那么图片可能会失真),应该是背景高亮
按这个想法,其实应该很简单,使用一个图片图片框做背景,用一个Image做为装图片的放在图片框中间,然后在Image上设置上图片,拷贝下面代码到你的Form里
按这个想法,其实应该很简单,使用一个图片图片框做背景,用一个Image做为装图片的放在图片框中间,然后在Image上设置上图片,拷贝下面代码到你的Form里
Dim BC As Long
Dim BC1 As Long
Private Sub Form_Load()
Dim R As Long, G As Long, B As Long
BC = &HC0C0C0
BC1 = &HE0E0E0
Picture1.BackColor = BC
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Picture1
If X > 100 And X < .Width - 100 And Y > 0 And Y < Height - 100 Then
.BackColor = BC1
Else
.BackColor = BC
End If
End With
End Sub
#1
这个效果可以用GDI+来实现,先绘制亮显区域,再绘制图片。图片格式应该是PNG格式的。
请参考
请参考
#2
判断一下 鼠标位置如果进入 区域则载入另一张图片 这个是最笨的方法 我在易语言里经常使用
#3
所谓的高亮,并不是图片高亮(如果图片高亮,那么图片可能会失真),应该是背景高亮
按这个想法,其实应该很简单,使用一个图片图片框做背景,用一个Image做为装图片的放在图片框中间,然后在Image上设置上图片,拷贝下面代码到你的Form里
按这个想法,其实应该很简单,使用一个图片图片框做背景,用一个Image做为装图片的放在图片框中间,然后在Image上设置上图片,拷贝下面代码到你的Form里
Dim BC As Long
Dim BC1 As Long
Private Sub Form_Load()
Dim R As Long, G As Long, B As Long
BC = &HC0C0C0
BC1 = &HE0E0E0
Picture1.BackColor = BC
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Picture1
If X > 100 And X < .Width - 100 And Y > 0 And Y < Height - 100 Then
.BackColor = BC1
Else
.BackColor = BC
End If
End With
End Sub