Mensajes

para los gráficos tenés Mogre (es un port de Ogre para .Net, igual no sé si se actualizaron a la verisón 1.6.* de Ogre ... creo que iban por la 1.4.9), que creo que es usable en VB.Net ....

No entendi casi nada de lo que dices (porque no se ningun tema del que estas hablando  ), pero si se puede en C# se puede en VB 

jajajaj no seas vago y usa un for each o algo para recorrer un bucle xD
mira, te escribo el codigo a la volada

Código (vbnet) [Seleccionar] Expandir


    Dim palabras as New HashTable()
Public Sub Form_Load(....)....
    palabras.add("@", Color.Red)
    palabras.add("echo", Color.Blue)
End Sub

'.....

Private Sub rtf_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtf.TextChanged
    For each s As String In palabras.Keys
        colorear(s, palabras(s))
    Next
End sub


no estoy seguro si funciona (dudo dentro del for each), pero bueno, lo acabo de inventar recien, fijate si te sirve

Ahora (que no me acuerdo porque no lo escribi  ) estaria bueno hacer una especie de IDE simple para varios lenguajes, ej, cuantas veces hemos abierto el tremendo pero algo lento visual studio para probar unas simples lineas. Con "nuestro" pequeño IDE se podria hacer simple jejeje....x eso implemente la opcion de cualquier color. Es buena idea, alguien se prende??? (se une?)

queres hacer un parser de los colores de cada lenguaje, hay un monton de ejemplos en internet de ese tipo de proyecto.

puede ser, pero un coloreador de lenguajes no puede ser considerado IDE,  aparte de colorear se podria hacer una "simulacion" (copia xD) de Intellisense y compilar el codigo (solo en .net, ya que en otros lenguajes necesitamos un compilador jejej)

1º Es mesenger API y no APIO, la verdura del messenger??  (malisimo xD)

2º Vale buscar en internet 
http://carlosnuel.spaces.live.com/blog/cns!7102C67D335FEB24!367.entry?sa=908715145

jajajaj no seas vago y usa un for each o algo para recorrer un bucle xD
mira, te escribo el codigo a la volada

Código (vbnet) [Seleccionar] Expandir


    Dim palabras as New HashTable()
Public Sub Form_Load(....)....
    palabras.add("@", Color.Red)
    palabras.add("echo", Color.Blue)
End Sub

'.....

Private Sub rtf_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtf.TextChanged
    For each s As String In palabras.Keys
        colorear(s, palabras(s))
    Next
End sub


no estoy seguro si funciona (dudo dentro del for each), pero bueno, lo acabo de inventar recien, fijate si te sirve

Ahora (que no me acuerdo porque no lo escribi  ) estaria bueno hacer una especie de IDE simple para varios lenguajes, ej, cuantas veces hemos abierto el tremendo pero algo lento visual studio para probar unas simples lineas. Con "nuestro" pequeño IDE se podria hacer simple jejeje....x eso implemente la opcion de cualquier color. Es buena idea, alguien se prende??? (se une?)

jajajaj xD, pon todo el contenido en un string, e importa el namespace System.IO
y usas

Código (vbnet) [Seleccionar] Expandir

Dim sw As StreamWriter = File.CreateText(Application.StartupPath & "\notas.txt")
sw.Write(nota)
sw.Close()
sw = Nothing

y listo ^^

oie no sean pesados

me incluyo que tambien soy ignorante en muchas cosas de vb

si quieren dar a mostrar su ego, mejor no postee y haga su tema aparte "yo soi el amo de vb", ya que atry posteo para una ayuda
no todos tenemos la misma practica en la programacion
y si de verdad les gusta que la programacion se sigua dando, no se burlen de los principiantes (me incluyo)


salu2 y gracias por la ayuda que no le prestaron a un "integrante del foro"

Perdón pero... ¿ esto es por mi ??? 

Si lo es, la verdad, no veo DONDE es que he insultado o me he burlado de esta persona.

Mas bien, puse un ejemplo concreto (y es el mas sencillo y básico que se me ocurrió)

Si no lo es, pues, bueno, no he dicho nada... 

