Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Como hago que un textbox reciba codigos HTML

Estas en el tema de Como hago que un textbox reciba codigos HTML en el foro de Visual Basic clásico en Foros del Web. Hola .. Disculpen, tengo un proyecto en Visual basic 6 .. Pero en el tengo un pequeño problema .. Tengo un textbox en el cual ...
  #1 (permalink)  
Antiguo 03/05/2008, 19:14
 
Fecha de Ingreso: mayo-2008
Mensajes: 1
Antigüedad: 16 años
Puntos: 0
Como hago que un textbox reciba codigos HTML

Hola ..

Disculpen, tengo un proyecto en Visual basic 6 ..
Pero en el tengo un pequeño problema ..
Tengo un textbox en el cual recibo información en código HTML, pero me lo muestra tal y como es .. digámoslo así .. "<font color="000000">hola</font> ..

Cómo le hago para que solo aparezca el texto y no todo el código ..

Agradeceré su respuesta ..

Gracias!
  #2 (permalink)  
Antiguo 05/05/2008, 09:49
Avatar de David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años
Puntos: 839
Re: Como hago que un textbox reciba codigos HTML

La única idea que me viene a la mente es guardar los datos del Textbox en un archivo, y cargar ese archivo con el webbrowser...
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.
  #3 (permalink)  
Antiguo 05/05/2008, 16:40
Avatar de seba123neo  
Fecha de Ingreso: febrero-2007
Ubicación: Esperanza, Santa Fe
Mensajes: 1.046
Antigüedad: 17 años, 2 meses
Puntos: 19
Re: Como hago que un textbox reciba codigos HTML

Hola,te dejo un codigo para sacarle los tags HTML a una pagina y dejar solo el texto,agrega la referencia a Microsoft HTML Object Library..desde el menu Proyecto-->Referencias..,pone un webbrowser y un textbox multilinea al form y este codigo...

Código:
Dim webdoc As HTMLDocument
Dim texbody As HTMLBody
Dim Texob As IHTMLTxtRange

Private Sub Form_Load()
WebBrowser1.navigate "http://www.google.com.ar"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set webdoc = WebBrowser1.Document
Dim Acollection As IHTMLElementCollection
Set Acollection = webdoc.All.tags("a")
Set texbody = webdoc.body
Set Texob = texbody.createTextRange()
Text1.Text = Texob.Text
Texob.moveToElementText Acollection.Item(3)
Texob.Select
End Sub
saludos.
__________________
" Todos Somos Ignorantes; lo que pasa es que no todos ignoramos las mismas cosas " - Albert Einstein
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 20:42.