Descripción emergente con el contenido de un TextBox

[Denis127_2]

Como el titulo indica quiero que se muestre, como el atributo title podría hacerlo en HTML, el contenido de un textbox cuyo tamaño no deja que se vea todo su contenido.

Se que tiene que estar implementado en vb.net pero no se como ponerlo. He observado que este comportamiento se da en los DataGridView, pero soy incapaz de encontrar nada en google sobre esto, supongo que porque no se como buscarlo ...xD

Muchas Gracias a todos de antemano!

[tiger015]

saludos, lo ke podrias hacer agregar la el control toolstip del cuadro de herramientas y en el evento textchange del texbox pones:

textbox1.ToolsTip = textbox1.text;

asi cuando pongas el mosuse encima del textbox te mostrara todo el contenido de este

espero ke esto te sirva;

[Denis127_2]

Muchas Gracias por la aportación.

He probado lo que dices, y bueno no está mal, pero no es lo que quería, de todas formas muchisimas gracias, porque no se me había ocurrido esa solución, estaba obcecado con lo otro y ni me lo planteé.

Aun así creo que sería interesante que si alguien sabe cual es la solución, que lo postease.

[Denis127_2]

así de repente se me ha ocurrido a ver si sería posible lo siguiente...

en el evento MouseHover obtener el lugar del texto sobre el cual se ha dejado el ratón, crear un label de color amarillo encima y que cuando se quite el ratón desaparezca...

sería algo así o hay una solución ya hecha?!???!?!?!

[Denis127_2]

no hay nadie por el foro????

[Aquaventus]

Hola Denis127_2 espero te sirva este codigo que solo lo probé para 1 textbox. Saludos!

Código vb.net:

Private Sub txtTexto_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTexto.MouseHover
        Dim texto As New Label
        texto.Name = "help"
        texto.Width = txtTexto.Width
        txtTexto.Height = txtTexto.Height
        texto.Text = txtTexto.Text
        texto.ForeColor = Color.Black
        texto.BackColor = Color.SeaShell
        texto.Location = New System.Drawing.Point(txtTexto.Location.X, txtTexto.Location.Y - 26)
        Me.Controls.Add(texto)
 
    End Sub
 
    Private Sub txtTexto_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTexto.MouseLeave
        Dim ctl As Control
 
        For Each ctl In Me.Controls
            If TypeOf ctl Is Label Then
                If ctl.Name.Equals("help") Then
                    Controls.Remove(ctl)
                End If
            End If
        Next
    End Sub
 

[Denis127_2]

Muchas Gracias por tu ayuda, ayer a ultima hora empezé con ello, pero sin la ayuda de tu codigo hoy no habría podido completarlo.

De todas maneras he mejorado y adapatado algunas cosas y pondré el código para que lo puedan utilizar otros programadores.

[Aquaventus]

excelente espero que postees tu codigo para otras personas. Saludos!

[Denis127_2]

Siento la tardanza, no se si a alguien le habría hecho falta o no...

Código Visual.NET:

Public Shared Sub añadirControlEmergente(ByVal nombre As String, ByVal txt As System.Object, ByRef controls As System.Windows.Forms.Control.ControlCollection)
        'WaitSeconds(1)
        'System.Threading.Thread.Sleep(1000)
        Dim tamaño_ini As Integer = txt.Width
        'Aproximadamente, cada caracter puede ocupar como media 7px de ancho
        Dim tamaño_min As Integer = txt.Text.Length * 7
 
        If txt.Text <> "" And tamaño_min > tamaño_ini Then
            'Solo si el control se encuentra en un contenedor que modifique el Location del control
            Dim container As Control
            container = txt.Parent
 
            Dim label As New Label
            label = New Label()
            label.Name = nombre
            label.Text = txt.Text
            label.AutoSize = True
            label.BringToFront()
            label.BackColor = Color.Ivory
            label.BorderStyle = BorderStyle.FixedSingle
            label.Location = New System.Drawing.Point(txt.Location.X + container.Location.X + 18, txt.Location.Y + container.Location.Y - 18)
            controls.Add(label)
            label.BringToFront()
        End If
    End Sub
 
    Public Shared Sub eliminarControl(ByRef control As String, ByRef controls As System.Windows.Forms.Control.ControlCollection)
        'WaitSeconds(1)
        'System.Threading.Thread.Sleep(1000)
        Dim ctl As Control
        For Each ctl In controls
            If TypeOf ctl Is Label Then
                If ctl.Name.Equals(control) Then
                    controls.Remove(ctl)
                End If
            End If
        Next
    End Sub
 

Código Visual Basic:

Private Sub ratonEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ... 'EVENTOS MouseEnter
 
        añadirControlEmergente("EMERGENTE", sender, Me.Controls)
    End Sub
 
    Private Sub ratonLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ... 'EVENTOS MouseLeave
 
        eliminarControl("EMERGENTE", Me.Controls)
    End Sub
 
    Private Sub ratonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ...'EVENTOS MouseClick
 
        eliminarControl("EMERGENTE", Me.Controls)
    End Sub
 
    Private Sub cmb_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ...'EVENTOS KeyPress de los Combobox
        If not modificar then
            e.Handled = True
    End If
        ...
 
    End Sub
 

Si alguien tiene alguna duda sobre porque he hecho lo que he hecho, que pregunt,e porque hoy no tengo tiempo de explicar ...

Saludos