نص متحرك

[DR WALID SALAH]

تفضل أخوانى الكريم ،،، هذا مثال

----------------------------------------------------------------------------

Option Compare Database
Option Explicit

Public txtScrollStatus As String ' Needed for

Private Sub Form_Load()
' شريط متحرك بأعلى النموذج
Me.Caption = "........... office line  ..........."

' شريط متحرك بالنموذج
Me.lblScrollingLabel.Caption = "walid salah  ......................... "

' شريط متحرك بأسفل النموذج
txtScrollStatus = " allah" & Space(25)

End Sub

' Special Note ...........
' Set Form's Timer Interval to 100
Private Sub Form_Timer()

' Produce the Scrolling Text in Caption on the Form
Me.Caption = Mid(Me.Caption, 2, _
 (Len(Me.Caption) - 1)) & Left(Me.Caption, 1)

' Produce the Scrolling Text in Label on the Form
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
 (Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)

' Produce the Scrolling Text in Status Bar of Access
SysCmd acSysCmdSetStatus, txtScrollStatus
txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1)

End Sub

 

الشكر  لاخ الفاضل الذى ساعدنى فيه واذن لى بنقله الى منتدكاكم الكريم 

 

 

- 

text bar move.zip