Repost: Scrolling Text

  • Thread starter Thread starter James
  • Start date Start date
J

James

Hello I was wondering I have scrolling text which goes all
the way around the screen. For Example scrolls all the way
around the screen down teh sides and along the top and the
bottom...

Many Thanks

James
 
You could program this >if< you had textboxes that could display text
vertical facing-left, vertical facing-right, and horizontal facing-up; as
well as the normal textbox which displays text horizontal facing-down. Try
www.lebans.com

P.S. When you get this working, prepare for a barrage of user complaints:
"That *&^$% screen where the &^%$ text goes around the *&&^$%$# edges ..."
!!

HTH,
TC
 
Thanks for that where abouts am I looking on this site?
And does the site have an example of what I am asking if
so where do I find it?

Many Thanks

James
 
I can not give you specific directions. All I know is that the person in
question has done lots of work on such things, and makes lots of code
available from his site, for free. If I had the same need as you, I
personally would start by looking carefully through his site.

HTH,
TC
 
I don't know where in the world you would find a complete example of
what you are trying to do. Yes it could be done but it would take a lot
of coding. There is a sample on my site of scrolling text horizontally.
It could easily be modified to do so vertically as well. But to
integrate both vert and horiz continuos around the entire screen would
be a challenge.
http://www.lebans.com/hscroller.htm
NEW Version 2.0 HScrollerVer2.zip is a database containing a Function to
create a Horizontal Text Scrolling Window. The CreateWindowEx API call
is used to allow for a smooth scrolling effect with limited impact on
VBA resources. The positioning of the Window is not limited to your
Form. Now uses ScrollWindow API for even smoother scrolling! Source Code
is included.
--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
 
Hello thanks to both of you for that... I will certainly
have a look through the database. Thanks for that...

Now if I need any assistance in the future with teh
scrolling all around the form could I please E-Mail you
and we can see if we can have another example on your site
for scrolling text all the way around the form?

Thank Again

James
 
It should be easy in a nonproportional font. Store the whole
(around-the-screen) message in one string. Display the first 40 charcaters
(or whatever) in the top box, the next 40 in the right hand box, & so on.
Then on a timer, rotate the whole string 1 character left, wrap the leftmost
character back to the right hand end, & redisplay as above. Voila!

Not so easy in a propertional font, of course.

TC
 
Do we have any code for this?

Many Thanks

James
-----Original Message-----
It should be easy in a nonproportional font. Store the whole
(around-the-screen) message in one string. Display the first 40 charcaters
(or whatever) in the top box, the next 40 in the right hand box, & so on.
Then on a timer, rotate the whole string 1 character left, wrap the leftmost
character back to the right hand end, & redisplay as above. Voila!

Not so easy in a propertional font, of course.

TC


"Stephen Lebans" <ForEmailGotoMy.WebSite.- (e-mail address removed)>
wrote in message news:[email protected]...


.
Click to expand...
 
I was thinking of something like this (untested):

' define # of non-proportional characters in each of the 4 textboxes.
const NUM_CHARS = 40 ' or whatever.

' select a message.
dim msg as string
msg = "Now is the time for all good men to come to the aid of their country"

' pad or cut the message to NUM_CHARS characters.
msg = left$(msg & space$ (num_chars), num_chars))

' display the message across the 4 textboxes.
dim n as integer
for n = 1 to 4
me("txt" & n) = mid$ (msg, (n - 1) * num_chars + 1, num_chars)
next

Then, to get the message to scroll, just do the following on a short timer:
msg = mid$ (msg, 2) & left$ (msg, 1)
(then redisplay it with the loop above)

No so hard to code, methinks.

BUT, not much good without the special textboxes!

HTH,
TC
 
Back
Top