كيفية الكتابة فى المنيوبار

وعليكم السلام ورحمة الله

شرح الطريقة في المثال السابق:

1- تم الإعلان عن متغير نصي في بداية صفحة كود النموذج كما يلي:

Option Compare Database
Private strText As String

2- في حدث عند التحميل للنموذج تم كتابة الرسالة التي تظهر في المنيوبار, مع إضافة مسافات كثيرة لكي يكون هناك مجال لحركة النص.

Private Sub Form_Load()
strText = "ÃåáÇ Èßã Ýí ãÚåÏ ÌáÝÇÑ ááÊÏÑíÈ åÐå äÇÝÐÉ ÇÏÎÇá ÈíÇäÇÊ ÇáÊÏÑíÈ áßá ãÊÏÑÈ  "
strText = Space(110) & strText
End Sub

3- في حدث عند عداد الوقت للنموذج تم كتابة الكود التالي:

Private Sub Form_Timer()
strText = Mid(strText, 2) & Left(strText, 1)
Me.Caption = strText
End Sub

4- ثم أخيراً تم جعل الفاصل الزمني لعداد الوقت 50 بدلاً من 0

الاخت غرام العقول الف الف الف شكر وجزاكى الله خيرا وعيد سعيد