vb滚动条(运行有问题,先让字体改变,但用滚动条一拉就出现数字)

2024-12-21 14:13:15
推荐回答(2个)
回答1:

Text1.Text = HScroll1.Value 就是因为 这句话,
如果你想用它来移动文本,个人建议你就别用这个滚动条。把TEXT的MultiLine设置为True
再设置scrollbars为2.就可以达到了。
如果想用HScroll来改变字体大小 就应该这样写,
text1.fontsize = HScroll1.Value

回答2:

我不明白你的问题
Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value '这个地方不就是要得到HScroll1的值么
'当然会出现数字了
End Sub