Visual Basic - Imagen en RichTextBox

Life is soft - evento anual de software empresarial
   
Vista:

Imagen en RichTextBox

Publicado por Juan (52 intervenciones) el 18/02/2010 15:20:37
Hola ,

Alguien me puede decir cómo insertar una imagen en un RichtTextBox. He encontrado en la red la forma de hacerlo pero utiliza un coomondialog para buscar la ruta de la imagen a insertar. Lo que quisiera es hacer lo mismo pero de forma automática, es decir, sin especificar la ruta en tiempo de ejecución, sino que yo la especifico en el código.

Esto es lo que he encontrado:

Option Explicit
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
Private Const WM_PASTE = &H302

Private Sub cmdInsertarImagen_Click()
On Error GoTo ErrorImagen
Dim strRutaImagen As String
Dim imgLaImagen As Picture
Dim strContenidoPortapapeles As String
With cdlImagen
.DialogTitle = "Insertar imagen"
.CancelError = True
.Filter = "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|Imágenes PNG (*.png)|*.png|Todos los archivos (*.*)|*.*"
.FilterIndex = 1
.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
.ShowOpen
strRutaImagen = .FileName
End With
Set imgLaImagen = LoadPicture(strRutaImagen)
strContenidoPortapapeles = Clipboard.GetText
Clipboard.Clear
Clipboard.SetData imgLaImagen
SendMessage rtfTexto.hWnd, WM_PASTE, 0, 0
Clipboard.Clear
Clipboard.SetText strContenidoPortapapeles
Exit Sub
ErrorImagen:
If Err.Number <> 32755 Then
MsgBox "Error " & Err.Number & " " & Err.Description
Exit Sub
End If
End Sub

DONDE HE DE ESPECIFICAR LA RUTA PARA HACERLO AUTOMÁTICAMENTE, SIN UTILIZAR EL COMMONDIALOG

GRACIAS A TODOS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder