Sección de códigos , trucos y ejemplos para visual basic

80 - Como insertar imágenes en un control RichTextBox con el api SendMessage

Como se sabe , el Control RichTextBox tiene la propiedad de mostrar texto enriquecido y por supuesto también la de contener imágenes.

Este ejemplo , muestra como usando la función del api SendMessage y el mensaje WM_PASTE, podemos pegar lo que hay en el Clipboard en el RichTextbox

A la función SenMessage, hay que indicarle los siguiente parámetros

En el primer parámetro, el Hwnd del control RichTextBox , y en el segundo el mensaje de constante WM_PASTE, por ejemplo la llamada seria :

SendMessage RichTextBox1.hWnd, WM_PASTE, 0, 0

( Los demás parámetros no son necesarios )

Nota: si tenemos una imagen 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 mejor usando SendMessage

Otra cosa, es que la imagen se insertará o pegará donde esté ubicado el cursor dentro del control

Para el ejemplo colocar un Microsoft RichTextBox control , un CommandButton y un CommonDialog para poder seleccionar la imagen del disco

Insertar imagenes en RichTextBox

Código fuente en el formulario

Option Explicit 'Funcion Api SendMessage Private Declare Function SendMessage _ Lib "user32" _ Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Long) As Long 'Constante que le indica a windows _ que vamos a pegar un dato con SendMessage Private Const WM_PASTE = &H302 Private Sub Command1_Click() On Error GoTo ErrorImagen Const EXTENSIONES As String = "Todos los archivos de imágenes|*.gif;*.jpg;" & _ "*.jpe;*.bmp;*.png|Imágenes GIF (*.gif)|*.gif|" & _ "Imágenes JPG (*.jpg, *.jpe)|*.jpg;*.jpe|Imágenes" & _ "de mapas de bits (*.bmp)|*.bmp|Todos los archivos" & _ "(*.*)|*.*" Dim strRutaImagen As String 'variable para la imagen imagen Dim imgLaImagen As Picture 'Cuadro de diálogo para abrir imagen With CommonDialog1 .DialogTitle = "Insertar imagen" .CancelError = True .Filter = EXTENSIONES .FilterIndex = 1 .Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly .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 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() Command1.Caption = " Seleccionar imagen " Me.Caption = " Ejemplo para pegar un gráfico en un RichTextBox Control " End Sub Private Sub Form_Resize() 'redimensiona el RichtextBox y el CommandButton RichTextBox1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - (Command1.Height + 100) Command1.Move Me.ScaleWidth - (Command1.Width + 100), _ (RichTextBox1.Top + RichTextBox1.Height + 50) End Sub

Recursos visual basic.NET - Relacionados

Ocx Open source para vb.net - HighLight color RichTextBox

Buscar en Recursos vb