elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Colorear sintáxis de VB
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Colorear sintáxis de VB  (Leído 2,995 veces)
aaronduran2


Desconectado Desconectado

Mensajes: 790



Ver Perfil WWW
Colorear sintáxis de VB
« en: 27 Junio 2008, 22:42 pm »

Hola. Quisiera saber si existe algún método para colorear la sintáxis de VB (u otro lenguaje) dentro de VB, es decir, escribir en un TextBox y se colorea dependiendo de lo escrito.

Gracias de antemano.


En línea

cassiani


Desconectado Desconectado

Mensajes: 978


« Anterior | Próximo »


Ver Perfil WWW
Re: Colorear sintáxis de VB
« Respuesta #1 en: 27 Junio 2008, 22:45 pm »

Investiga sobre el RichTexbox...


En línea

aaronduran2


Desconectado Desconectado

Mensajes: 790



Ver Perfil WWW
Re: Colorear sintáxis de VB
« Respuesta #2 en: 27 Junio 2008, 23:05 pm »

He encontrado este código, pero a veces falla y no funciona correctamente.

Código:
'----------------------------------------
'- Name: Sam Huggill
'- Email: sam@vbsquare.com
'- Web: http://www.vbsquare.com/
'- Company: Lighthouse Internet Solutions
'- Date/Time: 14/08/99 11:31:36
'----------------------------------------
'- Notes:   Colour codes text into VB code
'
'----------------------------------------

'// Thanks to Thierry Waty for his help with the colourizing
Private gsBlackKeywords    As String
Private gsBlueKeyWords     As String
Public oleComment As OLE_COLOR
Public oleKeyword As OLE_COLOR
Public oleText As OLE_COLOR

Public Sub ColorizeWords(rtf As Object)
    oleComment = vbGreen
    oleKeyword = vbBlue
    oleText = vbBlack
   
    Dim sBuffer    As String
    Dim i          As Long
    Dim nJ         As Long
    Dim sTmpWord   As String
    Dim nStartPos  As Long
    Dim nSelLen    As Long
    Dim nWordPos   As Long


    '

    rtf.SelStart = 0
    rtf.SelLength = Len(rtf.Text)
    rtf.SelColor = oleText
    rtf.SelFontName = "Courier New"
    rtf.SelFontSize = "10"
    rtf.SelUnderline = False
    rtf.SelBold = False
    rtf.SelItalic = False

    sBuffer = rtf.Text
    sTmpWord = ""
    For i = 1 To Len(sBuffer)
        For iLine = 1 To Len(sBuffer)
            If iLine = Len(sBuffer) Then
            End If

            If (0 + iLine - 1) Mod Int(100 / 200 + 1) = 0 Then
                DoEvents
            End If

        Next
        Select Case Mid(sBuffer, i, 1)
            Case "A" To "Z", "a" To "z", "_"
                If sTmpWord = "" Then nStartPos = i
                sTmpWord = sTmpWord & Mid(sBuffer, i, 1)
            Case Chr(34)
                nSelLen = 1
                For nJ = 1 To 9999999
                    If Mid(sBuffer, i + 1, 1) = Chr(34) Then
                        i = i + 2
                        Exit For
                    Else
                        nSelLen = nSelLen + 1
                        i = i + 1
                    End If
                Next
            Case Chr(39)
                rtf.SelStart = i - 1
                nSelLen = 0
                For nJ = 1 To 9999999
                    If Mid(sBuffer, i, 2) = vbCrLf Then
                        Exit For
                    Else
                        nSelLen = nSelLen + 1
                        i = i + 1
                        If nSelLen > Len(sBuffer) Then Exit For
                    End If
                Next

                rtf.SelLength = nSelLen
                rtf.SelColor = oleComment

            Case Else
                If Trim(sTmpWord) <> "" Then
                    rtf.SelStart = nStartPos - 1
                    rtf.SelLength = Len(sTmpWord)
                    nWordPos = InStr(1, gsBlackKeywords, "*" & sTmpWord & "*", 1)
                    If nWordPos <> 0 Then
                        rtf.SelColor = oleText
                        rtf.SelText = Mid(gsBlackKeywords, nWordPos + 1, Len(sTmpWord))
                    End If
                    nWordPos = InStr(1, gsBlueKeyWords, "*" & sTmpWord & "*", 1)
                    If nWordPos <> 0 Then
                        rtf.SelColor = oleKeyword
                        rtf.SelText = Mid(gsBlueKeyWords, nWordPos + 1, Len(sTmpWord))
                    End If
                    If UCase(sTmpWord) = "'" Then
                        rtf.SelStart = i - 4
                        rtf.SelLength = 3
                        For nJ = 1 To 9999999
                            If Mid(sBuffer, i, 2) = vbCrLf Then
                                Exit For
                            Else
                                rtf.SelLength = rtf.SelLength + 1
                                i = i + 1
                            End If
                        Next

                        rtf.SelColor = oleComment
                        rtf.SelText = LCase(rtf.SelText)
                    End If
                End If

                sTmpWord = ""
        End Select


    Next
    rtf.SelStart = Len(rtf.Text)
