VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2395|回复: 2

[求助] 高手请看,动态创建的frae和滚动条,为何滚动条无反应?请问我的代码错在什么地方?

[复制链接]
发表于 2015-12-5 12:44:31 | 显示全部楼层 |阅读模式
高手请看,动态创建的frae和滚动条,想滑动滚动条时frame向上或向下跟着移动。为何滚动条无反应?请问我的代码错在什么地方?
Private Sub Form_Load()
   

   Set Frame0 = Controls.Add("VB.frame", "Frame0")  '创建能整体移动的frame
  ' Set Frame0.Container = Form1
   Frame0.Move 400, 1000, 4000, 5000
   Frame0.BackColor = &HFFFFF
   Frame0.Visible = True
   
   Set VScroll1 = Controls.Add("VB.VScrollbar", "VScroll1")  '创建能控件frame移动的滚动条
'  Set VScroll1.Container = Form
   VScroll1.Move Frame0.Width + 400, 1000, 400, Frame0.Height
   VScroll1.TabStop = False
   VScroll1.Visible = True
   
   VScroll1.Min = 0
   VScroll1.Max = Frame0.Height
   VScroll1.SmallChange = 100
   VScroll1.LargeChange = Frame0.Height
   
End Sub
Private Sub VScroll1_Change()
  Frame0.Move 400, -VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()   '请问对于动态创建的可不可以这样写Private Sub VScroll1_Scroll()   
  Frame0.Move 400, -VScroll1.Value
End Sub
发表于 2015-12-5 20:58:32 | 显示全部楼层
楼主到底是移动Frame还是改变Frame大小,能不能说清楚一点。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2015-12-8 20:30:45 | 显示全部楼层
已解决,但又遇到新问题,滚动条的值最大只能为32767,可我做了一个几页的类似电子书滚动看却看不了三页,告知滚动条数溢出。请问如何才能>32767.
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2021-12-4 22:34

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表