Discussion :

[FredMines]

Salut !

Est-il possible de redimensionner automatiquement une textBox au passage de la souris ?

Merci,
Frédéric

[Invité]

Bonjour

Oui il y'a des possibilités, mais cela dépend de ce que tu veux faire.

Un petit exemple :

Places une textbox dans une useform, et mets ce code (la textbox s'appelant TextBox1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        Me.TextBox1.Width = Me.TextBox1.Width + 10
    End If
End Sub

Positionnes la souris sur la textbox, appui sur le bouton et bouge légèrement la souris vers la droite (prend une userform assez grand et une petite textbox).

Starec

[FredMines]

Salut,

En gros c'est l'idée, mais est ce que l'on ne peut pas rendre le systeme un peu plus 'fiable' du genre en cliquant on agrandit la textbox et en recliquant elle se réduit ?
Là, elle ne cesse pas de s'agrandir !

merci,
Fred

[Invité]

Re

Ce n'était qu'un exemple, car tu n'as pas précisé ton besoin.

Il faudrait travailler sur l'évènement MouseDown de la texbox, et regardes dans l'aide l'histoire des boutons.

Starec

[FredMines]

ok c'est bon, j'ai réussi !

merci pour ton aide !