GHOST2010

بعد التحية هذا برنامج صممته فى بداية حياتى البرمجية وهو يقوم بوضع ايكونة وصورة خلفية لاى بارتيشن ارجو ان يعجبكم :rolleyes: FancyPartition.rar

بص ياعم Rocket البرنامج بتاعك غير بتاعى خالص ويمكنك ان تجرب البرنامج وانا لم اقم بوضع السورس كود لانى انتظر ممن حملوا البرنامج ان يخبرونى باى تعديلات ممكن اضيفها واضع البرنامج بالسورس كود كاملا لكن انا حاسس فى طريقتك انك زعلت وانا مقدرش ازعل حد منى وادى السورس…

السلام عليكم عندى سؤالين اريد الاجابة عليهما السؤال الاول مالمقصود بخاصية TAG؟ السؤال الثانى عندما اضع ايكونة بجوار الساعة كيف اظهر الـToolTipText بدون الوقوف عليها بالماوس؟ ارجو ممن يعرف الاجابة ان يرد بسرعة :rolleyes:

ماشى ياعم حازم انا اقدر اتاخر عنك ستجده على الايميل بتاعك :rolleyes:

الله يخليك ياحازم الاداة يمكنك ادراجها من Project>>Components>>Microsoft Masked Edit Control 6.0 لو عرفت اى حاجة عنها ياريت تبلغنى :rolleyes:

:wacko: :wacko: الله يعوض علينا :wacko: :wacko:

بعد التحية بصراحة لقد جربت فتح عدة برامج من داخل برنامجك حتى ارى المشكلة لكن البرامج كلها اشتغلت و لم اعثر عليها وعلى كل حال فان الامر Shell يقوم بفتح اى برنامج فقط حدد له المسار وطريقة الفتح وجرب ورد عليا :rolleyes:

جزاك الله كل خير اخى Organic

شكرا لك اخ احمد وستجد السورس كود على الايميل الخاص بك B)

:( :( اين روح التعاون :( :(

انت رائع :rolleyes:

بالنسبة للجزء الاول الخاص بالكنترول بانل فحمل هذا المشروع وستجد فى الكلاس موديول وظيفة اسمها OpenControlPanelItem جربها وان شاء الله ستفى بالغرض اما الجزء الثانى فهو غير واضح بالنسبة لى:rolleyes: Events.rar

ممكن توضح شوية

السلام عليكم قمت بعمل برنامج متواضع لتشفير الملفات حيث لايمكن للمستخدم التعديل فيها او فتحها او نقلها او حتى نسخها وهو شبيه ببرنامج IProtect ولكن ليس بنفس الكفاءة ارجو ممن يحمل البرنامج ان يخبرنى برايه واذا كان لديه اضافات جديدة للبرنامج يخبرنى بها حتى اضيفها …

اذا اردت معرفة كلمة السر فيمكنك ذلك اضف زر امر وتكست بوكس وسمى التكست بوكس txtPwd واكتب الكود الاتى فى زر الامر txtPwd.text = GetSetting("Project1", "Password", "PWD", "") ستجد فى التكست بوكس كلمة السر التى وضعتها :rolleyes:

يمكنك استخدام هذه الطريقة file="c:\save.txt" Free=freefile open file for input as #Free input #Free,file label1.caption=file close #Free file="c:\save.txt" open file for input as #Free input #free,File input #free,File label2.caption=File Close #Free او هناك ط…

بعد التحية لااظن انه يمكن ذلك وان كان احد يعرف طريقة فلا يبخل علينا بها :rolleyes:

شكرا للايضاح HNHN,SHEARER,RINGOJET لكن لى سؤال للاخ RINGOJET لماذا لايعمل معك الكود RichTextBox1.SetFocus SendKeys "^{home}" انه يعمل معى جيدا وكذلك الكود الذى اشار اليه كل من HNHN,SHEARER ارجو تجربة الكود ملاة اخرى واعلامى بالنتيجة :rolleyes: :rolleyes:

شكرا للجميع :rolleyes:

ممكن توضح سؤالك اكثر حتى نستطيع الفهم اذا كنت تريد ان تقرا الملف كاملا فيمكنك ذلك باستخدام الحلقة Do_Loop private sub Form_Load() File="c:\save.txt" open file for input as #1 do while not eof(1) doevents input #1,file label1.caption=label1.caption &chr(10) &fi…