Hi Tony,
Here's the code for inserting images into RichTextBox, this will allow the user to resize the image but the image quality gets quite bad when resized (except when it's in the print preview dialogue).
Public Sub InsertPicture()
Try
Dim GetPicture As New OpenFileDialog
GetPicture.Filter = "PNGs (*.png), Bitmaps (*.bmp), GIFs (*.gif), JPEGs (*.jpg)|*.bmp;*.gif;*.jpg;*.png|PNGs (*.png)|*.png|Bitmaps (*.bmp)|*.bmp|GIFs (*.gif)|*.gif|JPEGs (*.jpg)|*.jpg"
GetPicture.FilterIndex = 1
GetPicture.InitialDirectory = "C:\"
If GetPicture.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim SelectedPicture As String = GetPicture.FileName
Dim Picture As Bitmap = New Bitmap(SelectedPicture)
Dim cboard As Object = Clipboard.GetData(System.Windows.Forms.DataFormats.Text)
Clipboard.SetImage(Picture)
Dim PictureFormat As DataFormats.Format = DataFormats.GetFormat(DataFormats.Bitmap)
If RichTextBoxPrintCtrl1.CanPaste(PictureFormat) Then
RichTextBoxPrintCtrl1.Paste(PictureFormat)
End If
Clipboard.Clear()
Clipboard.SetText(cboard)
End If
Catch ex As Exception
End Try
End Sub
Private Sub Button_Click()
InsertPicture()
End Sub
If this code isn't what you need or if it's the same code you're using now then here's an alternative option
here.
Submit an article or tip