Mensajes

el textBox.Clear() no es necesario, jeje  el codigo de Novlucker es el correcto

Pues eso seria asi:

Select Case Media
    Case 10
        TextBox1.Clear()
        TextBox1.Text= "Eres un crack"
    Case 9
        TextBox1.Clear()
        TextBox1.Text= "Te queda muy poco"
    Case n
        'etc
    Case else
End Select

Con un select case se puede hacer algo asi, primero sacas la media y despues haces algo como

Select Case Media
    Case 10
        MessageBox.Show("Eres un crack")
    Case 9
        MessageBox.Show("Te queda muy poco")
    Case n
        'etc
    Case else
End Select

Pues para utilizar SQL con VB.net te sugiero la programacion en 3 capas, es un modelo de programacion sencillo y ordenado, en la pagina oficial de ASP hay algunos ejemplos, y es muy facil aplicarlo a VB.net

Ok, ya lo habia bajado hace algunos dias, pero apenas lo probe hoy, pero si ya esta arreglado que mejor, 

A modo de comentario sugiero que no se pueda aumentar el tamaño de la forma por que se nota la repeticion de la imagen de fondo si la haces muy grande

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

Código (vbnet) [Seleccionar] Expandir


Private ReservadasBlue As String() = _
    {"if", "then", "else"} 'En este arreglo pones todas las palabras que quieras que aparezcan en color Azul

    Private ReservadasRed As String() = _
    {"echo", "@"} 'En este arreglo pones todas las palabras que quieras que aparezcan en color Rojo

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

        ' aqui obtiene un arreglo de palabras desde el inicio
        ' hasta donde esta la posicion del cursor
        Dim Palabras As String() = RichTextBox1.Text.Substring(0, RichTextBox1.SelectionStart).Split()

        'Aqui obtenemos el ultimo elemento del arreglo de palabras
        Dim UltimaEscrita As String = Palabras(Palabras.Length - 1)

        'Guardamos la posicion del cursor
        Dim PosCursor As Integer = RichTextBox1.SelectionStart

        'Verificamos si la palabra escrita esta en el el arreglo
        'en este caso declare un arreglo para cada color
        If ReservadasBlue.Contains(UltimaEscrita) Then
            RichTextBox1.Find(UltimaEscrita, RichTextBoxFinds.Reverse)
            RichTextBox1.SelectionColor = Color.Blue
            RichTextBox1.SelectionStart = PosCursor
        End If

        'aqui para el color rojo, en caso de añadir mas pues solo seria
        'cosa de agregar mas arreglos y mas condicionales
        If ReservadasRed.Contains(UltimaEscrita) Then
            RichTextBox1.Find(UltimaEscrita, RichTextBoxFinds.Reverse)
            RichTextBox1.SelectionColor = Color.Red
            RichTextBox1.SelectionStart = PosCursor
        End If

        'regresamos al color original
        RichTextBox1.SelectionColor = Color.Black
    End Sub


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.

Pues yo intente hacer un ejemplo, espero sirva, aunque tiene problemas cuando escribes entre texto, podria servir de referencia

Código [Seleccionar] Expandir


Private Reservadas As String() = _
    {"if", "then", "else", "echo", "@"} 'En este arreglo pones todas las palabras que quieras que aparezcan en color


    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Dim i As Integer = RichTextBox1.SelectionStart
        Dim ActualCursor As Integer = RichTextBox1.SelectionStart 'recordar el punto de donde se estaba escribiendo
        Dim j As Integer = 0
        If i <> 0 Then 'evitar que el indice se salga del rango
            Do
                i = i - 1 'recorre en reversa hasta encontrar un espacio
                j = j + 1 'cuenta los caracteres de la palabra
            Loop While RichTextBox1.Text(i) <> CChar(" ") And i <> 0 'termina cuando encuentra un espacio
        End If
        Dim substring As String = RichTextBox1.Text.Substring(i, j).Trim() 'obtiene la ultima palabra escrita, quitandole los espacios

        If Reservadas.Contains(substring) Then 'comprobar que la palabra este en la lista
            RichTextBox1.Find(substring, RichTextBoxFinds.Reverse)
            RichTextBox1.SelectionColor = Color.Blue 'Colorea el texto
            RichTextBox1.SelectionStart = ActualCursor
        End If

        RichTextBox1.SelectionColor = Color.Black 'Vuelve al color primario
        RichTextBox1.SelectionStart = ActualCursor
    End Sub


Este codigo esta hecho en Visual studio 2008, espero que no este muy enrredado, espero sirva de algo amigo

Hola compañeros

Tambien estoy interesado en el tema, y he investigado mucho al respecto y estoy atorado en algunas cosas, pero quisiera saber si entiendo como esta la situacion
es decir que ya tienes deshabilitado UAC asi que cuando ejecutas algo como administrador ya no te pide confirmacion ¿Estoy bien?, y el problema que tienes es que al abrir el ejecutable lo abres mediante el menu contextual para seleccionar la opcion "Ejecutar como administrador".

Por que si es asi solo te quedaria cambiar el xml del ensamblado para que siempre se ejecute como administrador.

Pues es una buena idea, habria que hacerlo para un navegador en especifico, y verificar la ventana activa modificando ciertos campos, aunque esto haria evidente la existencia del programa, es la mejor propuesta, muchas gracias, si lo logro, posteare como lo hice.