Create a scrollable viewpoint

领测软件测试网

　　 
　　Create a scrollable viewpoint

Tip by Sam Huggill

Tip description

Use scrollbars and picture boxes to create a scollable picture viewer.

Tip Code

Private Sub HScroll1_Change()

Picture2.Left = -HScroll1.Value
End Sub

Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub

Private Sub Form_Resize()

With Picture1
  .Height = Form1.Height
  .Width = Form1.Width
End With

Picture1.Move 0, 0, ScaleWidth - VScroll1.Width, _
ScaleHeight - HScroll1.Height

Picture2.Move 0, 0

With HScroll1
  .Top = Picture1.Height
  .Left = 0
  .Width = Picture1.Width
  .Max = Picture2.Width - Picture1.Width
End With

With VScroll1
  .Top = 0
  .Left = Picture1.Width
  .Height = Picture1.Height
  .Max = Picture2.Height - Picture1.Height
End With

VScroll1.Visible = (Picture1.Height < Picture2.Height)
HScroll1.Visible = (Picture1.Width < Picture2.Width)

End Sub

Private Sub Form_Load()

Picture1.Move 0, 0, ScaleWidth - VScroll1.Width, _
ScaleHeight - HScroll1.Height

With Picture2
  .AutoSize = True
  .Picture = LoadPicture("d:vbcodeexamplesdemosanner.jpg")
  .Move 0, 0
End With

With HScroll1
  .Top = Picture1.Height
  .Left = 0
  .Width = Picture1.Width
End With

With VScroll1
  .Top = 0
  .Left = Picture1.Width
  .Height = Picture1.Height
End With

HScroll1.Max = Picture2.Width - Picture1.Width
VScroll1.Max = Picture2.Height - Picture1.Height
注释： HScroll1.LargeChange = HScroll1.Max / 10
注释： VScroll1.LargeChange = VScroll1.Max / 10

VScroll1.Visible = (Picture1.Height < Picture2.Height)
HScroll1.Visible = (Picture1.Width < Picture2.Width)

End Sub

文章来源于领测软件测试网 https://www.ltesting.net/