小编mik*_*jik的帖子

我动态地将20个图片框添加到面板中,并希望在使用鼠标滚轮时看到面板滚动.为了实现这一点,我尝试在面板控件上将autoscroll设置为true.这是代码.对于i As Integer = 1到20:

        Dim b As New PictureBox()
        b.Image = Nothing
        b.BorderStyle = BorderStyle.FixedSingle
        b.Text = i.ToString()
        b.Size = New Size(60, 40)
        b.Location = New Point(0, (i * b.Height) - b.Height)
        b.Parent = Panel1
        Panel1.Controls.Add(b)
    Next

我用按钮控制做了同样的事情,它工作得很好.对于i As Integer = 1到100:

        Dim b As New Button()

        b.Text = i.ToString()
        b.Size = New Size(60, 40)
        b.Location = New Point(0, (i * b.Height) - b.Height)
        b.Parent = Panel1
        Panel1.Controls.Add(b)
    Next

它适用于"按钮"控制,但不适用于"图片框"或"标签"控件？如何使用"鼠标滚轮"实现滚动效果？