dudo que sea por ti (y yo pa' que me meto? a ver que si dicen algo xD xD), me parece q es x el fan de naruto q hay mas arriba

un ricthtextbox para una nota simple?? D:

jajaja XD impresinonante cuantos mensajes me perdi mientras no estaba XD xD, pero supongo que aythor94 no tiene todos los promedios calculados, seria mejor un mini-programa que pida ingresar todas las notas y que al final aparezca el promedio y el texto "eres un crack" por ejemplo  (ahora justo me voy a buscar a cierta persona, pero sino lo haria)

[Edit:]

Posdata: Felicitaciones es tu mensaje 100!

jajaja xD...sigamos x los mil!!! xD

Es curioso como se comporta el RichTextBox con el codigo que utilizé, por que al editar una parte intermedia del texto me selecciona hacia adelante algunos espacios, jeje, y a mi si me funciona en todas las lineas    , realmente al leer el post por primera vez crei que seria mas simple, unas 4 lineas y ya, pero resulto interesante intentar, en fin, bueno aqui hay otra idea, aunque tambien tiene varios fallos

-------------------------------

El codigo de Raul funciona muy bien, note que parpadea la linea al escribir, y al escribir entre texto no colorea, pero al parecer no nos da los mismos resultados el codigo, sera por aquello de los framework? bueno quien sabe.

no he probado el codigo todavia, aunque ahora no tengo tiempo ,a al tarde volvere  

es verdad, parpadea, pero es por la forma que estamos utilzando (jamas pense q habia que seleccionar para colorear). Aunque la mejor forma (y mas dificil  ) de hacerlo es haciendo un control nuevo (tal vez que herede de richtextbox) y dibujar linea por linea con colores y todo ( sobrecargando el metodo OnPaint ). Pero como dije, es la forma mas dificil de hacer: dibujar lineas, dibujar el cursor, las barras de desplazamiento, un lio... xD



Edit: Funciona, aunque no he probado romperlo todavia

igual de todas formas, si dices que tiene errores, habra que perfeccionarlos y tal vez hacer una mezcla de codigo entre los 2 jejeje ...


bueno.....suerte entonces... 

jajajaj no seas vago y usa un for each o algo para recorrer un bucle xD
mira, te escribo el codigo a la volada

Código (vbnet) [Seleccionar] Expandir


    Dim palabras as New HashTable()
Public Sub Form_Load(....)....
    palabras.add("@", Color.Red)
    palabras.add("echo", Color.Blue)
End Sub

'.....

Private Sub rtf_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtf.TextChanged
    For each s As String In palabras.Keys
        colorear(s, palabras(s))
    Next
End sub


no estoy seguro si funciona (dudo dentro del for each), pero bueno, lo acabo de inventar recien, fijate si te sirve

[EDIT:]

Jó!! Xtriker me gano de mano xD xD

logre hacer esto, que solo falla cuando borras todo el texto (por eso el try xD), no titilea cuando tienes un texto muuuy largo ya que solo trabaja en la linea actual. Y tiene para los colores que tu quieras!!!!  

Código (vbnet) [Seleccionar] Expandir

Dim lastPos As Integer ' Donde se estaba escribiendo
   Dim nLine As Integer   ' Linea donde se trabaja
   Dim start As Integer   ' Indice del principio de la linea dentro del texto
   Dim final As Integer   ' Fin de la linea (largo de la linea)

   Private Sub rtf_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtf.TextChanged
       ' "@" se colorea                         (NOTA: Funciona a medias, con el tema
       ' "@asfdasd" : @ se colorea        ( de que si se borra queda el color que estaba)
       colorear("@", Color.Red, False, False)
       ' "echo" se colorea
       ' "malechor" : echo no se colorea
       colorear("echo", Color.Blue, False)
   End Sub

   Sub colorear(ByVal clave As String, ByVal color As Color, Optional ByVal spaceAntes As Boolean = True, Optional ByVal spaceDespues As Boolean = True)
       Try
           ' Para recordar en que posicion estaba y no provocar problemas
           lastPos = rtf.SelectionStart
           ' Obtenemos la linea a trabajar
           nLine = rtf.GetLineFromCharIndex(lastPos)
           ' Obtenemos el indice de la linea (indice dentro de todo el texto, no conviene separar la linea en otra variable)
           start = rtf.GetFirstCharIndexOfCurrentLine()
           ' establecemos el limite para buscar la palabra clave
           final = rtf.Lines(nLine).Length

           ' Para saber si se tiene que escribir la palabra clave por separado
           If spaceAntes Then clave = " " & clave
           If spaceDespues Then clave = clave & " "

           ' Buscamos la palabra clave, si no esta, no hacemos nada
           If Not rtf.Text.IndexOf(clave, start, final) = -1 Then
               rtf.SelectionStart = rtf.Text.IndexOf(clave, start, final)
               rtf.SelectionLength = clave.Length ' Para no colorear demas....
               rtf.SelectionColor = color
           End If

           ' Volvemos a donde se estaba escribiendo, y al color normal
           rtf.SelectionStart = lastPos
           rtf.SelectionLength = 0
           rtf.SelectionColor = rtf.ForeColor
       Catch ex As Exception

       End Try
   End Sub

Tuve cierto problemita con los espacion, ya que si pones "Mecho" coloreaba "echo" en azul ¬¬ asi que bueno, tuve que ponerle esos parametros opcionales. aunque igual se entiende.....espero que te sirva!!!

Eso si, mi RichTextBox se llama rtf por las dudas  

Eso si, quiero estar en los creditos!!!!  

EDIT: agregado comentarios
EDIT 2: probe la solucion de striker pero me tiro error en "Reservadas.Contains" por que no era array o algo asi me dio el error, igual lo suplante por un ForEach y solo me colorea si la palabra esta en la primera linea, no en cualquier otra... u.u