鼠标滚动实现picturebox缩放

前端之家收集整理的这篇文章主要介绍了鼠标滚动实现picturebox缩放前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
鼠标滚动实现pictureBox缩放 大家好,这是我用鼠标滚动轮实现图片缩放的代码,我将pictureBox放在一张tabpage里,现在的问题是缩放比例不能按照tabpage大小而改变,有时候缩小只显示在tabpage的左部分,实在搞不定了,请高手指点下啊 (我将pictureBox的sizemode设置的是strechimage,改成别的sizemode也不对) Private Sub PictureBox1_MouseEnter(ByVal sender As Object,ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter PictureBox1.Focus() End Sub Private Sub PictureBox1_MouseWheel(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseWheel PictureBox1.Width += e.Delta PictureBox1.Height += e.Delta End Sub __________________________________________________________________________ 呵呵,sizemode 设置为:zoom 试过没。不过不行,那就要用GDI+了。比较麻烦。 ———————————————————————— 简简单单,平平安安,朴朴素素,快快乐乐。 __________________________________________________________________________ 楼上高手,能给个例子借鉴下吗 __________________________________________________________________________ 是不是要 Reflash __________________________________________________________________________ 给你我写的例子: VB.Net程序设计:Image图片处理 GDI+绘图技术 http://blog.csdn.net/linjimu/archive/2008/09/17/2942379.aspx 用到的知识点: 获取图片缩略图 鼠标拽区,截取图片的指定区域 在Panel控件上绘图,绘制鼠标拽出来的矩形。双重缓存的运用。Invalidate、Paint重绘控件。 Bitmap,Image,Rectangle运用。 里面也有图片的放大缩小问题。 __________________________________________________________________________ 各位高手,现在出现的问题是:pictureBox缩小到没有时,再进行放大,就会出现pictureBox大小不能按照tabpage大小改变而改变,当pictureBox不缩小到没有时,pictureBox大小就能按照tabpage大小改变而改变,请问高手们这是怎么回事啊 __________________________________________________________________________ 你缩小设定一个最小值。不要“缩小到没有”。 __________________________________________________________________________

猜你在找的VB相关文章