اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

أننى أتسائل عن كيفية عمل فورم دائرى فى الاكسيل

 

وجدت طريقة على أحدى المواقع ولكنها لا تعمل ..... مرفق الملف 

 

ولى تسائل آخر كيف يمكننى التعامل مع خصائص الويندوز والملفات وأخفاء وأظهار الملفات على ويندوز 7 

من خلال أوامر الفيجوال بيزك على الاكسيل ؟؟؟؟

 

وشكرا

عمل الفورم دائرى.rar

قام بنشر

أخى الفاضل

 

يعني ايه فورم دائري، عاوز الفوم نفسها تاخد شكل دائرة والا عاوز ترسم دائرة داخل الفورم والا ايه

 

تحياتي :fff: 

قام بنشر

أستاذى الفاضل ابن مصر 

 

تحية طيبة وبعد ,,,,,

 

أشكر مرور حضرتك الكريم 

أنا أقصد ان يكون شكل اليوزر فورم دائرى بدلا من الشكل المربع ..... هل هذا ممكن ؟؟؟؟

 

وشكرا

قام بنشر

السلام عليكم

 

أخى ابن الملك   وعبدالله بولنوار

 

اليوزرفورم الدائرى الذى تقصده لا يوجد على حد خبرتى المحدودة

 

فهو يأخذ الشكل المربع أو المستطيل المعروف لنا جميعاً

 

أما المرفق الذى تفضل به الأخ عبدالله بولنوار فهو أصلا اليوزفورم المعروف لنا 

 

وتم ادراج صورة دائرية عليه مع تلوين الأجزاء التى حول الصوره الدائرية باللون الأبيض

 

لذلك يبدو لنا اليوزرفورم دائرياً . يعنى كده تم التحايل على الشكل ليبدو دائريأ

 

كما يمكن تحقيق ذلك أيضا بس مش من vba من قائمة insert اختر shapes وتخير الشكل الدائرى ثم اربطه بالكود الذى تريده

                                              تقبلا تحياتى

قام بنشر

اخي مختار

 

ليست الفكرة في التلوين

 

بدليل لو انك ظغطت مرتين بجنب الدائرة لا يختفي الفورم مهما اقتربت من الدائرة الا اذا ظغطت مرتين في الدائرة

 

لو كان التلوين ابض كان سيظهر لو كان شفاف كان سيختفي الفورم بمجرد الضغط مرتين بجنب الفورم

 

هذا المرفق الاصلي لصاحبه

 

 

اجعل الفورم يأخذ اي شكل تريده.rar

قام بنشر

هنا مربط الفرس زى ما بيقولوا    و ده اللى عايزين نوصلوا واللى بيأكد كلامى

 

أن اليوزرفورم أصلا مربع أو مستطيل وتم التحايل باللون الأبيض الشفاف

 

ولو لاحظت الكود التالى  مديول 1

Public Function Rabie_Sk(uf As Object, colors As Variant, Optional Sk As Variant = True)
    hWnd = FWw(vbNullString, uf.Caption)
    SWLg hWnd, -16, &H80080080: SWLg hWnd, -20, &H80000: DrMBar hWnd
    Select Case Sk
    Case True
        SLWA hWnd, colors, &H2, &H1
    Case False
        SLWA hWnd, colors, 50, &H2
    End Select
End Function

هذه الدالة  فيها حالتين عندما يكون اللون شفاف لا يتم الاستجابة للنقر   أما اذا كان غير ذلك  تتم الاستجابة للنقر وتنفيذ الاختفاء

 

      تحياتى لك

  • Like 1
قام بنشر

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

 

أنا أشكركم جميعا على كل ما قدمتموه لنا من هذا العلم 

 

 أ/ مختار حسين محمود أنا باشكر مرور حضرتك و لكننى لا افهم كيفية ربط ال Shapes  مع اليوزر فورم كيف يمكن هذا ؟

 

وأشكر أ/ عبد الله لمروره الكريم وأشكره على محاولتة معى .

 

شكرا لكم جميعا 

قام بنشر (معدل)

اخى الفاضل  ابن الملك تقصد ربط  Shapes   بالماكرو

 

اذا كان   كذلك فان الـــــ   Shapes  أشكال تلقائية  نربطها بماكرو أو كود معين

بأن تعمل رايت كيليك على الشكل  وتختار   ASSIGN MACRO     ثم  OK

 

تماما كما فى مرفق أخونا عبدالله  لما تضغط على  الشكل فورم   تلاقى اليوزرفورم الدائرى ظهر  والربط بينهما

 

يحدث  عن طريق الكود

Sub boulanouar()
UserForm1.Show
End Sub



جرب واعمل رايت كليك على الدائرة الصغيرة المكتوب فيها فورم  واختار  ASSIGN MACRO    ثم    EDIT

هتلاقى  الــــ فيجوالبيسك فتح وهتشوف الكود السابق الذى يجعل اليوزرفورم يظهر لك

 

تقبل تحياتى

تم تعديل بواسطه مختار حسين محمود

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information