题目来源:大工慕课 链接
原题:Visual Basic程序设计教程(第二版)龚沛曾主编,高等教育出版社 实验4-9
作者:Caleb Sung
题目要求
任意改变文本的字号。要求利用滚动条和标签控件实现对标签字体大小的任意改变,如图所示。
提示
- 将滚动条的Min、Max分别设置为字号的最小值和最大值
- 当拖动滑块时,字体取原来值,字号跟着变化。
参考代码
Private Sub HScroll1_Change()
n = HScroll1.Value
Label1.FontSize = n
Label1.Caption = n & "号字"
End Sub