VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2032|回复: 3

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

[复制链接]
发表于 2015-12-5 13:17:10 | 显示全部楼层 |阅读模式
高手请看,动态创建的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 15:07:49 | 显示全部楼层
要用WithEvents,然后set
回复 支持 反对

使用道具 举报

发表于 2015-12-5 16:01:55 | 显示全部楼层
Dim WithEvents VScroll1  As VB.VScrollBar
Dim WithEvents Frame0  As VB.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 17:19:32 | 显示全部楼层
谢谢各位大老!终于解决了。
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2022-6-30 18:07

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