Marquee

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Is there a way to get a marquee type thing on a form or is this only
available on a data access page? I didn't see anything for it in the
toolbox. However, I know that there are many things out there that I don't
know.....

I am trying to re-work a couple of things that I inherited and wanted to
know before I went to crazy with things.

Thanks
 
Not built in, you'd have to write your own. It wouldn't be to hard,
though.


Chris Nebinger
 
Is there a way to get a marquee type thing on a form or is this only
available on a data access page? I didn't see anything for it in the
toolbox. However, I know that there are many things out there that I don't
know.....

I am trying to re-work a couple of things that I inherited and wanted to
know before I went to crazy with things.

Thanks
Click to expand...

Here is code for a basic scrolling message.
1) Add a Label control to the form.

2)Paste this code into the Timer event of your form.

Private Sub Form_Timer()
Dim strMsg As String
Static I As Integer
I = I + 1
strMsg = "Some message here. "
If I > Len(strMsg) Then I = 1

LabelName.Caption = LabelName.Caption & Mid(strMsg, I, 1)

End Sub

3) Set the Timer Interval to 500 (for two letters per second).
 
Very Cool...

I'll give it a try....

Thanks

fredg said:
Here is code for a basic scrolling message.
1) Add a Label control to the form.

2)Paste this code into the Timer event of your form.

Private Sub Form_Timer()
Dim strMsg As String
Static I As Integer
I = I + 1
strMsg = "Some message here. "
If I > Len(strMsg) Then I = 1

LabelName.Caption = LabelName.Caption & Mid(strMsg, I, 1)

End Sub

3) Set the Timer Interval to 500 (for two letters per second).
Click to expand...
 
Don Ireland said:
Is there a way to get a marquee type thing on a form or is this only
available on a data access page? I didn't see anything for it in the
toolbox. However, I know that there are many things out there that I don't
know.....

I am trying to re-work a couple of things that I inherited and wanted to
know before I went to crazy with things.

Thanks
Click to expand...

Here's one that uses the form's Timer event, and a 200 millisecond
TimerInterval.

Private Sub Form_Timer()
On Error GoTo Err_Handler
Const LABEL_LEN = 90
Const MSG = " Data Strategies - Arvin Meyer ©1996 - 2006 "

Static strMsg As String

If Len(strMsg) = 0 Then
strMsg = MSG & Space(LABEL_LEN - Len(MSG))
Else
strMsg = Right(strMsg, 1) & Left(strMsg, Len(strMsg) - 1)
End If
Me.Form.Caption = strMsg
Me.Label0.Caption = strMsg
Exit_Form_Timer:
Exit Sub
Err_Handler:
MsgBox Error$
Resume Exit_Form_Timer
End Sub

--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access
 
Back
Top