VB 关于滚轮键的实现

来源：百度知道 编辑：UC知道 时间：2024/05/27 19:09:08
有些手机什么的都有滚轮键，可以实现地图的缩放等功能。

请问这在VB或者.NET中是如何实现的呢？

之前提的问题好像被百度吃了，所以这次先用分小一点，如果满意的话可以追加100分~

用JavaScript很好实现。
<script language = "JavaScript">
function imgUpdate(out)
{
var zoom=parseInt(out.style.zoom, 10)||100;zoom+=event.wheelDelta/12;if (zoom>0) out.style.zoom=zoom+'%';
return false;
}
</script>
...
<asp:image id="imgStamp" runat="server" onmousewheel="return imgUpdate(this)"/>
...
VB6也可以完成，可以用PaintPicture来实现。如：
FrmZoom.PaintPicture FrmPicture.ImgStamp.Picture, (srcW - imgW / 2) / 2, (srcH - imgH / 2) / 2, imgW / 2, imgH / 2

按你的要求上传了利用滚轮键实现图片缩放功能的源代码示例，请下载：
http://www.fileurls.com/download.ashx?id=rvydxg

下钩子 捕获鼠标滚轮的消息 然后处理就行

用MousePress()
button=4鼠标中间键按下