Мой текст в моем 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