Daszbin Ответов: 0

Мой текст в моем richtextbox идет вертикально


Поэтому по какой-то причине, когда я сохраняю свой текст richtextbox в формате pdf, он идет хорошо, потому что, когда я открываю его chrome, он выглядит так, как должен выглядеть, однако если я снова открою pdf-файл, буквы слова будут разбросаны по каждой строке, я не знаю, почему он это делает.
Я видел, что эта проблема произошла с кем-то другим, но она была в wpf richtextbox, а моя-в winform richtextbox

Вот проблема guy wpf richtextbox и изображение из stackoverflow но я показываю вам пример
https://i.stack.imgur.com/xWsaR.jpg

Теперь моя проблема
https://www.dropbox.com/s/yf6nowelfugmvyx/Screenshot%20%2816%29.png?dl=0

Когда я сохраняю файл в первый раз, я использую itext7 для vb.net
вот мой код

Dim pdfDoc As iText.Kernel.Pdf.PdfDocument = New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfWriter(dlg.FileName))
                   Dim myDocument As iText.Layout.Document = New iText.Layout.Document(pdfDoc, iText.Kernel.Geom.PageSize.A4)
                   Try
                       myDocument.Add(New iText.Layout.Element.Paragraph(RichTextBoxEx1.rtb.Text))
                   Catch de As iText.Kernel.PdfException
                       Console.Error.WriteLine(de.Message)
                   Catch ioe As IOException
                       Console.Error.WriteLine(ioe.Message)
                   End Try

                   'step 5: Remember to close the document'
                   Text = dlg.FileName
                   myDocument.Close()


Поэтому перед выходом пользователя у меня есть опция автосохранения, которая проверяет, существует ли "io.file.exists(Me.Text)". У Меня.Текст ака текстовой форме и текстовой форме является именем, как долго существует этот файл. Поэтому когда пользователь добавляет еще какой либо текст в richtextbox pdf файл добавит дополнительный текст в файл
это код автосохранения pdf

GemBox.Document.ComponentInfo.SetLicense("my license key number")
                   RichTextBoxEx1.rtb.SaveFile(Text, RichTextBoxStreamType.RichText)
                   GemBox.Document.DocumentModel.Load(Text, options:=GemBox.Document.LoadOptions.RtfDefault).Save(Text, GemBox.Document.SaveOptions.PdfDefault)



затем, когда я открываю pdf-файл в richtextbox, я использую для этого следующий код
Dim FileName As String = dlg.FileName
                    Using SourceStream As FileStream = IO.File.Open(FileName, FileMode.Open)
                        Dim r As Nasosoft.Documents.Pdf.PdfTextReader = New Nasosoft.Documents.Pdf.PdfTextReader(SourceStream, Encoding.Default)
                        RichTextBoxEx1.rtb.Text = (r.ReadToEnd)
                    End Using


Поэтому, когда я открываю файл PDF в Chrome в первый раз он отлично сочетается даже с автосохранения и если его обычный PDF, который я не редактируйте текст получается большим в элементе управления richtextbox единственная проблема, когда я открываю его снова, второй раз в поле richtextbox Буквы в словах распространяются на каждую линию, но не вместе в нормальный горизонтальный текст.

На мой взгляд, я считаю, что виновником является код с nasosoft.

Что я уже пробовал:

Я попытался изменить формат A4 в itext7 на что-то другое, чтобы посмотреть, может быть, это исправит проблему, но в любом случае он все равно выходит так, когда я открываю отредактированный pdf - документ
https://www.dropbox.com/s/yf6nowelfugmvyx/Screenshot%20%2816%29.png?dl=0

однако, когда я открываю PDF файл неотредактированный текст выходит большой, вот изображение, что
https://www.dropbox.com/s/6oawnbdeu9gvuw8/Screenshot%20%2817%29.png?dl=0

0 Ответов