Scrollbarvertical

Jacques93

11/10/2005 à 18:11

Bonjour Didier Novarin,

Essaie :

Private Sub UserForm_Initialize()
With Me.TextBox1
.MultiLine = True
.ScrollBars = fmScrollBarsVertical
End With
End Sub

mais la scrollbar ne sera visible que si nécessaire.

Bonsoir
Je souhaite pouvoir dans l'initialize de mon userform
mettre dans un textbox le Scrollbar vertical, mais je ne connais pas la
syntaxe.
Merci beaucoup
Didier

--
Cordialement,

Jacques.

LSteph

11/10/2005 à 18:22

Bonjour,

Tu peux l'affecter déjà tout simplement en ouvrant
la fenêtre propriétés ,sinon
Private Sub UserForm_Initialize()
TextBox1.MultiLine = True
TextBox1.scrolbars = 2
End Sub

Il apparaîtra dès que le texte devient trop long

lSteph

"Didier Novarin" a écrit dans le message de
news:

Bonsoir
Je souhaite pouvoir dans l'initialize de mon userform
mettre dans un textbox le Scrollbar vertical, mais je ne connais pas la
syntaxe.
Merci beaucoup
Didier

LSteph

11/10/2005 à 18:25

Bonjour, Avec 2LL les scroLLbars
Tu peux l'affecter déjà tout simplement en ouvrant
la fenêtre propriétés ,sinon
Private Sub UserForm_Initialize()
TextBox1.MultiLine = True
TextBox1.scrollbars = 2
End Sub

Il apparaîtra dès que le texte devient trop long

lSteph
"Didier Novarin" a écrit dans le message de
news:

Bonsoir
Je souhaite pouvoir dans l'initialize de mon userform
mettre dans un textbox le Scrollbar vertical, mais je ne connais pas la
syntaxe.
Merci beaucoup
Didier

Didier Novarin

11/10/2005 à 18:59

Merci beaucoup à tous
Didier

"LSteph" a écrit dans le message de news:
e$

Bonjour, Avec 2LL les scroLLbars
Tu peux l'affecter déjà tout simplement en ouvrant
la fenêtre propriétés ,sinon
Private Sub UserForm_Initialize()
TextBox1.MultiLine = True
TextBox1.scrollbars = 2
End Sub

Il apparaîtra dès que le texte devient trop long

lSteph
"Didier Novarin" a écrit dans le message de
news:
Bonsoir
Je souhaite pouvoir dans l'initialize de mon userform
mettre dans un textbox le Scrollbar vertical, mais je ne connais pas la
syntaxe.
Merci beaucoup
Didier

Didier Novarin

11/10/2005 à 19:33

Euh, après vérif, il faut que je clique dans le textbox pour que scroll
vertical apparaisse ?
Pourquoi ? ;-)
Didier

"Didier Novarin" a écrit dans le message de
news:

Bonsoir
Je souhaite pouvoir dans l'initialize de mon userform
mettre dans un textbox le Scrollbar vertical, mais je ne connais pas la
syntaxe.
Merci beaucoup
Didier

Jacques93

11/10/2005 à 20:21

Bonsoir Didier Novarin,

Effectivement, il faut que le TextBox ait le focus pour que la scrollBar
apparaisse. Le contrôle qui prend le focus au chargement de la feuille
est celui qui a la propriété TabIndex la plus basse (modifiable dans les
propriétés des contrôles).

Tu peux contourner le problème en faisant :
With Me.TextBox1
.MultiLine = True
.ScrollBars = fmScrollBarsVertical
.SetFocus
.SelStart = 0
.SelLength = 0
End With
Me.FirstControl.SetFocus
end with

où FirstControl est le nom du contrôle qui doit prendre le focus à
l'affichage de ton UserForm.

Euh, après vérif, il faut que je clique dans le textbox pour que scroll
vertical apparaisse ?
Pourquoi ? ;-)
Didier

"Didier Novarin" a écrit dans le message de
news:

Bonsoir
Je souhaite pouvoir dans l'initialize de mon userform
mettre dans un textbox le Scrollbar vertical, mais je ne connais pas la
syntaxe.
Merci beaucoup
Didier

--
Cordialement,

Jacques.

Didier Novarin

11/10/2005 à 21:03

Bonsoir et merci beaucoup Jacques93
Didier

"Jacques93" a écrit dans le message de news:

Bonsoir Didier Novarin,

Effectivement, il faut que le TextBox ait le focus pour que la scrollBar
apparaisse. Le contrôle qui prend le focus au chargement de la feuille est
celui qui a la propriété TabIndex la plus basse (modifiable dans les
propriétés des contrôles).

Tu peux contourner le problème en faisant :
With Me.TextBox1
.MultiLine = True
.ScrollBars = fmScrollBarsVertical
.SetFocus
.SelStart = 0
.SelLength = 0
End With
Me.FirstControl.SetFocus
end with

où FirstControl est le nom du contrôle qui doit prendre le focus à
l'affichage de ton UserForm.

Euh, après vérif, il faut que je clique dans le textbox pour que scroll
vertical apparaisse ?
Pourquoi ? ;-)
Didier

"Didier Novarin" a écrit dans le message de
news:

Bonsoir
Je souhaite pouvoir dans l'initialize de mon userform
mettre dans un textbox le Scrollbar vertical, mais je ne connais pas la
syntaxe.
Merci beaucoup
Didier

--
Cordialement,

Jacques.

Scrollbarvertical

7 réponses

Veuillez sélectionner un problème