Rotate Captions or Text boxs?

[bobthebobert]

I know its been asked before, but all the previous threads about it pointed to a link that doesn't exist anymore.

[MartinLiss]

Private Sub Form_Load()
 
Me.Caption = "This is a scrolling caption     "
Timer1.Interval = 400
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
 
    Me.Caption = Right$(Me.Caption, Len(Me.Caption) - 1) & Left$(Me.Caption, 1)
    
End Sub

[Bruce Fox]

1. By using a .OCX.

2. By using API.



Bruce.

[bobthebobert]

Martin, thanks but I want something to rotate, like going around in a circlular manor.

Bruce, are you sure you have to use one of those two things to do it?

[Bruce Fox]

Bob,

I wouldn't expect it will be too simple.


Suggestion: Can us use a Rotaing Image?


Bruce.

[Bruce Fox]

This example rotates TEXT, not the TextBox/Label, however, it
may be an option for you



Bruce.

[Bruce Fox]

I was playing with the following. If you adopted the lookup table idea above,
you could manipulate the X, Y co-ords (below) to do something similar
without the overheads:

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
 
Private Sub Form_Paint()
 
    TextOut Me.hdc, 100, 100, "A", 1
    TextOut Me.hdc, 120, 120, "B", 1
    TextOut Me.hdc, 140, 140, "C", 1
 
End Sub

The above will yeild A, B, C diagonally down the Form.


EDIT: The above refernce to the .OCX has been updated, here it is.






Bruce.