建立可滚动的视区
下面的范例演示如何建立可滚动的视区以滚动显示比视区大的图象
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
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载