Cómo Hago esto con VB 6.0???

Allowski · #1 (**permalink**) 09/12/2009, 08:42

Ya hace un tiempo que estoy queriendo crear un editor de HTML/CSS en Visual basic.

Lo cierto es que no consigo que VB haga lo sgte.:

"<html>
<head></head>
<body>
</body>
</html>"
Para de esta manera diferenciar las etiquetas y los textos
Sera que me pueden hechar una mano...

pkj · #2 (**permalink**) 09/12/2009, 11:49

Te refieres a añadir saltos de linea?

Texto = "<html>" & vbCrLf & _
"<head></head>" & vbCrLf & _
"<body>" & vbCrLf & _
"</body>" & vbCrLf & _
"</html>"

kaiser07 · #3 (**permalink**) 09/12/2009, 11:57

creo q se refiere a que las etiquetas queden iluminadas

prueba con

texto = Replace(texto, "<html>", "***")

Los asteriscos seria la etiqueta <html> con el color (no se como se hace eso ultimo xD)

pkj · #4 (**permalink**) 09/12/2009, 12:51

Si lo que quieres es cambiar los colores, creo que en un textbox normal no vas a poder.

Solo se me ocurre que uses un RichTextBox y con algo como esto colorear las palabras que quieras:

Código :

Ver originalPrivate Sub Command1_Click()
  CambiaColor "<html>", vbBlue, RichTextBox1
  CambiaColor "</html>", vbBlue, RichTextBox1
  CambiaColor "<head>", vbRed, RichTextBox1
  CambiaColor "</head>", vbRed, RichTextBox1
  CambiaColor "<body>", vbGreen, RichTextBox1
  CambiaColor "</body>", vbGreen, RichTextBox1
End Sub

Código :

Ver originalSub CambiaColor(Palabra As String, Color As ColorConstants, RTB As RichTextBox, Optional DiferenciarEntreMayuscMinusc As Boolean = False)
  Dim Pos As Long
  Pos = IIf(DiferenciarEntreMayuscMinusc, InStr(1, RTB.Text, Palabra), InStr(1, UCase$(RTB.Text), UCase$(Palabra)))
  Do While Pos > 0
    RTB.SelStart = Pos - 1
    RTB.SelLength = Len(Palabra)
    RTB.SelColor = Color
    Pos = IIf(DiferenciarEntreMayuscMinusc, InStr(Pos + 1, RTB.Text, Palabra), InStr(Pos + 1, UCase$(RTB.Text), UCase$(Palabra)))
  Loop
End Sub

Saludos