vb点虐 鼠标滑轮 vba鼠标滚轮控制列表框

vb点虐 中怎么才能模拟鼠标滚轮移动

1、滚动条分为水平滚动条（HSCROLLBAR）和垂直滚动条(VSCROLLBAR)两种，可以作为输入设备或者速度、数量的指示器来使用. 2、基本属性：object.max[=value],object.min[=value],最大最小范围 object.value[=value],

专注于为中小企业提供网站建设、成都网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业防城港免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了1000多家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

VB.NET picturebox 内绘图完图形放大缩小移动 鼠标控制 。比较笨看了VB的代码不明白 求解

。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点虐 鼠标滚轮问题

根据我的经验，应该是PICtureBox没有获取焦点，而win10下不知道什么原因能自动获取焦点，所以凑巧成功了，因此你应该让图形框获取焦点

如：picturebox1.focus（）

不知道是不是解决了你的问题

vb点虐 panel的vscroll的滑轮事件

点击panel时得到panel的焦点，就可以用鼠标滚轮来控制滚动条了！代码如下：

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

Panel1.Focus()

End Sub