(تمت الاجابة) تكبير حجم خانة الاختيار

[نبيل العشاري]

الإخوة الكرام حاولت أن أكبر حجم خانة الاختيار اي المربع الصغير الذي توضع فيه علامة صح فلم افلح وأنا في الأصل أحتاجة في الباور بوينت لكن لم افلح حتى في الأكسس ، فما هي الطريقة إن كانت ممكنة شاكرا لكم سلفا .

[يوسف أحمد]

مرحباً بك اخي NABEELKO

بحثت ووجدت لك حلاً ولكن بوضع الحرف x بمربع تسمية برمجياً

خطوات العمل

1 : - ضع مربع تسمية وسمه lblCheck واضبط حجمه بما يناسبك

2 : - ضع الحرف الانجليزي x كتسمية له

3 : - من خصائصه ومن التبويب تنسيق غير الخاصية تأثير خاص الى غاطس ( Sunken )

4 : - اجعل الخلفية بيضاء

5: - اجعل محاذاة النص ( وسط )

6: - اضبط حجم الخط بما يتناسب وحجم مربع التسمية

7: - احذف الحرف الانجليزي x من التسمية

8 : - ضع الكود ادناه بحدث عند النقر لمربع التسمية

With Me![lblCheck]
  If .Caption = "X" Then
    .Caption = vbNullString
  Else
    .Caption = "X"
  End If
End With

وهذا مثال على ذلك

ارجو ان يفي بغرضك

وبالتوفيق

db1.rar

[عمار زيد]

السلام عليكم

أخ يوسف جزاك الله خيراً على هذا المثال

وإضافة لم ذكرت ممكن أن ندخل إلى برنامج msword ونعمل إضافة رمز

في الفونت Wingdings 2 يوجد فيه شكل إشارة صح يمكن الاستفادة منها لإعطاء نفس شكل مربع الاختيار

والسلام عليكم

[نبيل العشاري]

أخي يوسف جزاك الله خيرا على الرد السريع ،،

جربتها على أكسس ضبطت معاي تمام بس على الوورد أو الباور بوينت لم تضبط ، يطلع خطأ في الكود والسبب إنه ما يرضى يتسمى مربع التسمية بنفس التسمية اللي انت مقترحها lblCheck وإذا كتبت اسم من عندي وغيرت في الكود ما يضبط معاي يطلع عليه لون اصفر .

شاكر لك استاذي يوسف وأشكر أخي عمار على إثراء الموضوع .

[sx1]

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم

[نبيل العشاري]

اخي الكريم هلا طبقت نفس المثال في غير الأكسس في البوربينت مثلا لأني حاولت من يومين فأخفقت مع اعتذاري على الإزعاج

[يوسف أحمد]

اخي / NABEELKO

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

اقترح عليك فتح مشاركة جديدة بقسم الباوربوينت للسؤال عن هذا الموضوع مع وضع رابط مشاركتك بقسم الاكسس

لتوضيح الفكرة.

مع الشكر