這個應(yīng)該可以試試spy++,檢測下鼠標(biāo)移動到的device,然后做出文件操作!

創(chuàng)新互聯(lián)專注于企業(yè)營銷型網(wǎng)站、網(wǎng)站重做改版、樂業(yè)網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、H5建站、商城開發(fā)、集團(tuán)公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù),價格優(yōu)惠性價比高,為樂業(yè)等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
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
當(dāng)然,你先得制作兩張大小一樣的圖片
。net 不用api就行
縮放操作
Function 縮放(ByVal bitmap As Bitmap, ByVal 倍數(shù) As Single) As Bitmap
Dim w As Integer = bitmap.Width * 倍數(shù)
Dim h As Integer = bitmap.Height * 倍數(shù)
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
鼠標(biāo)滾輪事件 MouseWheel
MouseEventArgs.Delta 值可以判斷滾動方向
網(wǎng)頁標(biāo)題:vb點虐
鼠標(biāo)拖拽圖片 vb中鼠標(biāo)移動的代碼
標(biāo)題路徑:http://chinadenli.net/article20/ddgscjo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供靜態(tài)網(wǎng)站、網(wǎng)站建設(shè)、外貿(mào)建站、網(wǎng)站導(dǎo)航、微信公眾號、網(wǎng)站設(shè)計公司
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)