鼠标经过图片产生缩放变化
编译错误,而且我觉得这个代码是不是太繁杂了,有没有简化一点的,如果我有很多个图片框都需要这种效果,要怎么搞程序代码:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Dim i If (X >= Picture1.Left) And (X <= Picture1.Left + Picture1.Width) And _ (Y >= Picture1.Top) And (Y <= Picture1.Top + Picture1.Height) Then _ Picture1.Height = 5628 Picture1.Left = 0 Picture1.Top = 0 Picture1.Width = 8376 ElseIf (X < Picture1.Left) And (X > Picture1.Left + Picture1.Width) And _ (Y < Picture1.Top) And (Y > Picture1.Top + Picture1.Height) Then _ Picture1.Left = Picture1.Left - 300 Picture1.Top = Picture1.Top - 150 Picture1.Width = Picture1.Width + 600 Picture1.Height = Picture1.Height + 300 End If End Sub