1.可以利用picture.mousemove()事件實現放大效果.即當滑鼠經過時,影象的長寬分別加上一個固定值.實現"放大"效果.不過要注意就是,要先設定一個判斷標誌----放大了一次後就不要再放大了.不然,當滑鼠一直在上面時,不斷觸發這個事件,會不斷變大,與設想效果不同.

但,picutre控制元件本身沒有滑鼠離開事件,無法實現縮小.

2.幸好,窗體 form本身也有mousemove事件.並且,當滑鼠經過窗體中控制元件表面時,

不會觸發窗體本身的mousemove事件.那麼.利用這點.以下程式演示實現LZ要求.

VB6中新建工程,一個窗體,窗體上放置一個picture控制元件.影象什麼隨便設定.大小也是自己設定

全部程式碼如下:

Dim ch As Boolean "影象改變大小標誌

Private Sub Form_Load()

ch = False "程式執行時,滑鼠肯定還沒有經過影象,所以,假

End Sub

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

If ch Then "已經放大了,則縮小,當滑鼠離開影象時.

Picture1.Width = Picture1.Width - 200 "這個值200和以下的300自己改吧

Picture1.Height = Picture1.Height - 300

ch = False

End If

End Sub

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

If Not ch Then "滑鼠經過,且,還沒有放大過.放大一次.

Picture1.Width = Picture1.Width + 200 "這個值200和以下的300自己改吧

Picture1.Height = Picture1.Height + 300

ch = True

End If

End Sub