ScrollTextQuestion

[wm.chatman]

Hi

i am trying to scroll a txt.

a question if I may. Is it possible to ScrollText on frm using lbl1 or a img, or something else1?

this is vb example using a tmr:

Private Sub tmrScrollText_Timer()
If tmp = Len(ScrollText) Then
tmp = 0
tmrScrollText.Enabled = False
Exit Sub
Else
tmp = tmp + 1

Me.Caption = Mid(ScrollText, 1, tmp) (or frm, lbl)
End If

End Sub

Thank you

Best regards
William
have a nice WE

 

[wm.chatman]

Hi

i am trying to scroll a txt.

a question if I may. Is it possible to ScrollText on frm using lbl1 or a img, or something else1?

this is vb example using a tmr:

Private Sub tmrScrollText_Timer()
If tmp = Len(ScrollText) Then
tmp = 0
tmrScrollText.Enabled = False
Exit Sub
Else
tmp = tmp + 1

Me.Caption = Mid(ScrollText, 1, tmp) (or frm, lbl)
End If

End Sub

Thank you

Best regards
William
have a nice WE

any ideas Mr. Agraham, Erel
have a nice WE

 

[wm.chatman]

any ideas Mr. Agraham, Erel
have a nice WE

sorry, forgot quote

 

[Ariel_Z]

Add a form named Form1, and a Timer named Timer1.

Is this what you mean?

Sub Globals
   'Declare the global variables here.
   strFormCap = "       Form scrolling example, written with pride for Mr. wm.chatman     :::"
End Sub

Sub App_Start
   Form1.Text = strFormCap
   Timer1.Interval = 100
   Timer1.Enabled = True
   Form1.Show
End Sub

Sub Timer1_Tick
    Form1.Text = SubString(Form1.Text, 1, StrLength(Form1.Text) - 1)
   If StrLength(Form1.Text) < 30 Then
      Form1.Text = Form1.Text & strFormCap 
   End If
End Sub

 

[wm.chatman]

Scrolling Text

Hi Ariel Z

Thank you for the help. Seems like your source code scrolls txt on frm header. I need to scroll txt on the frm itself.
From the bottom of frm to the top.
I am only able to add this bit of source code, this will scroll text on the MainForm. Bottom to Top using a Label1.

Example using vb:

Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

Private Sub Form_Load()
SetWindowPos hwnd, _
HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE + SWP_NOSIZE
Label1.Caption = "Copyright (c) 2008 , WMC Allrights Reserved." & _
vbCrLf & "Version 4.05.2006" & _
vbCrLf & "Product ID : AS-EP-VER-4.0" & vbCrLf & vbCrLf & "Created By" & _
vbCrLf & "WMC Software" & _
vbCrLf & vbCrLf & "Star Writer Light 4.0" & _
vbCrLf & "This software is freeware or shareware. You may use it" & _
vbCrLf & "free of charge as it fits your own projects but may not" & _
vbCrLf & "sell the original product. If you " & _
vbCrLf & "decide to distribute these files you must include this" & _
vbCrLf & "disclaimer and all the original copyright notices from the" & _
vbCrLf & "original owner. WMC takes no responsibility how" & _
vbCrLf & "you use this program." & _
vbCrLf & _
vbCrLf & vbCrLf & "Features Include" & _
vbCrLf & "Create RTF, TXT, DOC, etc.. Files, Encrypt & Decrypt, " & _
vbCrLf & "Advanced Find, " & _
vbCrLf & "Remove and Replace, Insert Current System Date & Time" & _
vbCrLf & "Embeded Files, Text Formating (Bold, Italic, Underline," & _
vbCrLf & "Strike, Bullets, Alignmets, Fore Color, Back Color, Fonts and Etc..)" & _
vbCrLf & "Open Other Applications (MS-Paint , MS-Calculator)." & _
vbCrLf & vbCrLf & "For more information Please visit:" & _
vbCrLf & "http://Under Construction" & _
vbCrLf & "E-mail: ???" & _
vbCrLf & _
vbCrLf & vbCrLf & "--- Thank you for using this Software ---"
End Sub

Private Sub Timer1_Timer()
Label1.Top = Label1.Top - 5
'If Label1.Top < Picture1.Top - Label1.Height Then Label1.Top = 735
End Sub

Thanks

Best regards
WmC

 

[wm.chatman]

Add a form named Form1, and a Timer named Timer1.

Is this what you mean?

Sub Globals
   'Declare the global variables here.
   strFormCap = "       Form scrolling example, written with pride for Mr. wm.chatman     :::"
End Sub

Sub App_Start
   Form1.Text = strFormCap
   Timer1.Interval = 100
   Timer1.Enabled = True
   Form1.Show
End Sub

Sub Timer1_Tick
    Form1.Text = SubString(Form1.Text, 1, StrLength(Form1.Text) - 1)
   If StrLength(Form1.Text) < 30 Then
      Form1.Text = Form1.Text & strFormCap 
   End If
End Sub

sorry, posted the wrong code in Plink1

 

[wm.chatman]

Hello

this bit of source scrolls txt. But, its a might jerky.

How is it possible to Scroll the text smoother? The jerky motion does not look very nice.

any ideas?

Best regards

William

 

[Erel]

I'm afraid that there is not much that can be improved.
One thing which can help a little bit is to use a temporary variable instead of changing form.text twice:

Sub Timer1_Tick
     t = SubString(Form1.Text, 1, StrLength(Form1.Text) - 1)
    If StrLength(t) < 30 Then
        t = t & strFormCap 
    End If
    form1.Text = t

End Sub

 

[wm.chatman]

Dir Mr. Erel

Thanks much. Maybe we need a different approach.
BTW. When will the new UI for GPS4PPC be posted?

Best regards
William

 

[Erel]

When will the new UI for GPS4PPC be posted?

Should be pretty soon (one or two weeks).

 

[wm.chatman]

Scrolling some Text

Hi

Would like to get some scrolling Text done for the Thank you’s for the TRUIdbase App.
Check out the Help, About Moxilla Firefox, Danksagung (Thank you's) After a couple of seconds the Label or Image moves to the top.
The code I have works using a Label, but not so nice at all. Is there a better way we can realize our plan?
I am all ears for suggestions, help, and comments on this.

Best regards
William

 

[wm.chatman]

Problem Resolved by flashing a message to the screen, and working.
I am using a Panel for this.

Check Attachment

BTW: a few Months back I downloaded a small Calender App. When started it showed the 12 months of
the Year. The thing about it, it had been like a measuring Tape! The 12 months were showing from right to left (scrolling) I quess using a timer control. And when the months were over, that was all there was to it. If I remember correct it had been a Image that was scrolled on the form, showing the Year.
Can someone remember somthing like that, or has anyone seen or know where I can find this again?
I must have deleted the source code. It sure would help!

Best regards

William