[RESOLVED] Scroll in VB (one more question!)

[wxmancanada]

Does anyone have a control or code to make scrolling text, like a scrolling marquee?

I'd like to input text into a text box, press a command button and have the text scroll in a label or something.

[Fazi]

check this
http://www.vbforums.com/showthread.p...t=text+marquee

[Hack]

Another example

Private Sub Timer1_Timer()
  Label1.Move Label1.Left - 25
  If Label1.Left < -Label1.Width Then Label1.Left = Picture1.Width
End Sub

Private Sub Form_Load()
Label1.Caption = "This is an example of Marquee Scrolling Text Using A Label And A Picture Box"
End Sub

[wxmancanada]

I have the scroll enabled.. How ever it flickers something wicked, how can I fix this? I am using a label..

[Fazi]

can you post your scroll code here ?

[wxmancanada]

Sure..

Here it is:

LDL.Scroll.Move LDL.Scroll.Left - 50
If LDL.Scroll.Left < -LDL.Scroll.Width Then LDL.Scroll.Left = LDL.Width

"LDL" is the form that the label "Scroll" is on.

The actual scrolling is taking place in another form, but with the code in the same form, I still get the horrible flickering.

[Fazi]

I don't thing you can prevent this flickring. textout() api is another opion. but i have not done any scrolling with that.

[Fazi]

TextOut() method,no flickring.

*timer interval 100

Option Explicit
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Dim i As Long, p As Long
Dim str As String

Private Sub Timer1_Timer()
str = "hai"
Cls
TextOut Me.hdc, i, 0, ByVal str, Len(str)
'Debug.Print i, Me.Width / Screen.TwipsPerPixelX
If i > Me.Width / Screen.TwipsPerPixelX Then
   i = 0
Else
   i = i + 10
End If
End Sub

Edited : The code has little bit modified from the first post.

[wxmancanada]

How do I actually apply this? Where... does it .. display?

[Fazi]

Please check this http://msdn2.microsoft.com/en-us/lib...19(VS.85).aspx