End Sub
Public Sub InitColorize()
    gsBlackKeywords = "*Abs*Add*AddItem*AppActivate*Array*Asc*Atn*Beep*Begin*BeginProperty*ChDir*ChDrive*Choose*Chr*Clear*Collection*Command*Cos*CreateObject*CurDir*DateAdd*DateDiff*DatePart*DateSerial*DateValue*Day*DDB*DeleteSetting*Dir*DoEvents*EndProperty*Environ*EOF*Err*Exp*FileAttr*FileCopy*FileDateTime*FileLen*Fix*Format*FV*GetAllSettings*GetAttr*GetObject*GetSetting*Hex*Hide*Hour*InputBox*InStr*Int*Int*IPmt*IRR*IsArray*IsDate*IsEmpty*IsError*IsMissing*IsNull*IsNumeric*IsObject*Item*Kill*LCase*Left*Len*Load*Loc*LOF*Log*LTrim*Me*Mid*Minute*MIRR*MkDir*Month*Now*NPer*NPV*Oct*Pmt*PPmt*PV*QBColor*Raise*Randomize*Rate*Remove*RemoveItem*Reset*RGB*Right*RmDir*Rnd*RTrim*SaveSetting*Second*SendKeys*SetAttr*Sgn*Shell*Sin*Sin*SLN*Space*Sqr*Str*StrComp*StrConv*Switch*SYD*Tan*Text*Time*Time*Timer*TimeSerial*TimeValue*Trim*TypeName*UCase*Unload*Val*VarType*WeekDay*Width*Year*"
    gsBlueKeyWords = "*#Const*#Else*#ElseIf*#End If*#If*Alias*Alias*And*As*Base*Binary*Boolean*Byte*ByVal*Call*Case*CBool*CByte*CCur*CDate*CDbl*CDec*CInt*CLng*Close*Compare*Const*CSng*CStr*Currency*CVar*CVErr*Decimal*Declare*DefBool*DefByte*DefCur*DefDate*DefDbl*DefDec*DefInt*DefLng*DefObj*DefSng*DefStr*DefVar*Dim*Do*Double*Each*Else*ElseIf*End*Enum*Eqv*Erase*Error*Exit*Explicit*False*For*Function*Get*Global*GoSub*GoTo*If*Imp*In*Input*Input*Integer*Is*LBound*Let*Lib*Like*Line*Lock*Long*Loop*LSet*Name*New*Next*Not*Object*On*Open*Option*Or*Output*Print*Private*Property*Public*Put*Random*Read*ReDim*Resume*Return*RSet*Seek*Select*Set*Single*Spc*Static*String*Stop*Sub*Tab*Then*Then*True*Type*UBound*Unlock*Variant*Wend*While*With*Xor*Nothing*To*"
End Sub
En línea

cassiani


Desconectado Desconectado

Mensajes: 978


« Anterior | Próximo »


Ver Perfil WWW
Re: Colorear sintáxis de VB
« Respuesta #3 en: 27 Junio 2008, 23:16 pm »

Por acá se postearon dos ejemplo que hacen eso que quieres... ahora mismo no te ayudo a buscar porque estoy de salida, pero busca que lo encuentras  ;)
En línea

aaronduran2


Desconectado Desconectado

Mensajes: 790



Ver Perfil WWW
Re: Colorear sintáxis de VB
« Respuesta #4 en: 27 Junio 2008, 23:16 pm »

Gracias.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Colorear codigo en Olly.....se puede?
Ingeniería Inversa
Tinkipinki 4 3,116 Último mensaje 14 Agosto 2011, 19:37 pm
por Tinkipinki
Colorear filas de un listview
Programación Visual Basic
estranguladordesoplones 6 8,686 Último mensaje 3 Octubre 2013, 20:58 pm
por Danyfirex
Colorear textbox con css
Desarrollo Web
JS3 2 2,260 Último mensaje 16 Noviembre 2014, 21:05 pm
por JS3
Colorear sintaxis de código fuente en un edit-control, preferiblemente en C#.
.NET (C#, VB.NET, ASP)
pc51 1 2,639 Último mensaje 7 Febrero 2016, 04:00 am
por Eleкtro
Colorear marco de textbox o combobox
.NET (C#, VB.NET, ASP)
NoaC 6 8,512 Último mensaje 29 Junio 2017, 13:00 pm
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines