Изменение размера изображения при вставке в RichTextBox - или другое решение? - PullRequest
Новая
       63

Изменение размера изображения при вставке в RichTextBox - или другое решение?

0 голосов
/ 16 апреля 2020

У меня есть форма Windows с TabControl. На вкладке 1 у меня есть RichTextBox (rtb1) и Picturebox (pbx). Во вкладке 2 у меня есть другой RichTextBox (rtb2).

Когда я нажимаю кнопку, текст из rtb1 и текущее изображение в pbx помещается в rtb2. Проблема в том, что размер картинки не всегда подходит. Мой текущий код таков: 

        Dim text = rtb1.Text
        rtb2.AppendText(text)
        Clipboard.SetImage(pbx.Image)
        rtb2.Paste()

Можно ли изменить размер изображения при вставке кода?

Можно получить изображение с пути windows, я просто не знал, как изменить это в RichTextBox. Если это облегчает?

Редактировать: Это сделал! 

        Dim newWidth = 500
        Dim newHeight = 500
        Clipboard.SetImage(New Bitmap(pbxDatasheet.Image, newWidth, newHeight))
        rtbArmy.Paste()

Редактировать 2: Это все еще не работает.

При одинаковом коде происходят следующие вещи: 1. Большую часть времени вставленные изображения имеют одинаковый размер. Но не правильный размер. Я могу изменить newWidth и newHeight все, что я хочу, они редко отличаются по размеру. Хотя иногда картина намного больше, чем другие. 2. Иногда он даже не добавляет изображение в RichTextBox. Там нет образца, когда это произойдет.

Те же строки кода могут делать все вышеперечисленное. Я понятия не имею, что здесь делать.

...