.NET Framework

Απ: Ύψος rtf

Ioannis P — Fri, 03 Feb 2006 19:09:38 GMT

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

Απ: Ύψος rtf

Χρήστος Γεωργακόπουλος — Tue, 31 Jan 2006 19:25:02 GMT

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

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

Ύψος rtf

Ioannis P — Tue, 31 Jan 2006 18:40:15 GMT

Έχω ένα 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;
}