Question

VB如何实现鼠标滑到图像框上时出现边框，离开则边框消失。

Answer 1

你这个非常简单哦，但有一个技巧：【如图所示】首先另外添加一个Label1控件、要求Label1控件的轮廓要刚刚好比你那个图像框大一圈（这一圈就是那个所谓出现的边框）、并将Label1控件的背景颜色设置成蓝色（或你需要的颜色）、最后将这个Label1置于图像框的底层（对着它点击右键移至底层）同时设置成透明的。OK，一切准备就绪，开始编写图像框的鼠标滑过代码：

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Label1.BackStyle = 1     '代表鼠标移动到图像框时显示边框

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Label1.BackStyle = 0     '代表鼠标离开图像框时关闭边框（即鼠标移动到图像框以外的窗体）

End Sub