Salut !
Est-il possible de redimensionner automatiquement une textBox au passage de la souris ?
Merci,
Frédéric
Salut !
Est-il possible de redimensionner automatiquement une textBox au passage de la souris ?
Merci,
Frédéric
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)
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).
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
Starec
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
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
ok c'est bon, j'ai réussi !
merci pour ton aide !
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager