VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 1 下一页尾页 1 条记录 1/1页
《vb从入门到精通》中讲滚动条控件的move属性后面的几个参数分别是什么意思啊？
发表在VB答疑区
2009-08-02
是否精华
是
否
版块置顶:
是
否
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
Picture1.Move 0, 0, w, h
VScroll1.Min = 0: VScroll1.Max = Image1.Height - Picture1.Height
HScroll1.Min = 0: HScroll1.Max = Image1.Width - Picture1.Width
HScroll1.LargeChange = (Image1.Width - Picture1.Width) / 10
HScroll1.SmallChange = (Image1.Width - Picture1.Width) / 10
VScroll1.LargeChange = (Image1.Height - Picture1.Height) / 10
VScroll1.SmallChange = (Image1.Height - Picture1.Height) / 10
End Sub
中的 VScroll1.Move w, 0, VScroll1.Width, h: HScroll1.Move 0, h, w
Picture1.Move 0, 0, w, h
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
Picture1.Move 0, 0, w, h
VScroll1.Min = 0: VScroll1.Max = Image1.Height - Picture1.Height
HScroll1.Min = 0: HScroll1.Max = Image1.Width - Picture1.Width
HScroll1.LargeChange = (Image1.Width - Picture1.Width) / 10
HScroll1.SmallChange = (Image1.Width - Picture1.Width) / 10
VScroll1.LargeChange = (Image1.Height - Picture1.Height) / 10
VScroll1.SmallChange = (Image1.Height - Picture1.Height) / 10
End Sub
中的 VScroll1.Move w, 0, VScroll1.Width, h: HScroll1.Move 0, h, w
Picture1.Move 0, 0, w, h
分享到：
