代码创建控件

 

今天值班，老师给学生的任务是用代码创建一个滚动条控件，并且使字体随滚动条的变动而大小改变。我也没有具体的实现过，于是做了做。先是实现了用set创建了一个控件，后又查怎么实现它的事件。结果如下

Dim WithEvents a AsHScrollBar

 

Private Suba_Change()

Label1.FontSize =a.Value

End Sub

 

Private SubForm_Load()

Set a =Form1.Controls.Add("vb.HScrollBar", "HScrollBar")

a.Visible = True

a.Max = 100

Label1.Caption ="生成滚动条控件"

 

End Sub

如果不限定max的值，总是会出现溢出，可能是因为超出了字体的大小范围。