vb中 怎么样给picturebox加滚动条?

来源：百度知道 编辑：UC知道 时间：2024/06/20 23:50:52
vb中 怎么样给picturebox加滚动条?
把代码方法说清楚，说详细，谢了

你是不是要用滚动条调整图片的显示？
给你个程序 或许对你有帮助
给窗口添加个PICTUREBOX 控件 吧一个IMAGE控件加到PICTRUEBOX里 再加一个VSCROLL 和一个HSCROLL
分别放在PICTUREBOX 的纵向喝水平方向
加如下代码就可以
Private Sub Form_Resize()
On Error Resume Next
w = Form1.ScaleWidth - VScroll1.Width
h = Form1.ScaleHeight - HScroll1.Height
VScroll1.Move w, 0, VScroll1.Width, h
HScroll1.Move 0, h, w
With Picture1
.Move 0, 0, w, h
VScroll1.Min = 0
VScroll1.Max = Image1.Height - .Height
HScroll1.Min = 0
HScroll1.Max = Image1.Width - .Width
End With
If Image1.Width < Picture1.Width Then
HScroll1.Visible = False
Else
HScroll1.Visible = True
HScroll1.Min = 0
HScroll1.Max = Image1.Width - Picture1.Width
End If
If Image1.Height < Picture1.Height Then
VScroll1.Visible = False
Else
VScroll1.Visible = True
VScroll1.Min = 0
VScroll1.Max = Image1.Height - Picture1.Height
End If
End Sub
Privat