CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Activar botones al seleccionar texto

(1/1)

Biasoli:
Hola. El tema es así:
Tengo un RichTextBox llamado "texto" y los clásicos botones de copiar, pegar y cortar, estos últimos desactivados ya desde el inicio, y quiero que al seleccionar el texto del RTB se activen los botones. Creé los eventos TextoSeleccionado y TextoDeseleccionado e hice un par de Subs que llaman a ambos cuando ocurren estas acciones, pero aún así no funciona. El código es el siguiente:


--- Código: vb.net ---Public Class Form1 Public Event TextoSeleccionado()Public Event TextoDeseleccionado() Private Sub textoSeleccionadoLlamada()If (texto.SelectionLength > 0) ThenRaiseEvent TextoSeleccionado()End IfEnd Sub Private Sub textoDeseleccionadoLlamada()If (texto.SelectionLength = 0) ThenRaiseEvent TextoDeseleccionado()End IfEnd Sub Private Sub activarBotones() Handles Me.TextoSeleccionadoCortar.Enabled = TruePegar.Enabled = TrueCopiar.enabled = TrueEnd Sub Private Sub desactivarBotones() Handles Me.TextoDeseleccionadoCortar.Enabled = FalsePegar.Enabled = FalseCopiar.enabled = FalseEnd Sub '...resto del código... End Class 
Espero que puedan ayudarme.

Gracias.

javierkcjm:
hola amigo,

no deberias complicarte tanto creando eventos para lo que quieres hacer, igual es bueno que sepas como crearlos y llamarlos ya que son muy utiles en programacion de objetos.

te recomiendo uses el evento selectionchanged del rtb aqui  te pongo el ejemplo

Private Sub texto_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.SelectionChanged
        If (texto.SelectionLength > 0) Then
            Me.copiar.Enabled = True
            Me.pegar.Enabled = True
        Else
            Me.copiar.Enabled = False
            Me.pegar.Enabled = False
        End If
End Sub


saludos cordiales

JC

Biasoli:
Funciona perfecto, ¡¡muchas gracias!!

¡Saludos!

Navegación

[0] Índice de Mensajes