VB滚动条如何控制表格 滚动条不能利用OLE控件本身的，要自己用滚动条控件去实现滚动操作！把OLE控件放到PICTURE控件里去，并将其SIZEMODE设为VbOLESizeAutoSizePrivate Sub HScroll1_Change()OLE1.Left=-HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()OLE1.Top=-VScroll1.ValueEnd SubPrivate Sub Command1_Click()HScroll1.Value=0VScroll1.Value=0With OLE1CreateLink(Text1.Text)'Text1.Text内容可设为c：\\myexcel.xls等HScroll1.Max=.Width-Picture1.Width+20HScroll1.LargeChange=.Width/10HScroll1.SmallChange=.Width/20VScroll1.Max=.Height-Picture1.Height+20VScroll1.LargeChange=.Height/10VScroll1.SmallChange=.Height/20End WithEnd Sub
VB如何使用滚动条控制图片高度 VB 6.0 我们先绘制好界面，一个图片框和一个垂直滚动条。2 3 运行后，我们会发现图片框的默认高度与滚动条默认值不同。这时我们应该在窗体载入事件同样写上这么一句。
利用vb滚动条控制timer控件的速度 小弟学vb不久可能来编的源不是不好，请多zd多指点Dim timestep As IntegerPrivate Sub Form_Load()HScroll1.Max=1000timestep=HScroll1.Value+100Timer1.Interval=timestepEnd SubPrivate Sub HScroll1_Change()timestep=HScroll1.Value+100Timer1.Interval=timestepEnd SubPrivate Sub Timer1_Timer()Picture1.Left=Picture1.Left+100End Sub
