Question

我正在使用Visual Basic 2012 Ultimate。我想使用垂直和水平滚动更改文本的字体大小。我试过但是形状的大小改变了但不是文本。

这是代码

Private Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar1.Scroll
    RectangleShape1.Width = HScrollBar1.Value
    HScrollBar1.Value = TextBox1.Text.

End Sub

Private Sub VScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles VScrollBar1.Scroll
    RectangleShape1.Height = VScrollBar1.Value
    VScrollBar1.Value = TextBox1.Text.Size()

End Sub

Answer 1

如何更改代码的这两行：

HScrollBar1.Value = TextBox1.Text.
...
VScrollBar1.Value = TextBox1.Text.Size()

这样的事情：

TextBox1.FontSize = HScrollBar1.Value 
...
TextBox1.FontSize = VScrollBar1.Value

尚未对此进行测试，但我认为在修改此代码后，您会看到滚动条中的更改现在会更改文本的字体大小。但是，我不确定你到底是怎么回事。对于Rectangle，它具有宽度和高度，因此您可以将宽度与horizontall滚动条和高度与垂直滚动条相关联。但是在字体大小的情况下，它没有这样的宽度和高度。

PS：如果你真的想要不同的东西，请详细说明你实际上是什么，你想如何修改垂直和水平srollbar值正确影响字体大小？

使用垂直和水平滚动更改文本和形状的大小

1 个答案: