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

最新推荐文章于 2022-10-25 11:28:21 发布

原创

最新推荐文章于 2022-10-25 11:28:21 发布 · 2.1k 阅读

3 ·

CC 4.0 BY-SA版权

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

'利用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
PicShow.Picture = L