28-11-21, 08:17 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ارجو من الاخوة الكرام المساعده في اظهار النصوص باللغه العربيه
ولكم جزيل الشكر
كود الاداة
كود :
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Namespace howto_rtf_table
Public Class RtfTable
Public InternalMargin As Integer = 180
Public NumRows, NumCols As Integer
Public ColumnWidths() As Integer = Nothing
Public Contents(,) As String = Nothing
Public Sub New(ByVal num_rows As Integer, ByVal num_cols As Integer, ByVal internal_margin As Integer)
NumRows = num_rows
NumCols = num_cols
InternalMargin = internal_margin
ColumnWidths = Enumerable.Repeat(1440, NumCols).ToArray()
Contents = New String(NumRows - 1, NumCols - 1) {}
For r As Integer = 0 To NumRows - 1
For c As Integer = 0 To NumCols - 1
Contents(r, c) = ""
Next c
Next r
End Sub
Public Sub SetColumnWidths(ParamArray ByVal widths() As Integer)
For c As Integer = 0 To NumCols - 1
ColumnWidths(c) = widths(c)
Next c
End Sub
Public Overrides Function ToString() As String
Dim sb As New StringBuilder()
Dim column_widths_string As String = ColumnWidthsString()
For r As Integer = 0 To NumRows - 1
' Start the row.
sb.Append("\trowd")
sb.Append("\trgaph" & InternalMargin.ToString())
' Column widths.
sb.Append(column_widths_string)
' Column contents.
For c As Integer = 0 To NumCols - 1
sb.Append("\pard\intbl{" & Contents(r, c).Replace("\", "\\") & "}\cell")
Next c
' End the row.
sb.Append("\row")
Next r
Return sb.ToString()
End Function
Private Function ColumnWidthsString() As String
Dim sb As New StringBuilder()
Dim total As Integer = 0
For c As Integer = 0 To NumCols - 1
total += ColumnWidths(c)
sb.Append("\cellx" & total.ToString())
Next c
Return sb.ToString()
End Function
End Class
End Namespaceكود الاستدعاء واضافة البيانات
كود :
Dim table As New RtfTable(10, 2, 220)
table.SetColumnWidths(1200, 1200)
table.Contents(0, 0) = "اسم الصنف"
table.Contents(0, 1) = "الثمن"
rtbTable.Rtf = rtbTable.Rtf.Replace("@@@", table.ToString)مرفق صورة توضيحيه
مرفق مثال
