السلام عليكم
لدي سؤال وأرجو أن لا تخيبو ظني وتردوا علي في أقرب فرصة لحاجتي الشديدة للجواب
كيف استطيع حذف كائن مثلا صورة أثناء تنفيذ البرنامج بحيث يختفي كليا عند تحميل البرنامج مرة اخرى ؟؟؟
جزاكم الله خير
تزود للذي لابــــــــــد منه .... فإن الموت ميقات العبـــاد
وتب مما جنيت وأنت حي ... . وكن متنبها قبل الرقــــــاد
ستندم إن رحلت بغير زاد ... . وتشقى إذ يناديك المنادي
أترضى أن تكون رفيق قوم .... لهم زاد وأنـــت بغير زاد ؟!
أخي السؤال غير واضح
أخي العزيز ،،
عمل البرنامج هو عرض مجموعة من الصور وامكانية اضافة مجموعة من الصور للبرنامج وحذف صور أيضا ..
ولكنني لا أعرف كيفية الحذف delete ؟؟ حيث أنني استخدمت hide بمجرد النقر على امر الحذف وبالطبع تظهر الصورة مرة
اخرى عند تحميل - تنفيذ البرنامج !!
سؤالي كيف احذفها بلا رجعة -- نهائيا
ارجو الرد
تزود للذي لابــــــــــد منه .... فإن الموت ميقات العبـــاد
وتب مما جنيت وأنت حي ... . وكن متنبها قبل الرقــــــاد
ستندم إن رحلت بغير زاد ... . وتشقى إذ يناديك المنادي
أترضى أن تكون رفيق قوم .... لهم زاد وأنـــت بغير زاد ؟!
لا يزال السؤال غير واضح ..
ولكن الذي فهمته هو أنك تريد عرض هذه الصور في المرة الأولى لتشغيل البرنامج .. إذا كان كذلك ..
قم بإضافة متغير في الرجيستري تدل على أن البرنامج قد أشتغل لأول مرة .. وضع جملة شرطية في البرنامج بحيث يعمل للأداة ( UNLOADE ) عند التشغيل ..
لم أفهم قصدك ،،
أعتقد ان السؤال واضح !! عند تنفيذ البرنامج يكون هناك مجموعة من الصور 1و2و3
عند النقر على الصورة ثم أمر حذف تنحذف الصورة نهائيا بحيث انه اذا خرجت من البرنامج وفتحته مرة اخرى تظهر لي الصور 1و2 فقط بدون 3 لانها انحذفت !!
أرجو أن يكون واضح الان
تزود للذي لابــــــــــد منه .... فإن الموت ميقات العبـــاد
وتب مما جنيت وأنت حي ... . وكن متنبها قبل الرقــــــاد
ستندم إن رحلت بغير زاد ... . وتشقى إذ يناديك المنادي
أترضى أن تكون رفيق قوم .... لهم زاد وأنـــت بغير زاد ؟!
وجدت كود في المنتدى خاص بحذف الملفات حاولت تطبيقة على الصورة بحيث اذا حذفت الصورة من مكانها الأصلي لن تظهر في عرض البرنامج ولكنه أعطاني خطأ عند DeleteFile
والكود هو
قم بوضع هذا الكود في قسم جنرال
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
ومن ثم حدد سار الملف مثال
Private Sub Command1_Click()
dim x
x = DeleteFile("C:\WINDOWS\system\LZEXPAND.DLL")
فهل من مساعد !!
تزود للذي لابــــــــــد منه .... فإن الموت ميقات العبـــاد
وتب مما جنيت وأنت حي ... . وكن متنبها قبل الرقــــــاد
ستندم إن رحلت بغير زاد ... . وتشقى إذ يناديك المنادي
أترضى أن تكون رفيق قوم .... لهم زاد وأنـــت بغير زاد ؟!
هل الصورة التي تريد حذفها عبارة عن كائن .؟ أو ملف .؟
على العموم أنا أرفقت لك مشروع عملته على السريع يمكن يفيدك .. هذا إذا كان الغرض هو حذف كائن .
مشكور أخ shoqi سأطلع على الملف وأخبرك !!
تزود للذي لابــــــــــد منه .... فإن الموت ميقات العبـــاد
وتب مما جنيت وأنت حي ... . وكن متنبها قبل الرقــــــاد
ستندم إن رحلت بغير زاد ... . وتشقى إذ يناديك المنادي
أترضى أن تكون رفيق قوم .... لهم زاد وأنـــت بغير زاد ؟!
شكرا جزيلا أخ shoqi
جزاك الله خير ورزقك من حيث لا تحتسب
هذا ما كنت أريده بالضبط .
ولكنني لم افهم getsetting و savesetting ؟؟
تزود للذي لابــــــــــد منه .... فإن الموت ميقات العبـــاد
وتب مما جنيت وأنت حي ... . وكن متنبها قبل الرقــــــاد
ستندم إن رحلت بغير زاد ... . وتشقى إذ يناديك المنادي
أترضى أن تكون رفيق قوم .... لهم زاد وأنـــت بغير زاد ؟!
الدالتان لحفظ واسترجاع بعض المتغيرات من وإلى الرجستري .
صحيح لقد بحثت عنهما
جزاك الله خير shoqi
تزود للذي لابــــــــــد منه .... فإن الموت ميقات العبـــاد
وتب مما جنيت وأنت حي ... . وكن متنبها قبل الرقــــــاد
ستندم إن رحلت بغير زاد ... . وتشقى إذ يناديك المنادي
أترضى أن تكون رفيق قوم .... لهم زاد وأنـــت بغير زاد ؟!
هذا الموضوع مغلق.