بسم الله الرحمن الرحيم
السلام عليكم .......
لدي سؤال حول الحدث ole drag ولدي هذا المثال من احد المنتديات .. هذا المثال يحتوي على مربيعين نص . وهاذين المربعين بهما ارقام والذي اريد عندما اقوم بسحب مافي المربع الاول الى المربع الثاني يتم جمع ماتم سحبه في المربع الثاني والعكس صحيح ...
ارجــــــــــــــــــــــــــــــــوكم
ولكم مني جزيل الشكر
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
لا ادري لماذا لا احد يجيب على هذا السؤال بالذات ........
هل السؤال معقد يحتاج الى خوارزميه وتفكير كثير
ام ان السؤال غير مفهوم
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
اخواني لا ادري ما المشكله في هذه المشاركه
وكأن هذا الحدث غريب او انه يسمع لاول مره
اين انتم يا مشرفين
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
اقتباساين انتم يا مشرفين
المشرف على قسم لا يعني أنه ملزم بالإجابة على أي سؤال في القسم الذي يشرف عليه...
لا أعلم أين مشكلتك بالضبط
انا لا استعمل الفيجوال بيسك ... حين استخدمت الـDrag & Drop المتاح في مكونات الدلفي لم أواجه اي مشكله في جمع القيم في مكوني Edit .
ربما الإجابة التي سأذكرها غير صحيحة فأعذرني ( انا استعملت notepad لفتح الكود الذي ارفقته وحاولت أفهم الكود رغم أني لا أبرمج بالفيجوال بيسك) لكن ربما قد تفيدك
في الكود
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) Text1.Text = Data.GetData(vbCFText) End Sub
بعد أن تتأكد من أن النص في Text1 هو ارقام والنص في المكون المعمول له DragDrop ارقام ايضا قم بعملية الجمع ..
شئ كهذا
Text1.Text = CInt(Text1.Text)+CInt(Data.GetData(vbCFText))
لماذا لا تستخدم DragDrop المتاحة في فيجوال بيسك ؟
راجع
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
تشكر اخي الكريم ...
ممكن اخي لدي بعض الاسئله حول هذا الحدث :
( 1 ) : كيف يمكنني ان احول مؤشر الماوس من سهم عند السحب الى ايقونه أخرى غير السهم .
( 2 ) : بالنسبة للسحب في هذا المثال وهو انني استخدم الحدث MouseDown ، ولكن المشكله تدور حول الاتي
لو اريد عندما انقر بالزر الايمن على احد مربعات النصوص تنبثق لي قائمة فكيف يمكن عمل ذلك
ولك مني جزيل الشكر ...
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
:D
كما قلت لك عزيزي انا لا أبرمج على الفيجوال بيسك
لكن لا بأس ... سأحاول الإجابة ولو كانت خاطئة اتمنى من الأخوة التعديل
اقتباس( 1 ) : كيف يمكنني ان احول مؤشر الماوس من سهم عند السحب الى ايقونه أخرى غير السهم .
غير في هذا الجزء
Text1.DragIcon = Form1.Icon
اقتباس( 2 ) : بالنسبة للسحب في هذا المثال وهو انني استخدم الحدث MouseDown ، ولكن المشكله تدور حول الاتيلو اريد عندما انقر بالزر الايمن على احد مربعات النصوص تنبثق لي قائمة فكيف يمكن عمل ذلك
استخدم Button لمعرفة ما هو الزر المضغوط عليه
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
لو تستخدم الـ DragDrop المتاح في مكونات الفيجوال يمكن يكون اسهل . راجع الوصلة التي اعطيتك في ردي السابق
أسف يمكن ما أفدتك بشئ ... اناابرمج على الدلفي والسي
تم تعديل هذه المشاركة بواسطة cipher في 25 ديسمبر 2005 في 08:30
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اشكرك اخي
ولكن المشكله تدور حول مشكلة الحدث mousedown :
وهو المشكله في تنفيذ كودين الاول متعلق بالسحب كما في المشاركه السابقة والثاني متعلق باظهار القائمه المنبثقه ..
ولك مني جزيل الشكر ،،،،
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
عادة popupmenu يتم إظهارها بعد ما ترفع اليد من الماوس اي في Text1_MouseUP
وكما قلت لك استخدم Button لمعرفة ما هو الزر المضغوط عليه
راجع هذا وستعرف قصدي
http://www.codecomments.com/archive337-2005-1-374300.html
http://vbnet.mvps.org/index.html?code/subc...contextmenu.htm
لو في مشاكل اخرى ضعها بالتفصيل وان شاء الله الأخوة مبرمجي الفيجوال بيسك سيردون عليك
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
جاري التجريب
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
بسم الله الرحمن الرحيم
=================
اخي الكريم cipher لقد جربت بعض الاكواد التي ارفقتها الي وتوصلت الى حل الضغط بالزر الايمن وظهور القائمه المنبثقه
ولكن المشكله تدور حول النقر بالزر الايسر للماوس فعند النقر عليه يتم تنفيذ حدث الـــ OleDragDrop وانا لا اريد تنفيذه الا عند السحب والافلات فقط وليس الضغط على الاداه بالزر الايسر
ارجوا ان تكون المشكله بسيطه ويكون لها حل من اجل الوصول النهائي لهذه المشكله ... فلقد توصلنا الى حلها بنسبة 90% والباقي الذي اريد وهو 10 %
ارجوكم
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
:D
غريبة.. ما في حدا من مبرمجي الفيجوال بيسك راضي يجيب على أسئلة الأخ !!
ما علينا
أخي العزيز .. الحل في كلامك لكن لم تنتبه لذلك
اقتباسالمشكله تدور حول النقر بالزر الايسر للماوس فعند النقر عليه يتم تنفيذ حدث الـــ OleDragDrop وانا لا اريد تنفيذه الا عند السحب والافلات فقط وليس الضغط على الاداه بالزر الايسر
الكود الذي ارفقته انت من منتدى اخر يستخدم الحدث MouseDown وانت عليك استعمال MouseMove ...
راجع اول وصلة وضعتها لك فيها شرح كامل ومثال أظنه متكامل ( ليس لدي فيجوال بيسك لاقوم بتجربته )..
http://www.pgacon.com/BVColumns/bv24.htm
لاحظ ان المثال في اخر الصفحة استخدم
Text1_MouseMove
Text1_OLEDragDrop
Text1_OLEDragOver
Text1_OLEGiveFeedback
Text1_OLEStartDrag
اعمل تغييرات في المثال بما يتناسب مع طلبك ...
لا تقول لي أغير لك المثال :angry:
:D
حظ موفق
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اخي الكريم اقدر تعاونك معي
ولكن لا ادري لماذا لا احد يجيب من اعضاء منتدى الفيجوال بيسك
اخي الكريم لم افهم كلامك السابق ... ولكن اخي بالنسبه للصفحة التي ارفقتها لي لم اخذ منها سوى سطر واحد عابر فقط وهي لحل مشكلة النقر بالزر الايمن ولكن المشكله التي انا بصددها الآن وهي النقر بالزر الايسر على مربع النص فيتم تنفيذ حدث oledragdrop والذي اريد لا يتم تنفيذ شي اطلاق عند النقر بالزر الايسر على مربع النص ولكن يتم تنفيذ حدث oledragdrop عند اسحب من مربع الى اخر فقط
المثال المرفق
ولكم مني جزيل الشكر
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
اخي الكريم اقدر تعاونك معي
ولكن لا ادري لماذا لا احد يجيب من اعضاء منتدى الفيجوال بيسك
اخي الكريم لم افهم كلامك السابق ... ولكن اخي بالنسبه للصفحة التي ارفقتها لي لم اخذ منها سوى سطر واحد عابر فقط وهي لحل مشكلة النقر بالزر الايمن ولكن المشكله التي انا بصددها الآن وهي النقر بالزر الايسر على مربع النص فيتم تنفيذ حدث oledragdrop والذي اريد لا يتم تنفيذ شي اطلاق عند النقر بالزر الايسر على مربع النص ولكن يتم تنفيذ حدث oledragdrop عند اسحب من مربع الى اخر فقط
المثال المرفق
ولكم مني جزيل الشكر
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
أخي العزيز
اقتباسوالذي اريد لا يتم تنفيذ شي اطلاق عند النقر بالزر الايسر على مربع النص ولكن يتم تنفيذ حدث oledragdrop عند اسحب من مربع الى اخر فقط
ما انا قلت لك الحل في كلامك
كود Text1_MouseDown استخدمه لاستدعاء الـ popupmenu
استخدم Text1_MouseMove لتنفيذ كود السحب
لاحظ الكود في الصفحة التي أشرت اليها ماذا فعل
Private Sub Text1_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) ' If the left button is depressed, ' initiate an OLE drag operation. If Button = 1 Then Text1.OLEDrag End Sub
ارجو انك تكون فهمت قصدي
راجع المثال هناك وحاول تفهمه وغير فيه حسب طلبك
في المثال Picture Box لا تستخدمها ...
المشكلة انه ليس لدي فيجوال بيسك و الـ VBA التي تاتي مع MS Office لا يمكن تطبيق OleDrag فيها ....
حاول ثم حاول ثم حاول
اكرر
MouseDown لاظهار القائمة popupmenu
Mousemove لتنفيذ السحب drag
أي تساؤلات أخرى اهلا وسهلا
تحياتي
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اخي الكريم حاول تجربة المثال الذي ارفقته لك باي وسيله
فجربت ذلك ولكنه وقف عني حدث الــ oledragdrop
ارجو المساعده
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
هل من مجيب
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
كيف يمكنني ان اغير ايقونه اي مؤشر الماوس عند السحب كما في المثال السابق
ارجــــــــــــــــــــــــــــــــوكم
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
أخي العزيز
كما قلت لك استعمل DragDrop المتاحة لمكونات الفيجوال بيسك ..
راجع هذا المثال فيه DragDrop وتغيير لايقونة الماوس أثناء السحب
http://www.devx.com/vb/Article/8029/0/page/4
غير في المثال كيفما تشاء وأي مشاكل اكتبها هنا (نزلت الفيجوال بيسك من أجلك :D )
تحياتي
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اشكرك اخي على المبادره منك
اعلم اخي الكريم انني استخدم الحدث OleDragDrop وليس DragDrop ممكن اخي تحمل المثال الذي ارفقته في المشاركات السابقه وتعدل فيه بعد اذنك ولك مني جزيل الشكر
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
هذا الموضوع مغلق.