تفضل أخوانى الكريم ،،، هذا مثال
----------------------------------------------------------------------------
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