Curseur dans TextBox

[yadla]

Bonjour à tous,

Encore un petit soucis avec les TextBoxes... 😀

J'ai mis les propriétés

"Locked"=True
"MousePointer"=12​

Mainenant, serait-il possible d'empécher de cliquer dans le TextBox ?

Cad qu'avec ces proprétés, je peux quand meme mettre mon curseur de souris dans le textbox, même si je ne peux pas modifier ce qu'il y a dedans... et que l'icone de mon pointer montre que c'est "impossible" (ca je sais c'est virtuel).

Je sais que je peux utiliser la propriété "Enabled" mais ca met le texte en gris tout moche... Ca serait bien si je pouvais mettre "Enabled"=False et forcer le "Font" en Noir... Ou peut être il existe un autre moyen ?

J'en demande trop peut etre... 😛

 

[Robert]

Re : Curseur dans TextBox

Bonjour Yadla, bonjour le forum,

Peut-être une solution avec la propriété Enabled égale à False.

Édition :

Pan ! sur les doigts avec la règle en fer pour m'apprendre à ne pas lire les posts jusqu'au bout

 

[Pierrot93]

Re : Curseur dans TextBox

Re Yadla, bonjour Robert

peut être en forcant le déplacement du focus vers un autre controle :

Private Sub TextBox1_Enter()
CommandButton1.SetFocus
End Sub

maintenant à un moment ou à un autre il te faudra tout de même rentrer dedans, dans ce cas peut être utiliser une variable "public" de type "Boolean"

@+

 

[yadla]

Re : Curseur dans TextBox

Bonjour Robert,

Pan, Pan ! C'est pas bien ! 🙄

C'est pas grave... Je savais qu'on allait me parler de cette propriété... C'est pour ca que j'ai ajouté cette précision au dernier moment avant de poster la nouvelle conversation 😀

Merci d'avoir voulu m'aider quand même 😉

Bonne soirée !

 

[Spitnolan08]

Re : Curseur dans TextBox

Re à tous,
Bonjour Pierrot qui m'a scotché en une ligne sur l'autre fil...

Si le textbox ne doit pas être sélectionné ni modifié pourquoi ne pas le remplacer par un label ? Car la fonction d'un textbox est de pouvoir être modifié...

Cordialement

 

[_Thierry]

Re : Curseur dans TextBox

Bonjour Robert, Yadfa, le Forum

Alors comment va cette vieille branche de Robert ? Il nous a fait fuire la pieuvre ?

Moi je proposerai Locked = True comme suit

Private Sub UserForm_Initialize()
    With Me.TextBox1
    .Value = Format(Date, "DD/MM/YYYY")
    .Locked = True
    End With
End Sub

Maintenant si vraiment on ne veut pas rentrer dans le Control TextBox, il suffit de passer le Focus sur un autre Control (ici une hypothétique "TextBox2") en utilisant l'évènement "Enter"

Private Sub TextBox1_Enter()
   Me.TextBox2.SetFocus
End Sub

Bonne fin de journée

@+Thierry

​

EDITION : Oups pas vu Pierrot, sinon oui pour un Label ce serait encore plus simple comme préconise Spitnolano08

 

[yadla]

Re : Curseur dans TextBox

Re Pierrot,

Je viens d'essayer ton astuce, mais c ne marche pas, je peux toujours surligner la valeur dans le textbox et mettre mon curseur dedans 🙁

 

[yadla]

Re : Curseur dans TextBox

Bonjour Thierry, Re Spitnolan,

Il est vrai qu'en fait je vois pas pourquoi j'ai mis un Textbox... 😛

Je vais mettre un label 😀

Désolée pour le dérangement...

Pan, Pan !! la c'est moi qui doit me faire taper sur les doigts...

 

[Pierrot93]

Re : Curseur dans TextBox

Re

Aarf, chez moi ca marche, méthode confirmé par Thierry (bonjour) du reste..

@+

 

[yadla]

Re : Curseur dans TextBox

Re à tous,

En fait moi je n'ai mis que

TextBox1.SetFocus

Et pas

[COLOR="Red"][B]Me.[/B][/COLOR]TextBox1.SetFocus

Mais bon, dans tous les cas, je pense que je vais mettre des labels, c'est plus simple, je me suis compliqué pour rien 😛

Merci à tous dans tous les cas

 

[_Thierry]

Re : Curseur dans TextBox

Re Bonjour

Le "Me" n'est pas important, moi je l'utilise surtout pour ne pas à avoir à taper puisque dès que je tape le point j'ai ensuite une liste avec mes objets...

Par contre si c'est sur la TextBox1 que tu ne veux pas de curseur; il est clair que le "SetFocus" doit être appliqué sur Un Autre Contrôle... (TextBox2 dans mon exemple, CommandButton1 dans celui de Pierrot)

Sinon pour qu'un Contrôle Label ait la même allure qu'une TextBox, voici les paramètres :

Private Sub UserForm_Initialize()
    With Me.Label1
    .SpecialEffect = fmSpecialEffectSunken
    .BackColor = &H80000005
    .Caption = Format(Date, "DD/MM/YYYY")
    End With
End Sub

Bonne Soirée

@+Thierry

​

 

[yadla]

Re : Curseur dans TextBox

Merci à tous,

J'ai tout pour faire ce que je veux faire 🙂