|
分類:[.NET 全般]
VB.NET 2003
RichTextBoxに複数行入力した文字範囲の高さを求めたいのですが、
以下のコードですと、フォントサイズを大きくしていくと、
行と行の間隔も広くなっていくため、正確な高さが取得できません。
高さを求める方法を教えていただければと思います。
よろしくお願いします。
Dim g As Graphics = RichTextBox1.CreateGraphics()
Dim margin As Integer = RichTextBox1.Bounds.Height - RichTextBox1.ClientSize.Height
Dim line As Integer = 1 + RichTextBox1.GetLineFromCharIndex(RichTextBox1.Text.Length - 1)
Dim h As Integer = (g.MeasureString(RichTextBox1.Text, RichTextBox1.Font).Height * line) + margin + 2
|