TIMSS 6: Extender Textbox

This came across the listserv a couple weeks ago. It's good information and I like to put stuff up here so I know what I've done in TIMSS. All credit goes to Dave D. and Eric E.

When adding a text box to a screen, Dave wanted to have it read only with a scroll bar. Here's what he did:

Dim oTextBox as Object
try
oTextBox = MyForm.getformcontrolbyname("usr_txt11")
oTextBox.ReadOnly = "True"
oTextBox.ScrollBars=2
Catch Ex as Exception
Msgbox(ex.Tostring())
End Try

Values for scrollbars: 0=None; 1=Horizontal; 2=Vertical; 3=Both

Applies to: TIMSS6