picturebox with scrolling text

Posted on 1998-11-03
Medium Priority
Last Modified: 2010-04-30
Can anoybody tell me how to do the above mention thing. I want to put it in the About box....I got some examples but it is just one line text. I want to put it in multiple lines or maybe read from external files all the contents and put it in an array and show it in the About box with scrolling text. Be glad if u can give me an example.

Regards, dagger
Question by:dagger

Accepted Solution

roughneck earned 150 total points
ID: 1443029

Const SRCCOPY = &HCC0020
Const ShowText$ = "This line of text scrolls vertically."

Private Declare Function BitBlt Lib "gdi32" _
(ByVal hDestDC As Long, ByVal x As Long, ByVal y As _
Long, ByVal nWidth As Long, ByVal nHeight As Long, _
ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal _
ySrc As Long, ByVal dwRop As Long) As Long

Dim ShowIt%

Add a picturebox to the form and set its scalemode to pixel (3). Add a
timer to the form with an interval of about 25. Now put this code in the timer's

timer event:

Dim Ret As Integer

If (ShowIt% = 100) Then 'play with this value for desired effect
    Picture1.CurrentX = 0
    Picture1.CurrentY = Picture1.ScaleHeight - 15 'play with this also
    Picture1.Print ShowText$
    ShowIt% = 0
    Ret = BitBlt(Picture1.hDC, 0, 0, Picture1.ScaleWidth, _
    Picture1.ScaleHeight - 1, Picture1.hDC, 0, 1, SRCCOPY)
    ShowIt% = ShowIt% + 1
End If  

I get this from somewhere in the net.

Author Comment

ID: 1443030
Adjusted points to 50

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Introduction While answering a recent question (http://www.experts-exchange.com/Q_27402310.html) in the VB classic zone, I wrote some VB code in the (Office) VBA environment, rather than fire up my older PC.  I didn't post completely correct code o…
Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

619 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question