شباب نرجو الاجابة بسرعة
أولاً ممكن أحد الشباب يشرح لنا كيفية وضع نص متحرك في النموذج وليكن هذا النص المتحرك مثلاً عنوان الموضوع ( تسيجل قرض لدى صندوق التنمية )
ثانياً / ما مقياس صفحة فور 4 A في طريقة طباعة ورقة النموذج .
ثالثا / نريد شرح مفصل عن كيفية إنشاء لوحة تبديل ولتكن الصفحة الرئيسية
لمدخل ا لنموذج
وتقبلوا تحياتي وتقديري
الاخ علي
اليك هذا النموذج وفيه الاجابة على اولاً
اما ثانياً لم افهم السؤال هل ممكن التوضيح
الى الأخ / العريف
اشكرك جزيل الشكر على تجاوبك معي ولكن ربما أنا لم أوصل المعلومة اليك
حيث أريد معرفة كيفية إعداد نص متحرك عن طريق النموذج الذي أعمله فنريد منك فضلاً لا أمراً كيف يمكنني أن أعمل أو الخطوات التي يجب على ان اتبعها حتى أكون نص متحرك ضمن نموذجي وياليت تشرحها بالتفصيل الممل .
أما بالنسبة للسؤال الثاني فلو فرضنا ان لدي مجموعة من الخيارات فعندما أضغط على أحدها تظهر القائمة مثلا الجهات الاربع عندما أضغط عليها تأتي قائمة بجميع الجهات الاربع الشرق الشمال الجنوب الغرب عندما اريد الشرق فلا يظهر في النموذج إلا كلمة الشرق وهكذا
وتقبل مني خالص الدعاء
ولاتؤاخذني على كثرة أسئلتي
اقتباسثانياً / ما مقياس صفحة فور 4 A في طريقة طباعة ورقة النموذج .
297 مم * 210 مم
بالنسبة للسؤال الثالث
يرجي توضيح كيف تريد الاظهار ، فى نموذج فرعي ، فى قائمة ام فى نموذج جديد أم ماذا ؟؟
و ان أمكن وضع المثال نفسه يكون أفضل للتعديل عليه مباشرة ( و يفضل أن تكون أسماء الكائنات بالانجليزية منعا لمشاكل الكود) اما الواجهة فبالعربية طبعا
و يرجي مراجعة قواعد طرح الاسئلة ، و منها عدم طرح اكثر من سؤال فى موضوع واحد تحت أي ظرف ( الموضوع المثبت )
فيرجي طرحه بصورة أوضح فى موضوع مستقل مع ارفاق مثال ان وجد
مع تحياتي
السلام عليكم:
اخي العريف:الملف المرفق منك جاهز .
هل بالامكان توضيح كيف جعلت النص يتحرك داخل النموذج.
ولك جزيل الشكر،،،،
تحياتي للجميع،،،،،
الى الأخ محمد طاهر مشرف الأكسس والأوفيس
السلام عليكم ورحمة الله وبركاته
أريد معرفة كيف يتم عمل نص متحرك ضمن النموذج الأساسي الذي يوجد في البيانات التي أقوم بإدخالها ولا تؤاخذوا على في عدم إيصال المعلومة لأنني مبتدئ ولكن بوجودك إن شاء الله سوف نتجاوز هذه المرحلة التي تعد حقيقة مرحلة إختبار حقيقي عن مدى فهم الشخص للبرنامج ومن ثم محاولة تطبيقة
وتقبلوا خالص تحياتي وتقديري
بالنسبة للمثال الذي وضعه الاخ العريف مشكورا
افتح الفورم فى وضع التصميم
اختار عرض الكود
أو اضغط ALT + F11
لكي تري الكود
فى حدث عند عداد الوقت يوجد الكود التالي
Private Sub Form_Timer() Text1 = Mid(Text1, 2) & Left(Text1, 1) asa.Caption = Text1 END SUB
مع ضبط خاصية الفاصل الزمني Timer interval من الخصائص الخاصة بالفورم الي الفترة المطلوبة ، و هي 100 مللي ثانية فى المثال
فيقوم الكود أعلاه باضافة مسافة space الي ما هو مكتوب فى التسمية Label التي اسمها asa و ذلك كل 0.1 ثانية فتبدو متحركة
اما باقي الكود فى المثال فهو لتغيير اللون
الأخ الكريم على رداً على سؤالك الأول
قمت بعمله في الملف المرفق ولكن إليك الطريقة وهي سهلة وبسيطة
ارسم مربع عنوان في المكان الذي تريده واكتب فيه أي شيء وليكن مسافات مثلاً واسمه باسم بسيط وليكن txm
افتح على خصائص النموذج وبالتحديد على التبويب حدث
وفي حدث عند فتح النموذج اكتب السطرين التالين
Text1 = " العبارة التي ترغب بتحريكها "
Text1 = Space(100) & Text1
وفي حدث عند عداد الوقت اكتب السطرين التالين
Text1 = Mid(Text1, 2) & Left(Text1, 1)
txm.Caption = Text1
وفي الفاصل الزمني لعداد الوقت اكتب الرقم 100
في الوحدة النمطية اكتب السطر التالي
Private Text1 As String
وذلك في الجزء General
السؤال الثاني
تجد أجابته بالمثال الموجد بالملف المرفق
يعطيك العافيه مشرفنا الغالي على ذالشرح الحلووووو
تحيااااااتي
عندي نفس فكرة الاخ علي لكن النص متغير اريد قراءة من الجدول ارجو مساعدتي
http://www.arabteam2000.com/vb/showthread....&threadid=25679
هذا الموضوع مغلق.
