我已经动态地将 20 个图片框添加到面板中,并且希望在使用鼠标滚轮时看到面板滚动。为了实现这一点,我尝试在面板控件上将自动滚动设置为 true。这是代码。对于 i 作为整数 = 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 作为整数 = 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
它适用于“按钮”控件,但不适用于“图片框”或“标签”控件?如何使用“鼠标滚轮”实现滚动效果?