Solved

picturebox with scrolling text

Posted on 1998-11-03
2
164 Views
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
0
Comment
Question by:dagger
2 Comments
 

Accepted Solution

by:
roughneck earned 50 total points
ID: 1443029
Declarations:

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
Else
    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.
0
 

Author Comment

by:dagger
ID: 1443030
Adjusted points to 50
0

Featured Post

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
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…

776 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