Event for scroll bars on text boxes

S

Steve Haack

Let's say that I have a text box that shows 2 lines of text, and in that text
box i have 10 lines.

The text box is set to show the vertical scroll bar.

Using the timer event of the form, I would like to simulate clicking the
down arrow on the scroll bar so that every few seconds, it scrolls the text
in the text box up 1 line. Then at the end of the cycle, I want it to return
to the top and start over.

Is there an event for clicking the scoll arrows? I didn't see one.

Steve
 
G

Gina Whipp

Steve,

I don't know if this can be done but Why? This suggest you want to make
some sort of marquee with a text box. I personally, would find that
annoying. Why not just let the Users click the scrollbar?

--
Gina Whipp
2010 Microsoft MVP (Access)

"I feel I have been denied critical, need to know, information!" - Tremors
II

http://www.regina-whipp.com/index_files/TipList.htm
 
S

Steve Haack

The Form that I am building will be displayed on a projection screen with a
tournament status. The tournament will be going on for several hours. The
people that need to see the info will not have access to the keyboard/mouse,
and I don't want the organizer to have to sit there the whole time and change
the display.

Steve
 
M

Marshall Barton

Steve said:
The Form that I am building will be displayed on a projection screen with a
tournament status. The tournament will be going on for several hours. The
people that need to see the info will not have access to the keyboard/mouse,
and I don't want the organizer to have to sit there the whole time and change
the display.


No scroll bar options. It would take some API programming
to do that and I, for one, do not want to go there.

OTOH, IF each "line" in the text box is separated from the
next line with a CrLf and te line is guaranteed to fit
within the width of the text box, then you can kind kind of
make it look like a vertical banner by using code along
these lines:

Dim pos As Long
If IsNull(Me.textbox) Then Exit Sub
pos = Instr(Me.textbox, vbCrLf) + 2
Me.textbox = Mid(Me.textbox, pos+1) & Left(Me.textbox, pos)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top