網頁 貼吧 文章 作者 工作  
網頁搜尋
 
 愛PO吧 >> 劉品言抽煙的圖片 >> 瀏覽文章
回覆 加入我的最愛 與好友分享

[VB6]滑鼠控制圖片

本被文章 0 次, 共有回覆 2  
0
 
0
xyz資訊工坊
[VB6]滑鼠控制圖片



xyz資訊工坊


xyz軟體補給站




Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()

Set Picture1.Picture = LoadPicture("圖片1")

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

If X < 0 Or Y < 0 Or X > Picture1.Width Or Y > Picture1.Height Then

Set Picture1.Picture = LoadPicture("圖片1")

Else

SetCapture Picture1.hwnd

Set Picture1.Picture = LoadPicture("圖片2")

End If

End Sub

逛上一篇:   逛下一篇:

作者: ecucxwnxnn
  (2010-07-25 16:05)
推薦文章: 將本文章推薦到【百度收藏】 將本文章推薦到【YouPush】 將本文章推薦到【udn共享書籤】 將本文章推薦到【Fiigo】書籤

 本文章共有回覆 2 篇,分 1 頁
 聲明:以上內容不代表本站立場,且內容由網友發表提供,若有爭議或違法由發表者承擔,本站將不負責連帶責任,謝謝。

 IPoBar  愛PK  愛遊戲  愛online
新手教學 客服中心 站務公告 交換連結 合作提案 關於我們
 
版權所有©ipobar Ltd., All Rights Reserved.
論壇內會員言論僅代表個人觀點,不代表本站同意其說法,本討論區不承擔由該言論所引起的法律責任