滑鼠移過PictureBox時轉換圖片

準備一個PictureBox，一幅圖片(如以下範例的 C:\Sunset.jpg)
要轉換PictureBox的圖片其實不難，只是在Picture1_Mouse事件中載入圖片。反而難在滑鼠移出PictureBox時移除圖片，解決方法是用Form_MouseMove事件去偵辦滑鼠位置。

程式碼如下︰

Dim Moveflag As Boolean

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Moveflag = True Then
      Set Picture1.Picture = Nothing
      Moveflag = False
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Moveflag = False Then
      Picture1.Picture = LoadPicture("C:\Sunset.jpg")
      Moveflag = True
End If
End Sub

文章曰期︰

上一頁