vb(2) picturebox、hscrollbar、vscrollbar实现滚动浏览

最新推荐文章于 2020-10-25 14:41:58 发布

csdn1284934570

最新推荐文章于 2020-10-25 14:41:58 发布

阅读量2k

点赞数

分类专栏： vb

本文链接：https://blog.csdn.net/csdn1284934570/article/details/45206883

版权

本文介绍了如何使用VB中的PictureBox控件结合Horizontal ScrollBar (HScrollBar) 和 Vertical ScrollBar (VScrollBar) 实现图片的滚动浏览功能。通过设置PictureBox的AutoRedraw和AutoSize属性，结合两个PictureBox（一个作为容器，一个作为显示），以及加载菜单项和滚动条，创建了一个可以平滑滚动查看图片的应用。

摘要由CSDN通过智能技术生成

'利用picturebox的autoredraw、autosize 属性配合hscrollbar、vsrcrollbar实现滚动浏览

'2个picturebox控件 1个作为容器、1个作为显示

‘1个加载菜单项 1个hscrollbar 1个vscrollbar

Private Sub Form_Load()

HScroll.Visible = False
VScroll.Visible = False
HScroll.Height = 300
VScroll.Width = 300
End Sub

Private Sub Form_Resize()
With PicBox
.Left = 0
.Top = 0
.Height = Me.ScaleHeight
.Width = Me.ScaleWidth
End With
Call PicShow_Resize
End Sub

Private Sub HScroll_Change()
PicShow.Left = -HScroll.Value
End Sub
Private Sub VScroll_Change()
PicShow.Top = -VScroll.Value
End Sub

Private Sub mnu加载图片_Click()
cdg.Filter = "加载图片|*.jpg"
cdg.ShowOpen
If cdg.FileName <> "" Then