Question

我有 2 个富文本框，我使用带有此代码的按钮同时正确增加了两者的字体大小。问题是：当我直接在触摸屏上缩放和/或我不小心在触摸板上进行了 2 指缩放时，在其中一个手指上，它也会缩放，但是我无法按按钮返回相等的值，两个文本框都得到不同的字体大小。点击按钮继续每个文本增加1点，但在不同的大小，我必须手动调整，（以同样的方式在2个手指处再次缩放）以恢复修改后的最接近的大小。



Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
RichTextBox1.Font = New Font(RichTextBox1.Font.FontFamily, RichTextBox1.Font.Size + 1,RichTextBox1.Font.Style)
RichTextBox2.Font = RichTextBox1.Font
End Sub

Answer 1

我不确定这是否可行，但根据我的建议，尝试从同一来源创建两个新的 Font 对象，并在您完全使用完旧对象后处理它们。

'We have no need of the second Font any more.
RichTextBox2.Font.Dispose()

'Get the first Font to use as a source.
Dim font1 = RichTextBox1.Font

'Create two new Fonts and assign them.
RichTextBox1.Font = New Font(font1.FontFamily, font1.Size + 1, font1.Style)
RichTextBox2.Font = New Font(font1.FontFamily, font1.Size + 1, font1.Style)

'We have no need of the first Font any more.
font1.Dispose()

如何保留 2 个 Richtextbox 的字体大小或相同大小

1 个答案: