VB滚动条控件,实现窗体内内容上下滚动
在窗体内加了一个image,里面加了个图,又加了滚动条控件,可以实现图片上下展示,可是窗体内其他控件不能上下移动,在原地不动,代码如何实现窗体内所有控件都能上下随滚动条移...
在窗体内加了一个image,里面加了个图,又加了滚动条控件,可以实现图片上下展示,可是窗体内其他控件不能上下移动,在原地不动,代码如何实现窗体内所有控件都能上下随滚动条移动
展开
展开全部
刚刚看见一条知识,可以用timer和制件遍历窗体上控制,实现Top值的同步改变即可。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
同上。
如:
Private Sub Form_Resize()
Me.VScroll1.Max = Me.Height
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
VScroll1_Change
End Sub
Private Sub VScroll1_Change()
Me.Command1.Top = Me.VScroll1.Value
Me.Command2.Top = Me.VScroll1.Value + 1000
End Sub
如:
Private Sub Form_Resize()
Me.VScroll1.Max = Me.Height
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
VScroll1_Change
End Sub
Private Sub VScroll1_Change()
Me.Command1.Top = Me.VScroll1.Value
Me.Command2.Top = Me.VScroll1.Value + 1000
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询