Question

Vb考试 在线等 编写滚动条的CHANGE代码

如题 编写代码改变字体代码 改变水平滚动条位置 标签的字体会作出相应的变化 在线等

Answer 1

Private Sub Form_Load()
HScroll1.Value = Text1.FontSize
HScroll1.Min = 1
HScroll1.Max = 100
HScroll1.SmallChange = 1
HScroll1.LargeChange = 8
End Sub

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

Answer 2

Private Sub Form_Load()
HScroll1.Value = Text1.FontSize
HScroll1.Min = 1
HScroll1.Max = 100
HScroll1.SmallChange = 1
HScroll1.LargeChange = 8
End Sub

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

回答者：匿名 2009-6-17 10:34