Thread: Force Display of Vertical Scroll Bars

Hi,

I have created a form that has two textboxes on. It is used to edit existing data that is selected by a combobox on the same form.

Is there a way to force the textboxes to show scroll bars if the text exceeds the textbox height or just have them always shown?

It is difficult to distinguish on some of the data whether the data goes beyond what is visible. Without actually clicking into that textbox the scroll bars will not show.

Is this possible?

Thank you in advance

From a recent thread
http://www.excelforum.com/excel-prog...in-a-form.html

Code:

Private Sub UserForm_Initialize()

    With TextBox2
        .TabIndex = 0
        .ScrollBars = fmScrollBarsVertical
        .SelStart = 0
    End With
    
End Sub

When the textboxes are preloaded with text the scrollbars get a bit fussy.

If you set the TabIndex to the second textbox and then in the activate event you set focus to the first textbox it appears to work.

Code:

Private Sub UserForm_Activate()
    TextBox1.SetFocus

End Sub

Private Sub UserForm_Initialize()

    With TextBox1
        .WordWrap = True
        .TabIndex = 0
        .ScrollBars = fmScrollBarsVertical
        .SelStart = 0
    End With
    
    With TextBox2
        .WordWrap = True
        .TabIndex = 0
        .ScrollBars = fmScrollBarsVertical
        .SelStart = 0
    End With
End Sub

you need to post example as I can not guess the order of events occurring with code I can not see.

Text boxes do not show the scrollbars until they contain text that required scrolling


I don't understand what you mean.

I would almost prefer the ability to add text if the textbox exceeded a given height is that possible anyway?

This code is the cut down to exclude all the assignments of data I don't have.
It fills the textboxes with rubbish. Reporting linecount in the labels.

Just click the combo box and enter "a"

Code:

Private Sub idlookup_Change()

    Me.taddinfo.Value = "ws.Range(engageid).Cells(Me.idlookup.ListIndex + 1, 1).Offset(0, 17)" & vbLf & _
                        "ws.Range(engageid).Cells(Me.idlookup.ListIndex + 1, 1).Offset(0, 17)" & vbLf & _
                        "ws.Range(engageid).Cells(Me.idlookup.ListIndex + 1, 1).Offset(0, 17)"
    Me.taddresult.Value = "ws.Range(engageid).Cells(Me.idlookup.ListIndex + 1, 1).Offset(0, 19)" & vbLf & _
                       "ws.Range(engageid).Cells(Me.idlookup.ListIndex + 1, 1).Offset(0, 19)" & vbLf & _
                       "ws.Range(engageid).Cells(Me.idlookup.ListIndex + 1, 1).Offset(0, 19)" & vbLf & _
                       "ws.Range(engageid).Cells(Me.idlookup.ListIndex + 1, 1).Offset(0, 19)" & vbLf & _
                       "ws.Range(engageid).Cells(Me.idlookup.ListIndex + 1, 1).Offset(0, 19)"
    
    With Me.taddresult
        .SelStart = 0
        .SetFocus
        Label187.Caption = "Result/Update: [" & .LineCount & " lines]"
    End With
    With Me.taddinfo
        .SelStart = 0
        .SetFocus
        Label186.Caption = "Information: [" & .LineCount & " lines]"
    End With
    
End Sub