填空题
请在下列程序的空格处填入正确的代码,使之实现对标签添加滚动条的功能。在窗体上放置一个图形框,图形框内放置一个标签、一个垂直滚动条。当标签中的文本内容大于图形框显示区域时,可使用垂直滚动标签中的文本内容。要求滚动条最小变化为50,最大变化为100。
Private Sub Form_Load 1
Label1.Top=0
Label1.Left=0
Vscroll1.Max=Label1.Height-Picture1.Height
Vscroll1.SmallChange=50
2
If (Label1.Height-Picture1.Height)<=0 Then 3
End Sub
Private Sub Vscroll1_Change 45 = -Vscroll1.Value
End Sub
Private Sub Vscroll1_Scroll 67
End Sub