Question on Userform.Textbox Scrollbars

[SamDsouza]

Hello

I've a query on scrollbar for Textbox
Managed to start from Top of Textbox with Scrollbars.

BUT
1. when you Initialize the Userform both the scrollbars are not seen although Textbox1.ScrollBars = fmScrollBarsBoth

With UserForm1.Textbox1
  .height = 337.5  'The same is mentioned in property of textbox1
  .width = 882      'The same is mentioned in property of textbox1
  .Multiline = True [B]'The same is mentioned in property of textbox1
  .Font.Name = "Courier New"
  .Font.Size = 8
  .SelStart = 0
  .SelLength = 0
  .ScrollBars = fmScrollBarsBoth
End With

Also Why Scrollbars are not visible until you scroll down the Last line which is displayed in Textbox ?
when crossed down the Last line of Textbox vertical scrollbar is displayed immediately and not the Horizontal scrollbar

My textbox data is more than 250 lines.
So what happens if i cross the 29th line from Top the vertical scrollbar appears but does not display the horizontal bar

Any ways to fix the above ie both the scrollbars are visible. The text starts from 1st line

2. Again in Textbox if the length of Line is > than width of the textbox1 then data at the end of the 1st line goes to next line.
How to fix this also so that first line is extended

SamD
180

 

[SamDsouza]

Guys Resolved
OMG After much expolaration
Textbox1.WordWrap = True 'This was only required

With UserForm1.Textbox1
  .height = 337.5  'The same is mentioned in property of textbox1
  .width = 882      'The same is mentioned in property of textbox1
  .Multiline = True [B]'The same is mentioned in property of textbox1
  [B].WordWrap = True [/B]
  .Font.Name = "Courier New"
  .Font.Size = 8
  .SelStart = 0
  .SelLength = 0
  .ScrollBars = fmScrollBarsBoth
End With

SamD181

 

[Peter_SSs]

Glad you got it sorted & thanks for posting the result.

BTW, if you want to bold (or other format) vba code yourself, use the 'RICH' code tags instead of the VBA tags.
e.g.

With UserForm1.Textbox1
  .Height = 337.5  'The same is mentioned in property of textbox1
  .Width = 882      'The same is mentioned in property of textbox1
  .MultiLine = True 'The same is mentioned in property of textbox1
  .WordWrap = True
  .Font.Name = "Courier New"
  .Font.Size = 8
  .SelStart = 0
  .SelLength = 0
  .ScrollBars = fmScrollBarsBoth
End With

 

[SamDsouza]

BTW, if you want to bold (or other format) vba code yourself, use the 'RICH' code tags instead of the VBA tags.
e.g.

Yes Sir Will take care and use RICH Code Tags

SamD
183