Ashraf Ehab

تم الحل .left

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

تم شكرا لحضرتك ولك جزيل الشكر

السلم عليكم ورحمة الله وبركاته الاخوة الاعزاء : ارجو مساعدتي في هذا الكود اريد عمل اذا وقف الماوس علي البوتون يطهر الفريم وهذا قم به ولكن اريد اذا المؤشر بعد عن البوتون يخفي الفريم مدرج الملفtry.xlsm

طيب هل موجود ما هو مطلوب او يمكن عمله من عدمه شكرا

السلام عليكم ورحمة الله وبركاته اخواتي الاعزاء برجاء المساعدة في طلبي هذا : اريد ان اقوم بعمل نسخ للشيت ونقله علي جهاز اخر ويتم مشاركة البيانات علي نفس الشيت عند الجهازين في نفس الوقت عبر الانترنت علي ثبيل المثال جهاز 1 قام بعملية بيع جهاز 2 يري انه تم البيع وعدد الاصناف نقصة وهكذا واا لم يكن هناك انترنت يتم تحديث العمليات عند توافر الانترنت شكرا وجزاكم الله خيرا مرفق لينك تحميل الملف https://www.mediafire.com/file/bg4i539n0q4l81l/حسابات.xlsm/file

للتوضيح اكثر اريد عمل سيستم كما هو وضح في الفديو الذي بالمرفقات نفس تفاصيل الحركة والعشوايئية الفديو باللنك الاتي https://www.mediafire.com/file/0staghp7nxyx4sa/es.rar/file

شكرا لك اخي الفاضل ولكني لم استطع استخدام الكود فهل يمكنك التوضيح قليلا

أخي العزيز ليس هذا ما هو مطلوب ساشرح لك بالتفاصيل ١ هناك ٣ليبول بأرقام مختلفة ٢ ليبول رقم ٧ به ٣٥ ثانية إذا وصلت إلي ٠ إبداء الايكونة بالتحرك حتي انتهاء الوقت الذي باليبول ٨ اي ٨ ثواني بعد انتهاء ال ٨ثواني وبداء بعد ١٦ ثانية في ليبول ٩ ليبداء عد ال٣٥ ثانية من جديد وهكذا حتي ولكن في هذه الحالة إبداء الايكونة بالتحرك من آخر نقطة كانت متوقفة بها حتي اغلاق البرنامج

اخي العزيز لقد قمت بحلها ولكن ظهر امامى مشكلة لا استطيع حلها وهي كل شئ عند الفتح تمام لكن بعد ما يجي يبداء من جديد يتوقف وسرعة حركة ايكونة الاكسيل لا استطيع التحكم بسرعتها مرفق الملف بعد التعديل WindowsApplication1.rar

انا عاجز عن شكرك هذا هو المطلوب لكني استاذن حضرتك تشرحلي معني الاكواد دي Function Imges(ImageNo As Integer) Image1.Image = Nothing Image2.Image = Nothing Image3.Image = Nothing Image4.Image = Nothing Image5.Image = Nothing Image6.Image = Nothing Image7.Image = Nothing Image8.Image = Nothing Image9.Image = Nothing Select Case ImageNo Case Is = 1 : Image1.Image = Image.FromFile(newpoth & "\Excel_Icon.png") Case Is = 2 : Image2.Image = Image.FromFile(newpoth & "\Excel_Icon.png") Case Is = 3 : Image3.Image = Image.FromFile(newpoth & "\Excel_Icon.png") Case Is = 4 : Image4.Image = Image.FromFile(newpoth & "\Excel_Icon.png") Case Is = 5 : Image5.Image = Image.FromFile(newpoth & "\Excel_Icon.png") Case Is = 6 : Image6.Image = Image.FromFile(newpoth & "\Excel_Icon.png") Case Is = 7 : Image7.Image = Image.FromFile(newpoth & "\Excel_Icon.png") Case Is = 8 : Image8.Image = Image.FromFile(newpoth & "\Excel_Icon.png") Case Is = 9 : Image9.Image = Image.FromFile(newpoth & "\Excel_Icon.png") Case Is = 0 : PictureBox1.Image = Image.FromFile(newpoth & "\Excel_Icon.png") End Select End Function وللتوضيح انا عاوز الاكسيل دي مثلا تدور علي المربعات كلها في 8 ثواني يعني بتلف المربعات كلها في ثانية واحدة وتعيد تاني وهكذا

السلام عليكم ورحمة الله وبركاته الاساتذة الافاضل اما بعد انا اريد تنفيذ الاتي ولم استطع الوصول الي هذا الكود اريد تحريك ليبول او صورة بشكل متتابع بعد وصول العداد الي 0 بمعني الصورة مثلا بعد 0 تبداء من ليبول معين وبعدها تتحرك بالتتابع علي باقي الليول حتي ينتهي عد مثلا 8 ثواني وهذه صورة كروكي لها ولكم جزيل الشكر

السلام عليكم ورحمة الله وبراكاته الاساتذة الافاضل انا اريد تنفيذ الاتي فارجو المساعدة ولو حتي بالفكرة او ترتيب الافكار اما بعد انا مصمم 16 مربع او بمعني اصح 16 ليبول علي شكل مربع وهناك ليبول في المنتصف به عد تنازلي التفاصيل المربع بالمنتصف اريد ان يقوم بعملين الاول وقت فتح الفورم يقوم بعد تنازلي 35 ثانية وبعد ال35 ثانية تبداء نقطة او ظل بلون مختلف بالدوران بالتوالي علي ال16 ليبول لمدة 8 ثواني ويظهر بعد ال8 ثواني مربع به عداد 17 ثانية بالناتج الواقف عليه وبعد ال17 يختفي المربع الجديد ويداء ال35 ثانية بالعد مرة اخري وهكذا ولكن الحركة الاقدة تبداء من اخر مكان كان واقف عليها مرفق تصميم مبدائي وجزاكم الله خيرا Play.xlsm

اخي الكريم شكرا لك ولكن نفس الوضع لا تزال تقوم بفتح الشاشة التي بالصورة الأولي أما الثانية لم تعد تظهر ثانيا لا اريدها ان تحل هذه المشكلة علي جهازي فقط ولكن حين نقله علي جهاز اخر يقوم بفتح الفورم تلقائيا ولا يفتح هذه القوائم اولا الاسم والباسورد لدخول البرنامج admin admin أما الدخول للبرمجة ashraf dim

السلام عليكم ورحمة الله وبركاته الاساتذة الافاضل والاخوة الاعزاء انا عامل الشيت عند فتحه يفتح الفورم في حالة اذا غيرت اسم الشيت او نقلته علي جهاز اخر يقوم بما في الصور الاتية في حالة الضغط علي enable editing يستطيع اي احد يعدل علي الشيت او الاكواد وبعد الضغط علي enable content يفتح الفورم طبيعي هل يوجد كود اضعه في الورك اوبن يقوم بعمل هذه الخطوات تلقائيا ام لا وشكرا rese.xlsm