DR WALID SALAH قام بنشر فبراير 24, 2019 مشاركة قام بنشر فبراير 24, 2019 تفضل أخوانى الكريم ،،، هذا مثال ---------------------------------------------------------------------------- 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.