這個應該可以試試spy++,檢測下鼠標移動到的device,然后做出文件操作!
創新互聯專注于企業營銷型網站、網站重做改版、樂業網站定制設計、自適應品牌網站建設、H5建站、商城開發、集團公司官網建設、成都外貿網站建設、高端網站制作、響應式網頁設計等建站業務,價格優惠性價比高,為樂業等各大城市提供網站開發制作服務。
Public?Class?Form1
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
? Button1.BackgroundImage?=?My.Resources.a
End?Sub
Private?Sub?Button1_MouseEnter(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.MouseEnter
? Button1.BackgroundImage?=?My.Resources.b
End?Sub
Private?Sub?Button1_MouseLeave(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.MouseLeave
? Button1.BackgroundImage?=?My.Resources.a
End?Sub
End?Class
當然,你先得制作兩張大小一樣的圖片
。net 不用api就行
縮放操作
Function 縮放(ByVal bitmap As Bitmap, ByVal 倍數 As Single) As Bitmap
Dim w As Integer = bitmap.Width * 倍數
Dim h As Integer = bitmap.Height * 倍數
Dim tem As New Bitmap(w, h)
Dim g As Graphics = Graphics.FromImage(tem)
g.DrawImage(bitmap, New Rectangle(0, 0, w, h), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)
g.Dispose()
Return tem
End Function
鼠標滾輪事件 MouseWheel
MouseEventArgs.Delta 值可以判斷滾動方向
網頁標題:vb點虐
鼠標拖拽圖片 vb中鼠標移動的代碼
標題路徑:http://www.yijiale78.com/article20/ddgscjo.html
成都網站建設公司_創新互聯,為您提供靜態網站、網站建設、外貿建站、網站導航、微信公眾號、網站設計公司
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