Έχω ένα grid στο οποίο εμφανίζω rtf. Το πρόβλημα μου είναι οτι δεν μπορώ να υπολογίσω το ύψος του rtf έτσι ώστε να αλλάξω το ύψος της γραμμής του grid και να εμφανίζεται όλο το rtf. Κάπου βρήκα την παρακάτω ρουτίνα αλλά δεν κατάφερα να την κάνω να δουλέψει σε vb. Όποιος μπορεί ας βοηθήσει.

public int GetDisplayHeight (string sRTF, int iColWidth)
{
	RichTextBox rtfBox = new RichTextBox();
	rtfBox.Width = iColWidth;
	rtfBox.Text = sRTF;
	int start = rtfBox.TextLength;
	rtfBox.SelectionLength = 0;
	int line = rtfBox.GetLineFromCharIndex(start);
       	// Check max height of each character in each line.
	while(start >= 0 && line == rtfBox.GetLineFromCharIndex(start))
	{
		height = Math.Max(height,rtfBox.GetPositionFromCharIndex(start).Y +
			rtfBox.SelectionFont.Height + 1);
         	start -= 1;
	}
	return height;
}

Για δοκίμασε τώρα:

Public Function GetDisplayHeight(ByVal rtfText As String, ByVal iColWidth As Integer) As Integer
 Dim RichTextBox As New RichTextBox
 Dim Height As Integer
 RichTextBox.Width = iColWidth
 RichTextBox.Text = rtfText
 Dim Start As Integer = RichTextBox.TextLength
 RichTextBox.SelectionLength = 0
 Dim Line As Integer = RichTextBox.GetLineFromCharIndex(Start)
 While (Start >= 0 AndAlso Line = RichTextBox.GetLineFromCharIndex(Start))
  Height = Math.Max(Height, RichTextBox.GetPositionFromCharIndex(Start).Y + RichTextBox.SelectionFont.Height + 1)
  Start -= 1
 End While
 Return Height
End Function

---

Χρήστος Γεωργακόπουλος

Ευχαριστώ πολύ!!!