Foro de elhacker.net

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...

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

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

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