Visual Basic - COLOREAR CÓDIGO HTML

Life is soft - evento anual de software empresarial
   
Vista:

COLOREAR CÓDIGO HTML

Publicado por Paginas Web | YalPublicidad (1 intervención) el 26/08/2008 02:10:54
COLOREAR CÓDIGO HTML

Este código fué brindado por Jorge Rodigrez, en este caso nos brinda un simple ejemplo de como colerear código fuente Html para lo cual se utilizará un formulario con nombre frmEditorHTML en el cual se insertera un texto rtf, para lo cual nos vamos al menú Proyecto -> Componentes -> Microsoft Rich TextBox Control 6.0 al cual se le colocará el nombre de rtbEditor y también se insertará un modulo con el nombre de modEditorHTML. Bueno basta de bla bla bla y vamos a ver el código que se agregará:

Form1

frmEditorHTML.frm

Private Sub Form_Load()
oInfoEditor.EtiquetaActual = ""
End Sub

Private Sub rtbEditor_KeyPress(KeyAscii As Integer)
Dim Caracter As String
Caracter = Chr(KeyAscii)
If Caracter <> " " And KeyAscii <> 13 Then
If Len(oInfoEditor.EtiquetaActual) = 0 Then
oInfoEditor.PosicionInicial = Me.rtbEditor.SelStart
End If
oInfoEditor.EtiquetaActual = oInfoEditor.EtiquetaActual & Caracter
Else
If InStr(1, Etiquetas, oInfoEditor.EtiquetaActual, vbTextCompare) > 0 Then
Dim PosActual As Integer
PosActual = Me.rtbEditor.SelStart
Me.rtbEditor.SelStart = oInfoEditor.PosicionInicial
Me.rtbEditor.SelLength = Len(oInfoEditor.EtiquetaActual)
Me.rtbEditor.SelColor = RGB(0, 0, 255)

Me.rtbEditor.SelStart = PosActual
Me.rtbEditor.SelLength = 0
Me.rtbEditor.SelColor = RGB(0, 0, 0)
End If
oInfoEditor.EtiquetaActual = ""
End If

End Sub

Modulo 1

modEditorHTML

Public Const Etiquetas As String = "<html>|</html>|<head>|</head>|<title>|</title>|<p>|</p>|<br>|<hr>"

Public Type InfoEditor
EtiquetaActual As String
PosicionInicial As Integer
End Type

Public oInfoEditor As InfoEditor

Fin bueno debemos agradecer a Jorge por brindarnos este magnifico ejemplo, si alguno de ustedes puede hacer que este ejemplo se convierta en un editor de código mas avanzado no deje de escribir a soporte@yalpublicidad.com , el código esta abierto para su mejora. Puedes bajar el codigo fuente
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder