Hallo,
ich möchte in meinem Programm eine Tabelle in der RichTextBox Machen. Wie das geht weiß ich schon... ein bisschen... :3
Ich habe jetzt ein Code mit dem ich die Tabelle erzeuge, leider klappt das ganze nicht richtig und wird Falsch angezeigt, bitte hilfe...
Es kommt nur sowas raus:
ich möchte in meinem Programm eine Tabelle in der RichTextBox Machen. Wie das geht weiß ich schon... ein bisschen... :3
Ich habe jetzt ein Code mit dem ich die Tabelle erzeuge, leider klappt das ganze nicht richtig und wird Falsch angezeigt, bitte hilfe...
VB.NET-Quellcode
- Dim sB As New System.Text.StringBuilder
- sB.Append("{\rtf1\ansi\deff0")
- For Each item As ListViewItem In frmOrder.lvOrder.Items
- rtbRechnung.SelectionFont = New Font("Consolas", 8)
- Dim cost As Double = 0
- For i As Integer = 1 To CInt(item.SubItems(5).Text)
- cost += CDbl(item.SubItems(2).Text)
- Next
- sB.Append("\trowd\trgaph144\clbrdrt\brdrs\clbrdrl\brdrs\clbrdrb\brdrs\clbrdrr\brdrs\cellx5000\clbrdrt\brdrs\clbrdrl\brdrs\clbrdrb\brdrs\clbrdrr\brdrs\cellx5000\clbrdrt\brdrs\clbrdrl\brdrs\clbrdrb\brdrs\clbrdrr\brdrs\cellx2000 " & item.Text & "\intbl\cell " & item.SubItems(5).Text & "x\intbl\cell " & cost.ToString("0.00") & " \'80\row")
- 'rtbRechnung.AppendText(item.Text & Space(4) & item.SubItems(5).Text & "x" & Space(4) & cost.ToString("c") & vbNewLine)
- Next
- sB.Append("}")
Es kommt nur sowas raus:
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Matix Media“ ()