zoukankan      html  css  js  c++  java
  • PictureBox滚动条、鼠标中轴滚动

    PictureBox显示滚动条方法:

      1.放置在Panl内,panl属性AutoScroll=True

      2.PictureBox属性Dock为None,Anchor默认值,SizeMode为AutoSize

    设置完毕,PictureBox就和Panl共用滚动条了。

    通过鼠标滚轮滚动图片,Shift+中轴横向滚动

       Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            '注册窗体鼠标滚动事件
            AddHandler Me.MouseWheel, AddressOf picImg_MouseWheel
        End Sub

    Private Sub picImg_MouseWheel(ByVal sender As Object, ByVal e As MouseEventArgs) '获取光标位置 Dim p As Point = New Point(e.X, e.Y) '换算成相对本窗体的位置 p.Offset(Me.Location.X, Me.Location.Y) '判断是否在panel内 If (Me.Panel1.RectangleToScreen(Panel1.DisplayRectangle).Contains(p)) Then 'Shift+鼠标,横向滚动 If Control.ModifierKeys = Keys.Shift Then Panel1.AutoScrollPosition = New Point(Panel1.HorizontalScroll.Value - e.Delta, _ Panel1.VerticalScroll.Value) Else '竖向滚动 Panel1.AutoScrollPosition = New Point(Panel1.HorizontalScroll.Value, _ Panel1.VerticalScroll.Value - e.Delta) End If End If End Sub
    作者:Cary Liu


    本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,
    且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。
  • 相关阅读:
    hdu 1426(DFS+坑爹的输入输出)
    hdu 1430(BFS+康托展开+映射+输出路径)
    hdu 1664(数论+同余搜索+记录路径)
    BestCoder Round #86 二,三题题解(尺取法)
    hdu 1226(同余搜索)
    poj 1426(同余搜索)
    poj 2251(同余)
    hdu 1044(bfs+dfs+剪枝)
    hdu 1455(DFS+好题+经典)
    安装centos7后不能联网
  • 原文地址:https://www.cnblogs.com/caryliu/p/3435525.html
Copyright © 2011-2022 走看看