VB6的VScrollbar不灵！解决方法

VB6的VScrollbar不灵！
窗体加载的时候我创建了几个checkbox，

VB code

Private Sub Form_Load()

Dim i As Integer
     Dim Ctr     As Control
  Set Ctr = Me.Controls.add("vb.optionbutton", "aaa", Frame1)
  Ctr.Visible = True
  Ctr.Caption = "aaaTest测试"
  Ctr.Top = 100
  Ctr.BackColor = Me.BackColor
  Ctr.Height = 300
  
Dim Ctr1     As Control
  Set Ctr1 = Me.Controls.add("vb.optionbutton", "bbb", Frame1)
  Ctr1.Visible = True
  Ctr1.Caption = "bbb"
  Ctr1.Top = 500
  Ctr1.BackColor = Me.BackColor
  Ctr1.Height = 300
  
  
End Sub

我往窗体中增加一个Frame，Frame中增加一个vscrollbar,增加事件：

VB code

Private Sub VScroll1_Change()
Frame1.Top = -VScroll1.value
End Sub

但是运行的时候根本没反应啊！而且滚动的时候不期望的事情发生了，居然点击滚动条时候frame动！而不是checkbox动！

------解决方案--------------------
Frame1.Top = -VScroll1.value
****************
不是frame动！而是checkbox动！就活见鬼了

VB6的VScrollbar不灵！解决方法

相关推荐