Newsgroup: it.comp.lang.visual-basic
Titolo: scrolbars. giuro che ho cercato!

ho un problema con le scrollbar ma mi pareva così scemo che mi sono
spulciato l'help e il newsgroup....
ma...
ma sono qui perché il tutto non funziona.
Il problema.
Carico un form che mi butta dentro ad un TextBox del testo molto lungo.
Vorrei una sbarra verticale per scorrere il testo, allora ho messo
ScrollBars 2 - fmScrollBarsVertical
ma niente... il From si apre con il testo che arriva tutto a destra e solo
se clicco sulla TextBox, allora la sbarra verticale compare e va alla fine
(in basso) e devo pure risalire, il che non va bene...
consulto l'help e trovo l'esempio che segue:
Private Sub UserForm_Initialize()
    Frame1.ScrollBars = fmScrollBarsBoth
    Frame1.KeepScrollBarsVisible = fmScrollBarsNone
    OptionButton3.Caption = "Vertical scroll bars"
End Sub
Private Sub OptionButton3_Click()
    Frame1.KeepScrollBarsVisible = fmScrollBarsVertical
End Sub
...che funziona... premi il optionbutton3 e compare la scrollbar
Io ho fatto:
Private Sub UserForm_Initialize()
    TextBox1.ScrollBars = fmScrollBarsBoth
    TextBox1.KeepScrollBarsVisible = fmScrollBarsNone
    OptionButton3.Caption = "Vertical scroll bars"
End Sub
Private Sub OptionButton3_Click()
    TextBox1.KeepScrollBarsVisible = fmScrollBarsVertical
End Sub
e mi dà un errore che è "Errore di compilazione: Impossibile trovare il
metodo o il membro dei dati"
C H E     P O S S O    F A R E    ?        (grazie)
bus_hello
(ascolta Michael Nyman)

 ha scritto
| Il problema.
| Carico un form che mi butta dentro ad un TextBox del testo molto lungo.
| Vorrei una sbarra verticale per scorrere il testo, allora ho messo
| ScrollBars 2 - fmScrollBarsVertical
| ma niente...
[...]
| C H E     P O S S O    F A R E    ?        (grazie)
proprietą Multiline = True


gią messo Jabba!... e infatti se ci clicco sopr alui mi fa il finestrone con
le righe a capo e la sbarra, ma:
1. all'inizio non si vede e invece io la voglio;
2. quando clico e compare mi va subito in fondo e devo risalire per leggerlo
dall'inizio
che altro puņ essere? ancora grazie
(che poi uno gli arriva la soluzione e gli pare brutto "appesantire" il NG
con un "grazie")
Bus_hello
(ascolta Tortoise)

 ha scritto
| "Jabba The Hutt" ha scritto >
| > proprietą Multiline = True
|
| gią messo Jabba!... e infatti se ci clicco sopr alui mi fa il finestrone con
| le righe a capo e la sbarra, ma:
| 1. all'inizio non si vede e invece io la voglio;
e allora perche' metti nell'initialize che non le vuoi visibili?
Private Sub UserForm_Initialize()
    TextBox1.ScrollBars = fmScrollBarsBoth
    TextBox1.KeepScrollBarsVisible = fmScrollBarsNone
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
    OptionButton3.Caption = "Vertical scroll bars"
End Sub
Anzi! Ma che roba č quella che hai scritto?
fmScrollBarsBoth?
fmScrollBarsNone?
Prova con questa:
Private Sub UserForm_Initialize()
    TextBox1.ScrollBars = vbVertical
End Sub
| 2. quando clico e compare mi va subito in fondo e devo risalire per leggerlo
| dall'inizio
textbox1.selstart=0
Ciao,
Jabba


Allora... dato che non funziona e sicuramente sono io a far casino, scrivo
la cosa precisa precisa.
Private Sub CommandButton3_Click()
    Load UserForm2
    UserForm2.Top = 115
    UserForm2.Left = 22
    UserForm2.TextBox1.Value = Worksheets("norma").Cells(1, 3)
    UserForm2.Show
End Sub
poi "sotto" la UserForm2 c'ho
Private Sub UserForm_Initialize()
    TextBox1.ScrollBars = vbVertical
    TextBox1.SelStart = 0
End Sub
dove (tra parentesi) la TextBox1 ha come proprietà ScrollBars   2 -
fmScrollBarsVertical
... continua a non funzionare.
possibilità 1 non le devo mettere lì "sotto" la userform, cioè nel codice
della userform? se è così allor aproprio non ho capito nulla di vb.
possibilità 2 c'ho qualcosa che mi fotte la sbarra tra le proprietà che ho
settato alla TextBox, magari uno di quei TabKeyBehavior, Locked,
EnterKeyBehaviour,... o insomma le cose che non so che vogliono dire.
Jabba se stai pensando di lasciarmi nel pantano..
...
puoi ovviamente farlo. gazie ancora (con l'accento sulla o)
Bus_Hello
(ascolta 'na cagata)