Mostrar Mensajes

Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?

Información del Perfil

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.

Mensajes - Biasoli

Páginas: [1]

VB .NET / Re: Cerrar pestaña con el boton del medio del mouse (ruedita)

« en: Jueves 23 de Abril de 2009, 02:24 »

Hola Javier.
Justamente necesito cerrar cualquier pestaña, no solamente la seleccionada.
Si es posible necesitaría esa ayuda.

Muchas gracias.

VB .NET / Cerrar pestaña con el boton del medio del mouse (ruedita)

« en: Sábado 18 de Abril de 2009, 04:14 »

Tengo un TabControl llamado "tabControl" y una serie de pestañas creadas casi todas en tiempo de ejecución, y quiero que al hacerles click con la ruedita del mouse se cierren. He probado varias cosas pero hasta ahora nada funciona.

Este es el código:

Código: vb.net

    Private Sub cerrarPestañaRuedaMouse(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tabControl.Click
        If e.Button = (Windows.Forms.MouseButtons.Middle) Then
            Dim pestaña As TabPage = tabControl.SelectedTab
            Dim rtb As RichTextBox = pestaña.Controls(0)
            If (Not rtb.Text = "") Then
                Dim mensaje = MessageBox.Show("¿Desea guardar el archivo " & pestaña.Text & "?", "Guardar", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
                If (mensaje = DialogResult.No) Then
                    tabControl.TabPages.Remove(pestaña)
                ElseIf (mensaje = DialogResult.Yes) Then
                    dialog_guardar.FileName = pestaña.Text
                    If (dialog_guardar.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                        rtb.SaveFile(dialog_guardar.FileName, RichTextBoxStreamType.PlainText)
                        estado_informe.Text = "Archivo '" & dialog_guardar.FileName & "' guardado."
                        tabControl.TabPages.Remove(pestaña)
                    End If
                End If
            Else
                tabControl.TabPages.Remove(pestaña)
            End If
        End If
    End Sub
 

Lo único que consigo es que se cierre la primera pestaña del TabControl.

Espero que puedan ayudarme.

Gracias.

VB .NET / Re: Activar botones al seleccionar texto

« en: Jueves 16 de Abril de 2009, 19:37 »

Funciona perfecto, ¡¡muchas gracias!!

¡Saludos!

VB .NET / Activar botones al seleccionar texto

« 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

Public Class Form1
 
Public Event TextoSeleccionado()
Public Event TextoDeseleccionado()
 
Private Sub textoSeleccionadoLlamada()
If (texto.SelectionLength > 0) Then
RaiseEvent TextoSeleccionado()
End If
End Sub
 
Private Sub textoDeseleccionadoLlamada()
If (texto.SelectionLength = 0) Then
RaiseEvent TextoDeseleccionado()
End If
End Sub
 
Private Sub activarBotones() Handles Me.TextoSeleccionado
Cortar.Enabled = True
Pegar.Enabled = True
Copiar.enabled = True
End Sub
 
Private Sub desactivarBotones() Handles Me.TextoDeseleccionado
Cortar.Enabled = False
Pegar.Enabled = False
Copiar.enabled = False
End Sub
 
'...resto del código...
 
End Class
 

Espero que puedan ayudarme.

Gracias.

Páginas: [1]

SoloCodigo