SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Biasoli en Martes 14 de Abril de 2009, 23:53

Título: Activar botones al seleccionar texto
Publicado por: Biasoli en Martes 14 de Abril de 2009, 23:53
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
  1. Public Class Form1
  2.  
  3. Public Event TextoSeleccionado()
  4. Public Event TextoDeseleccionado()
  5.  
  6. Private Sub textoSeleccionadoLlamada()
  7. If (texto.SelectionLength > 0) Then
  8. RaiseEvent TextoSeleccionado()
  9. End If
  10. End Sub
  11.  
  12. Private Sub textoDeseleccionadoLlamada()
  13. If (texto.SelectionLength = 0) Then
  14. RaiseEvent TextoDeseleccionado()
  15. End If
  16. End Sub
  17.  
  18. Private Sub activarBotones() Handles Me.TextoSeleccionado
  19. Cortar.Enabled = True
  20. Pegar.Enabled = True
  21. Copiar.enabled = True
  22. End Sub
  23.  
  24. Private Sub desactivarBotones() Handles Me.TextoDeseleccionado
  25. Cortar.Enabled = False
  26. Pegar.Enabled = False
  27. Copiar.enabled = False
  28. End Sub
  29.  
  30. '...resto del código...
  31.  
  32. End Class
  33.  

Espero que puedan ayudarme.

Gracias.
Título: Re: Activar botones al seleccionar texto
Publicado por: javierkcjm en Jueves 16 de Abril de 2009, 19:15
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
Título: Re: Activar botones al seleccionar texto
Publicado por: Biasoli en Jueves 16 de Abril de 2009, 19:37
Funciona perfecto, ¡¡muchas gracias!!

¡Saludos!