vb點(diǎn)虐 中怎么才能模擬鼠標(biāo)滾輪移動(dòng)

1、滾動(dòng)條分為水平滾動(dòng)條（HSCROLLBAR）和垂直滾動(dòng)條(VSCROLLBAR)兩種，可以作為輸入設(shè)備或者速度、數(shù)量的指示器來使用. 2、基本屬性：object.max[=value],object.min[=value],最大最小范圍 object.value[=value],

專注于為中小企業(yè)提供網(wǎng)站建設(shè)、成都網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)防城港免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了1000多家企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

VB.NET picturebox 內(nèi)繪圖完圖形放大縮小移動(dòng) 鼠標(biāo)控制 。比較笨看了VB的代碼不明白 求解

。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 值可以判斷滾動(dòng)方向

vb點(diǎn)虐 鼠標(biāo)滾輪問題

根據(jù)我的經(jīng)驗(yàn)，應(yīng)該是PICtureBox沒有獲取焦點(diǎn)，而win10下不知道什么原因能自動(dòng)獲取焦點(diǎn)，所以湊巧成功了，因此你應(yīng)該讓圖形框獲取焦點(diǎn)

如：picturebox1.focus（）

不知道是不是解決了你的問題

vb點(diǎn)虐 panel的vscroll的滑輪事件

點(diǎn)擊panel時(shí)得到panel的焦點(diǎn)，就可以用鼠標(biāo)滾輪來控制滾動(dòng)條了！代碼如下：

Private?Sub?Panel1_Click(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Panel1.Click

Panel1.Focus()

End?Sub