Richtextbox imagecombo ayuda porfavor..

[visualfree]

Alguien sabe como colocar la imagen que uno seleccion en un imagecombo en el richtextbox? he buscando informacion pero no la encuentro agradeceria la ayuda saludos...

[CeLaYa]

revisate este link creo que es la respuesta a lo que estas buscando


http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/80.htm

[visualfree]

Yo hice lo siguiente pero nose si alguien me podria decir como mejorarlo:

Codigo:


enviar es el richtextbox2
recibir es el richtexbox1
agrego 6 imagenes al imagelist luego las agrego al imagecombo1
luego capturo el valor del combo seleccionado y lo paso a enviar luego doy click en enviar y me muestra la imagen en recibir
el problema es al darle enter me abre Microsoft Photo Editor eso quiere decir que tu tambien puedes hacer doble click en la imagen y abrirla nose si abra alguna ootra forma mas efectiva de hacer esto bueno espero su ayuda salu2 a todos ...

Private Sub Command1_Click()
enviar.SelText = ImageCombo1.SelectedItem.Text
End Sub

Private Sub enviar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Select Case ImageCombo1.SelectedItem.Text

Case "feliz"
recibir.OLEObjects.Add , , "c:\caras\001.gif"
Case "triste"
recibir.OLEObjects.Add , , "c:\caras\002.gif"
Case "amor"
recibir.OLEObjects.Add , , "c:\caras\007.gif"
Case "zzz"
recibir.OLEObjects.Add , , "c:\caras\015.gif"
Case "wea"
recibir.OLEObjects.Add , , "c:\caras\018.gif"

Case "ok"
recibir.OLEObjects.Add , , "c:\caras\023.gif"
Case Else
recibir.Text = "No selecciono cara"

End Select
enviar.SelText = ""
End If
End Sub

Private Sub Form_Load()
ImageCombo1.ComboItems.Add , , "feliz", 1
ImageCombo1.ComboItems.Add , , "triste", 2
ImageCombo1.ComboItems.Add , , "amor", 3
ImageCombo1.ComboItems.Add , , "zzz", 4
ImageCombo1.ComboItems.Add , , "wea", 5
ImageCombo1.ComboItems.Add , , "ok", 6
End Sub


pero agradeceria me ayudar a mejorarlo

[LeandroA]

hola como te dijero mas arriva pues de esa forma no te abriria el fotoeditor o bien usa bmp en ves de gif y luego pasale el foco a otro control y de esa manera se cierra el esito paint, pero sin embargo te aconsejo la forma que te dijeron
te muestro un programa chat que hice y utilize esa forma

http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/chat.htm

bien ahora dentro de poco boy a hacer algo parecido con un webbrowser (pero no con todos los chirimbolos que le puse) con lo cual los datos a enviar seran menos y asi sera mas rapido y los gif tendarn movimientos, te aseguro que va a ser mejor que con el richtextbox, cuando lo termine lo voy a poner en esa misma pagina

Saludos cualquier duda preguntame