GHOST2010

الله ينور بس المرة الجاية عايزين حاجة اسهل زى RED ALERT-COMMANDOS-MEDAL OF HONOR-NEED FOR SPEED واشياء من هذا القبيل :lol: :lol:

لاحول ولاقوة الا بالله ده جزاء اللى يمشى ورا مايكروسوفت :lol:

ياجماعة حد يرد عليا انا كده عامل زى الاطرش فى الزفة :(

اولا الف الف مبروك وعقبال مناقشة الدكتوراه ثانيا المفروض ان الذى يعتذر هو انا لما سببته لكى من مشاكل فأنا سامحتك منذ.......فأرجو ان تسامحينى انتى ايضاً وانا اعذرك فلو كنت مكانك لفعلت نفس الشئ( لكن ليس بنفس اللهجة). اتمنى ان تسامحينى وان شاء الله سيكون لنا تعاو…

ابقى قابلنى لو قدرت تحذفه :lol: :lol: هل وضحت الطريقة؟ :rolleyes:

الكتاب يتحدث عن مشروع يسمى VBMobile Project لكن نسخة الفيجوال الموجودة عندى لايوجد بها هذا المشروع فهل هو موجود عند احد منكم؟! :unsure: اذا كانت الاجابة نعم فارجو اعطائى وصلة لتحميل نسخة الفيجوال هذه.

شكراً جزيلاً :rolleyes:

اخى هذه ليست المرة الاولى التى استعمل فيها هذا الكود فقد استخدمته كثيرا ويعمل بصورة ممتازة فقط اضف اداة RichTextBox وغير اسمها الى RichText وان لم تعمل فجرب هذا الكود Private Sub Form_Load() Dim F As String F="C:\Test.txt" Open F For Input As #1 RichText.Text=…

اعدك ان الفولدر لن تستطيع حذفه الا من داخل البرنامج حتى لو حاولت من الدوس فلن تستطيع لانى جربت فكرة الحذف وفشلت بنسبة 1000000% هناك طريقتان للحذف الاولى من داخل البرنامج والثانية من داخل ويندوز XP لانه للاسف لايعترف بهذه الطريقة وان شاء الله سيكون البرنامج مفي…

انا من النوع الذى لايعرف اليأس والحمد لله :lol:

شكرا على البرنامج وانا فكرت فى فكرة رائعة تشفر الفولدر بشكل رائع بحيث يصعب فتحه او حذفه او نقله او نسخه كما فى برنامج Lock Files لكنها للاسف لاتعمل الا على ويندوز 98 وان شاء الله البرنامج سيتم وضعه على المنتدى فى اسرع وقت.

اتعب واسال وستجد من يجيبك.

الخلاف فى الرأى لايفسد للود قضية والموضوع فعلا يستحق التفكير.

شكراً على الكتاب :rolleyes:

ارجو توضيحها قليلا.

الوصة جيدة لكنها عن جملة DO فقط.

على مااعرف اذا كنت تريد عمل اوتورن فقم بعمل ملف اسمه Autorun.inf ثم اكتب فيه السطرين: [autorun] Open=C:\Windows\Calc.exe هذا كمثال فقم بتغيير برنامج الالة الحاسبة الى البرنامج المطلوب وان شاء الله سيعمل :rolleyes:

لى الشرف ان اضيفك عندى لكن هل عملت الاكواد معك؟:rolleyes:

توقيع الاخ PROEGY كله فوايد :lol:

اولا كود تحميل الملف Private Sub Form_Load() RichText.LoadFile "c:\test.txt" End Sub ثانيا كود البحث والاستبدال Private Sub Command1_Click() Dim i As String, ii As String i = InputBox("ادخل الكلمة التى تبحث عنها", "بحث", i) If Len(i) Then ii = InputBox("ادخل ا…