如何使鼠标移动到图片时,图片高亮?即WIN7下鼠标移动到桌面快捷方式图标时显示的效果

时间:2022-08-28 03:35:58
如何使鼠标移动到图片时,图片高亮?即WIN7下鼠标移动到桌面快捷方式图标时显示的效果如何使鼠标移动到图片时,图片高亮?即WIN7下鼠标移动到桌面快捷方式图标时显示的效果如何使鼠标移动到图片时,图片高亮?即WIN7下鼠标移动到桌面快捷方式图标时显示的效果
如图
如何使鼠标移动到图片时,图片高亮?即WIN7下鼠标移动到桌面快捷方式图标时显示的效果?

3 个解决方案

#1


这个效果可以用GDI+来实现,先绘制亮显区域,再绘制图片。图片格式应该是PNG格式的。
请参考

#2


判断一下 鼠标位置如果进入 区域则载入另一张图片 这个是最笨的方法  我在易语言里经常使用 

#3


所谓的高亮,并不是图片高亮(如果图片高亮,那么图片可能会失真),应该是背景高亮
按这个想法,其实应该很简单,使用一个图片图片框做背景,用一个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里

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