Hola estoy ahciendo un chat y quiero saber como poner una imagen en unt ext box, asi como poner u icono, que ahces click en una fotito o boton, se abre un form con iconos, haces click en el icono y se muestra en el textbox, y se pueda enviara los otros contactos ;)
Espero que se pueda hacer ,)
Salu2
Ranslsad
La verdad, creo q no se puede hacer eso en un textbox. XQ es texto enriquecido. Necesitas un objeto richtextbox.
creo que es algo imposible, al menos nunca he visto algun ejemplo parecido :huh: , averigare :P y pos si encuentro te aviso
La respuesta es facil :
- primero recorta la imagen
- luego usa pegamento de barra para que puedas mover la imagen sobre la textbox en la pantalla
Cuidado: si usas Super glue no podras despegar la imagen y ademas se te puede romper la pantalla del monitor, sobre todo si es LCD.
YA EN SERIO como te han dicho lo mejor es que uses el RichTextbox ya que con el Textbox no se puede.
en el RichTextbox se pueden poner imagenes, iconos, accesos directos y no se que mas ni como, lo mejor es que busques ejemplos sobre el RichTextbox.
Y si tiene que ser en una Textbox a la fuerza seguramente lo puedas hacer con las APIS, pero eso sera meterse en un berengenal, sobre todo si quieres que la imagen se mueva o se redimensione acorde con la Textbox.
Un saludo.
;D ;D ;D ;D
Ok, muchas gracias por la informacion, pero en un chat se puede usar el rich txt box? yo quiero ahcer algo estilo Messenger :D
Ahh y como se llama el Richtxt Box? en components esta?
PD: Trabajo en Visual Basic 6.0 ;)
Salu2
Ranslsad
Microsoft richtext control 6.0 creo
Salu2, nunca m habia dado x plantearme poner una imagen en un RichTextBox. He stado probando con varias de las propiedades del RichTextBox pero solo consigo q m aparezcan unos valores numericos :-[.
m gustaria q m dijeran con q propiedad es, jejeje es q m pika la curiosidad x ver como es esto ;D
ups! weno m disculpo pq antes tenia k haber buscado x ahi ;D
con este codigo puedo poner una imagen...(X SUPUESTO EL CODE NO ES MIO), pero la cargo dsd una direccion con un common dialog :(, m gustaria saber como se puede hacer dsd un picture x ejemplo.
y aki el code xD...+ q nada x si a alguien le sirve:
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 Command1_Click()
On Error GoTo ErrorImagen
Dim strRutaImagen As String
Dim imgLaImagen As Picture
Dim strContenidoPortapapeles As String
With CommonDialog1
.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 RichTextBox1.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