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.valueEnd Sub

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

[解决办法]
Frame1.Top = -VScroll1.value
****************
不是frame动！而是checkbox动！就活见鬼了

查看更多 下一篇