Scrolling text in picturebox.

[hipopony66]

Hey, I posted this in the general forum, and did a search, but every way I've seen varies from all the others, and none really seem simple. Soooooooo, I figured some of you guys would know the simplest way to scroll text from right to left in a picturebox where it keeps coming in from the right again, after it scrolls out of the left side of the picturebox. If textout is the easiest way to do this, please let me know the API for this. Any help with this is greatly appreciated.

[Zaei]

It seems that things have been pretty lax today...

Anyway, The easiest way to do this would be to load your image into a Memory DC, then, when the text moves, BitBlt your base image from the Memory DC into the picture box, or whatever, then draw your text. This way, the text from the previous frame gets cleared by the picture being Bltted over it, and you can draw the text fresh, moved a bit to the left. Then, when the text is all the way off the image, just start it over at the right again.

For speed considerations, you may just want to Blt the area that the text will cover to a memory DC BEFORE you draw the text on each frame, and then just Blt only the small portion covered by text over the text before the next frame:

image
+---------------------+
|             |_text__|  <-  Just Blt this small area over to a memory 
|                     |          DC, and blt it back before the next
|                     |          frame.
|                     |
|                     |
+---------------------+

Forgive the art =)


Z.

[beachbum]

Hi
Here is a quick throw together. You can play around with the timer interval and the jump amount (ie 50)
Regards
Stuart

'FORM WITH PICTURE1, COMMAND1 AND CHECK1
'Check1 allows u to swap from horizontal to vertical
Option Explicit
 
Dim MyString As String
Dim MyDimension As Integer
Dim myPosn As Single
Dim MyDirection As Integer
 
Private Sub Form_Load()
    MyString = "This is scrolling text"
    Timer1.Interval = 100
    Picture1.AutoRedraw = True
End Sub
 
Private Sub Command1_Click()
    With Picture1
        MyDirection = Check1.Value
        myPosn = .Width * (1 - MyDirection) + .Height * MyDirection
        MyDimension = .TextWidth(MyString) * (1 - MyDirection) + .TextHeight(MyString) * MyDirection
        Timer1.Enabled = True
    End With
End Sub
 
Private Sub Timer1_Timer()
    With Picture1
        .Cls
        .CurrentX = myPosn * (1 - MyDirection)
        .CurrentY = myPosn * MyDirection
        Picture1.Print MyString;
        myPosn = myPosn - 50
        If myPosn < 0 Then
            .CurrentX = (.Width + myPosn) * (1 - MyDirection)
            .CurrentY = (.Height + myPosn) * MyDirection
            Picture1.Print MyString;
            If myPosn < -MyDimension Then myPosn = (.Width + myPosn) * (1 - MyDirection) + (.Height + myPosn) * MyDirection
        End If
    End With
End Sub