Ejemplos usando el Api de windows para Visual basic

10 - Como insertar imágenes en un control RichTextBox - Api sendMessage

EL control RichTextBox tiene la propiedad de mostrar texto enriquecido ( Formato RTF ) y también la de contener imágenes y gráficos.

Mediante el api SendMessage y el mensaje WM_PASTE podemos pegar lo que hay en el Clipboard, especificandole el Hwnd del control RichtextBox en el primer parámetro de la función

Pegar imagenes en un control Richtextbox con el Api SendMessage

Controles

Colocar un Microsoft RichTextBox , un control command1 para seleccionar la imagen y control un commonDialog

Nota: si tenemos una imgen en el portapapeles y presionamos la tecla Ctrl+V la imagen se pega en el RichTexBox, osea que podriamos utilizar SendKeys sin usar el Api, aunque me parece un poco mejor usando el api SendMessage

Código fuente en un formulario:

'Declaración del Api SendMessage Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Integer, _ ByVal lParam As Any) As Long Private Const WM_PASTE As Long = &H302 'Botón que selecciona el archivom de imagen y lo pega en _ el control RichTextBox Private Sub Command1_Click() On Error GoTo ErrorImagen Dim strRutaImagen As String 'variable para la imagen Dim imgLaImagen As Picture 'Cuadro de dialogo para abrir imagen With CommonDialog1 .DialogTitle = "Insertar imagen" .CancelError = True .FilterIndex = 1 .flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly ' abre el archivo .ShowOpen strRutaImagen = .FileName End With 'Leemos la imagen y la almacenamos en la variable Set imgLaImagen = LoadPicture(strRutaImagen) 'Colocamos la imagen en el portapapeles Clipboard.SetData imgLaImagen 'Usamos SendMessage para pegar la imagen mediante el mensaje WM_PASTE _ ' y le especificamos que lo pegue en el RichTextBox pasandole su Hwnd SendMessage RichTextBox1.hwnd, WM_PASTE, 0&, 0& 'Eliminamos el contenido portapapeles Clipboard.Clear Exit Sub 'Rutina de error ErrorImagen: If Err.Number <> 32755 Then MsgBox "Error " & Err.Number & " " & Err.Description Exit Sub End If End Sub Private Sub Form_Load() Me.Caption = " Insertar gráfico en RichtextBox" Command1.Caption = " Abrir imagen" End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb