Question

vb程序设计

在名称为Form1的窗体上画一个文本框（名称为Text1，Text属性为“国”
，FontName属性为“黑体”）和一个水平滚动条（名称为HScroll1），如
图1所示。在属性窗口中对滚动条设置如下属性：
Min 10
Max 100
LargeChange 5
SmallChange 2
编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可扩
大或缩小文本框中的“国”字

Answer 1

Private Sub HScroll1_Change()
Text1.FontSize = HScroll1.Value
End Sub

Answer 2

只要在程序中间加上以下代码就可以了

Private Sub HScroll1_Change()
Text1.FontSize = HScroll1.Value
End Sub