Autor Tema: Codigo Para Marcar Palabras Reservadas (Leído 1057 veces)

Castord · « **en:** Jueves 16 de Agosto de 2007, 22:53 »

Estoy desarrollando el ide de un lenguaje nuevo que desarrollé (ahora la versión 1.1) pero tengo ciertos problemas con la marcacion de palabras reservadas...

Por favor fijense y aporten posibles soluciones para mejorar el rendimiento, si funciona, posteo TODO el código del lenguaje que desarrollo en C++ y VB.NET 2005

Lo que mas me rompe las bolas es la marcacion (seleccion en negro) que se hace en el rtb para marcar.

Si conocen algun control prediseñado con compatibiladad .NET o COM, por favor, pasenme el dato.

Gracias.

ESPERO COMENTARIOS

Castord

Código: Text

 
Imports DbUtilidades.MyDbOperacionesComunes
Imports Marcador.Marcador
Imports s2c_Interprete
Public Class frmDev
    Dim db As New OleDbAMBC(My.Resources.CnnStr)
    Dim Sty As New Estilo(Color.Black, Color.Blue, &#34;Courier New&#34;, 11)
    Dim WithEvents Marc As New s2c_Marcador(Sty)
    Dim ArchivoAbierto As String
    Dim WithEvents _Inter As New Seu2Cpp.Interprete_s2c
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Marc.AsignarControl(Me.RTB)
        Marc.MarcarTodo()
        'Me.MdiParent = frmMain
    End Sub
 
 
    Private Sub marc_MarcErr(ByVal Mensaje As String) Handles marc.MarcErr
        MsgBox(Mensaje & vbCrLf _
            & &#34;Se deshabilitará el marcado del texto!&#34;, MsgBoxStyle.Critical)
    End Sub
 
    Public Sub Abrir_Archivo(ByVal Path As String)
        Dim Lector As String, Porciones() As String
        Marc.AsignarControl(Me.RTB)
        Try
            Porciones = Split(Path, &#34;&#092;&#34;)
            ArchivoAbierto = Porciones(UBound(Porciones))
            Lector = My.Computer.FileSystem.ReadAllText(Path)
            Me.Text = &#34;s2c IDE - [&#34; & ArchivoAbierto & &#34;]&#34; '** nombre de archivo abierto
            RTB.Text = Lector
            Marc.MarcarTodo()
        Catch ex As Exception
            Marc.DesMarcarTodo()
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
 
    Private Sub RTB_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RTB.KeyDown
        lblLineaActual.Text = &#34;Linea: &#34; & Marc.Get_Linea_Actual
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tit As String, Texto As String
        Texto = RTB.Text.ToString
        tit = Me.Text
        Me.Text = &#34;[Compilando]&#34;
        _Inter.Correr(Texto)
        Me.Text = tit
 
    End Sub
 
    Private Sub _Inter_Interprete_Err(ByVal Mensaje As String) Handles _Inter.Interprete_Err
        MsgBox(Mensaje, MsgBoxStyle.Critical)
    End Sub
 
    Private Sub RTB_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RTB.MouseDown
        lblLineaActual.Text = &#34;Linea: &#34; & Marc.Get_Linea_Actual
    End Sub
 
    Private Sub RTB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RTB.TextChanged
 
    End Sub
End Class
 
 
 

el formulario que lo llama
necesitar un richtextbox, asignar al control y ya esta.
los metodos marcar todo y desmarcar todo son para la marcacion al abrir el archivo o al cerrar y guardar cambios

SoloCodigo

Autor Tema: Codigo Para Marcar Palabras Reservadas (Leído 1057 veces)

Castord

Codigo Para Marcar Palabras Reservadas

Castord

Re: Codigo Para Marcar Palabras Reservadas