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

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


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

Desconectado Desconectado

Mensajes: 56



Ver Perfil
Re: formatear texto visual basic
« Respuesta #10 en: 10 Abril 2008, 03:39 am »

Hola como estas, mira realice este codigo, cada vez q escribis la palabra "hola" o cualquier otra palabra q despues la podes cambiar, cambia su color a rojo y el resto del texto q escribe el usuario se ponde de color azul; esta comprobacion la realiza cada vez q presionas la tecla Espacio. Espero haberte ayudado.

Código:
Private Sub Form_Load()
    RichTextBox1.Text = "(Reverse engineering). La ingeniería inversa es el proceso de descubrir los principios tecnológicos de un dispositivo, objeto o sistema, a través de razonamiento abductivo de su estructura, función y operación."
    RichTextBox1.SelStart = Len(RichTextBox1.Text)
End Sub

Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 32 Then '---> Si presiono la tecla Espacio
        CambiarColor ' ---> Llama al procedimiento CambiarColor
    End If
End Sub

Public Sub CambiarColor()
    With RichTextBox1
    .SelStart = 0 '---> Comienza desde el principio
    Do
        x = .Find("hola", .SelStart, , rtfWholeWord Or rtfMatchCase)'---> Busca la palabra
        .SelColor = vbRed '---> Establece el color
        .SelStart = .SelStart + 1 '---> Incrementa en 1
    Loop Until x = -1
    .SelStart = Len(.Text) '---> Se posiciona al final de todo
    End With
End Sub

Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
    RichTextBox1.SelColor = vbBlue '---> Tipea de color azul
End Sub

Saludos.


« Última modificación: 10 Abril 2008, 07:31 am por ((( SPAWN ))) » En línea


Cita de: EON
+ = SOLUCIÓN
Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[DUDA] Imprimir texto X veces - Visual Basic [SOLUCIONADO]
Programación Visual Basic
Siquillote 2 3,018 Último mensaje 2 Enero 2011, 00:01 am
por Siquillote
Formatear Texto
PHP
Sinedra 2 1,293 Último mensaje 2 Marzo 2011, 22:11 pm
por Shell Root
Ayuda,Incluir ficheros de texto en instalador visual basic .
.NET (C#, VB.NET, ASP)
proview 7 6,202 Último mensaje 2 Marzo 2014, 20:44 pm
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines