بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
لدي نموذج يتم ادخال الاسماء فيه، وعندما يتم ادخال جزء من الاسم تظهر شاشة مساعدة ( تتضمن احتمالات الاسماء )
اجد احيانا الشاشة بارتفاع معين، ومرة اخرى بارتفاع اخر
السؤال :
اريد تحديد ارتفاع لهذه الشاشة بحيث يكون ثابت برمجيا، وذلك من اجل تعميم ذلك الارتفاع ( الكود) على باقي الشاشات لضمان ارتفاع موحد لكل الشاشات.
ارجو تعديل المثال المرفق
المثال معمول على اكسس 2007
و شكرا سلفاً
اخي الفاضل
استخدم هذا الكود للتحكم بإرتفاع وعرض النموذج وبإمكانك نسخ هذا الكود لجميع النماذج التي تريدها
فقط كل ما عليك هو التغيير في ارقام الأعداد الخاصة بالطول و بالعرض بما يتناسب معك
Private Sub Form_Open(Cancel As Integer) Me.Move Left:=8000, Top:=0, Width:=6000, Height:=8000 End Sub
Left:=8000 بعد النموذج عن الحافة اليسري للشاشة
Top:=0 بعد النموذج عن الحافة العليا للشاشة
Width:=6000 عرض النموذج
Height:=8000 طول النموذج
بالتوفيق
الف الف شكر اخت زهرة على هذا الكود الرائع الذي تفضلت به
و السلام عليكم
