Control properties

[Gem_man]

For some reason I cannot get a TextBox control to show vertical scroll bars
in runtime.

I have a userform with two TextBoxes on it (ExistingNotesBox and NewNotesBox)
The ExistingNotesBox shows the cumalative value of my variable ShowNotes
I have the properties set to show the verticalScrollBars and have tried
various combinations of word wrap, multi-line etc to no avail.

I have even just made the value of ShowNotes straight text ie no merged
values of a string variable.

Anyone got any ideas as to what I am missing?

Just in case it is relevant I have included the code below.



ShowNotes = "Notes and entry number that were showing when made" ' simple
heading

'Get previous entries
Open "c:\Beech Tree Family History\" & JobName & "\NotesFile" For Input As
#1 ' Open file for input.
r = 0
Do While Not EOF(1)
r = r + 1
Input #1, PreviousNotes(r)

ShowNotes = ShowNotes & vbCr & PreviousNotes(r) ' add value of new notes
to previous notes

Loop
Close #1 ' Close file.


ExistingNotesBox.Text = ShowNotes ' show the total notes in textbox

End Sub

 

[Jezebel]

MultiLine = TRUE
Scrollbars = 2

 

[Gem_man]

Thanks Jezabel

I am afraid that didnt work either.
I also tried:
ExistingNotesBox.MultiLine = True
ExistingNotesBox.ScrollBars = fmScrollBarsVertical
in the initialize of the userform that holds the two TextBoxes

Any further ideas?

 

[Jezebel]

Works for me.

Thanks Jezabel

I am afraid that didnt work either.
I also tried:
ExistingNotesBox.MultiLine = True
ExistingNotesBox.ScrollBars = fmScrollBarsVertical
in the initialize of the userform that holds the two TextBoxes

Any further ideas?

 

[Gem_man]

Hmmm mystery. I have now scrapped the whole userForm and started again and
for some reason it now works OK

Thanks for your assistance Jezabel