رمضان

أخى عبد الغنى معزره للتأخير وهذا المثال الذى وعدتك به تجده هنــــــــــــــــــــــــــــــــــــــــــا مع ملاحظة انه إذا كان حجم ملف الـ AVI كبير فإن ذلك سيؤثر تأثير كبير على حجم البرنامج وسرعته

من هنــــــــــــــــــــــــــــــــــــــــــــــا

Super voice

فكره جميله وكود ممتاز وأجمل ما فى الموضوع الصوره المرفقه

نعم ممكن ولكنى لا أذكر الطريقه فى الوقت الحالى وإن شاء الله ساقوم بعمل مثال لذلك حسب مايسمح الوقت

اخ مادى يبدو أنك لم تلاحظ ردى أقصد طلبى السابق

يوجد مثال عن ذلك للأخ عماد فتحى بموقعه www.vbart.com

مش ممكن أرجو أن تضع الكود الذى إستخدمته

ضع خانتى صوره وزر على النافذه ثم ضع الكود الاتى Private Declare Function GetPixel Lib _ "gdi32" (ByVal hdc As Long, ByVal X As _ Long, ByVal Y As Long) As Long Private Declare Function SetPixel Lib _ "gdi32" (ByVal hdc As Long, ByVal X As _ Long, ByVal Y As Lo…

ماهى نسخه الويندوز لديك ونسخه المتصفح ونوعه وعموما فى الاسبوعين الماضيين كانت لدينا مشاكل من السيرفر المستضيف للموقع

يمكنك ذلك بإستخدام الدالة GetPixel لتحصل على لون البكسل المطلوب ثم تستخدم الداله SetPixel لتغير اللون باللون المطلوب

بفرض ان إحداثيات مركز الدائره هما X1,Y1 ونصف القطر هو R فيكون الكود بالصوره الاتيه Private Sub Picture1_MouseMove(Button As Integer, Shift As _ Integer, X As Single, Y As Single) If X < X1 + R And X > X1 - R And Y > Y1 - R And Y < Y1 + R Then MousePointer = 99…

شرح ممتاز بارك الله فيك ولكن أنا نفسى فى مثال يتحدث المجموعات ( الفئات ) أى Sets من حيث الاتحاد والتقاطع والفرق والاكمال

أخى عبد الرحمن دخلت المنتدى بإسم ورحب بى ثم دخلت إلى لوحة التحكم فرفض فقمت لادخول عن طريق الاسم mohammed وكلمة السر 2 فتمكنت من الدخول على لوحة التحكم ثم بعد ذلك ذهبت إلى الصفحه الرئيسيه فوجدت المنتدى يرحب بى على أنى محمدين فمن أين حدثت هذه المشكله وما حلها ؟

الاخ الدولار مامعنى كلمة Up أخى سوبر ما أقصده ان الاحداثى X والاحداثى Y نحصل عليهما حتى ولو لم يكن هناك صوره فى خانة الصوره فعندما تضع صوره فى خانة الصوره فإن الفيجول بيسك لايعلم عنها شيئ سوى مسارها ولكن عندما تضغط بالماوس على الصوره فأنت تضغط فى خانه الصوره و…

الاحداثيات تكون مأخوذه بالنسبه لخانة الصوره وليس للصوره نفسها

فى حدث Mouse_Down ستجد الاحداثى X وهو الافقى والاحداثى Y الراسى وهذه الاحداثيات مأخوذه بالنسبه للنقطه العليا ناحية اليسار لخانة الصوره وليس للفورم

'**************************** ' هذا الروتين سيمكننا من إضافة سجل جديد 'لقاعدة البيانات بعد أن نمرر له إسم القاعده ' ومسارها وإسم الجدول الذى سنضيف السجل إليه Sub AddNew(DbName As String, strKind As String) Dim dbs As Database Dim Rs As Recordset On Error Resum…

الدرس الاول الدرس الثانى درسنا اليوم سيكون طويل وبه بعض المفاهيم المهمه فحاول ان تعد لنفسك كوب من الشاى أو قدح من القهوه وتفصل الاتصال بالشبكه لان الموضوع قد يطول أولا انا إستخدمت بعض الادوات الخارجيه لتسهيل العمل مثل Active Skin4 يوجد لها رابط بالموقع إن لم ت…

لا يوجد خطأ فى الكود وإنما الخطأ فى موضعه أضف Module جديد وضع الكود الاتى هو نفس الكود الذى كتبته انت ولكن مع تعديل بعض الكلمات Dim Wnd As Long Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, _ ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal l…