简单问题，求代码，立即给分！

Question

一图片框，我希望鼠标移动到上面的时候显示为图片1，
鼠标一移开就显示为图片2，求相应代码.

Answer 1

在图片框的mousemove事件里面添加代码
img.picture=loadpicture(图片2)在窗体的mousemove事件里面添加代码
img.picture=loadpicture(图片1)图片1和2需要加路径,如果和可执行文件在同一个目录下面用app.path & "\图片1"

Answer 2

也可以用api，那就不用管是什么容器了

Answer 3

可以考虑在窗口上加两个属性为不可见的图片框，Img1 Img2，在From_Load中用LoadPicture方法加入图片1及图片2
 在 MouseMove　事件中加入判断，如img.Picture=Img1.Picture则加载Img2的图片，否则反之

Answer 4

声明一个image控件(image1)，然后写如下代码：
Private Sub Form_Load()
    Image1.Top = 100
    Image1.Left = 100
    Image1.Width = 2000
    Image1.Height = 2000
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (X > 100) And (X < 2100) And (Y > 100) And (Y < 2000) Then
        Image1.Picture = LoadPicture("D:\MM1.jpg")'图片的具体路径
    Else
        Image1.Picture = LoadPicture("D:\MM2.jpg")
    End If
End Sub

Answer 5

对了，上面的form_load()过程里面再加一句Image1.BorderStyle=2
图片的边框就可以显示出来了

Answer 6

啊，错了，是Image1.BorderStyle=Sizable
:)