ارشيف : مشاريع تعلم البرمجة بالفيجوال بيسك

[Aboud Aboud]

نحو مستقبل برمجي أفضل للعرب المحبين لتعلم البرمجة
ومعرفتني بأن أفضل طريقة لتعلّم البرمجة هي تطبيق أمثلة
فقررت ان افتح هذا الموضوع وهو عبارة عن سلسلة دروس
لتعلم كيفية صنع بعض البرامج في الفيجوال بيسك

ولكن ان كانت هذه اول مرة تفتح بها برنامج الفيجوال بيسك انصحك بزيارة هذا الموضوع
الفيجوال بيسك ( أهم الخصائص و الأحداث و الأدوات ) (http://www.bramjnet.com/vb3/showthread.php?t=483042)

و ان كانت هذه المرة هي المرة الثانية التي تفتح بها برنامج الفيجوال بيسك فاتبع معنا الأمثلة هذه

اولا : الآلة الحاسبة (http://www.bramjnet.com/vb3/showthread.php?p=5084406)


ثانيا : قارئ Mp3 (http://www.bramjnet.com/vb3/showthread.php?p=5084389)


ثالثا : المفكرة (http://www.bramjnet.com/vb3/showthread.php?p=5084379)


الدرس الرابع : حفظ المشروع وتحويله الى Exe (http://www.bramjnet.com/vb3/showthread.php?t=505828)

الدرس الخامس : كيفية صناعة قائمة للبرنامج (http://www.bramjnet.com/vb3/showthread.php?p=5241929)

الدرس السادس : كيفية عمل مؤقت (http://www.bramjnet.com/vb3/showthread.php?p=5520679)

وهذا الملف يحوي على المشاريع كلها (http://www.ziddu.com/download/1823785/F.rar.html)

________________

الرجاء الرد هنا وعدم الرد داخل المواضيع

[shekoforever]

شكراً لك أخى عبود على الموضوع و حرصك على تعلم و مساعدة الآخرين
بارك الله فيك و جزاك كل الخير

[semba_2010]

شكرا لك اخي انا مبتدىء فى عالم البرمجة هنا
شكرا لك على اهتمامك

[semba_2010]

بس على فكرة المدونة بتاعتك بتاعت الموقع ده أحصل على أكونت من رابيد شير free

الموقع اللى فيها شركة نصابة خلي بالك
وشكرا

[Aboud Aboud]

شكراً لك أخى عبود على الموضوع و حرصك على تعلم و مساعدة الآخرين
بارك الله فيك و جزاك كل الخير

شكرا عالمرور اخي shekoforever

[Aboud Aboud]

شكرا لك اخي انا مبتدىء فى عالم البرمجة هنا
شكرا لك على اهتمامك

شكرا عالمرور

[Aboud Aboud]

بس على فكرة المدونة بتاعتك بتاعت الموقع ده أحصل على أكونت من رابيد شير free

الموقع اللى فيها شركة نصابة خلي بالك
وشكرا

انا كنت حاذفها بس صار شوية مشاكل ....... على كل حال اذا في عندك شركة مش نصابة بعتلتلي اسمها والطريقة عالخاص

[آسيهي]

شكرا لك اخي عيود على المجهود الرائع بس سؤال بسيط ليش الرد هنا؟؟؟

[Aboud Aboud]

شكرا لك اخي عيود على المجهود الرائع بس سؤال بسيط ليش الرد هنا؟؟؟

لكي يبقى الارشيف في الصفحة الاولى ليستفيدوا الاخوى

[The KinGSofT]

مشكوووووووووووووووور
مشكوووووووووووووووووووووور
©§¤°يسلموو°¤§©¤ــ¤©§¤°حلوو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــ¤©§¤°حلوو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــ¤©§¤°حلووو و°¤§ ©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــ¤© §¤°حلوووو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــــ ــــــــ ¤©§¤°حلوووو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــــ ـــــــــــــــــــــ¤©§¤°حلوووو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــــ ـــــــــــــــــــــــــــــــــ¤©§¤°حلوووو° ¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــــ ــــــــــــــــــــــــــــــــــــــــــ¤©§ ¤°حلو ووو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــــ ــــــــــــــــــــــــــــــــــــــــــ¤©§ ¤°حلو ووو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــــ ــــــــــــــــــــــــــــــــــــــــــ¤©§ ¤°حلو ووو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــــ ــــــــــــــــــــــــــــــــــــــــــ¤©§ ¤°حلو ووو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــــ ــــــــــــــــــــــــــــــــــــــــــ¤©§ ¤°حلو ووو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــــ ــــــــــــــــــــــــــــــــــــــــــ¤©§ ¤°حلو ووو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــــ ــــــــــــــــــــــــــــــــــــــــــ¤©§ ¤°حلو ووو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــــ ـــــــــــــــــــــــــــــــــ¤©§¤°حلوووو° ¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــــ ـــــــــــــــــــــ¤©§¤°حلوووو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــــ ــــــــ ¤©§¤°حلوووو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــــــــــــ ــ¤© §¤°حلوووو°¤§©
©§¤°يسلموو°¤§©¤ـــــــــــــــــــــ¤©§¤°حلووو و°¤§ ©
©§¤°يسلموو°¤§©¤ـــــــــــــ¤©§¤°حلوو°¤§©
©§¤°يسلموو°¤§©¤ــ¤©§¤°حلوو°¤§©
مشكوووووووووووووووووووووور
مشكوووووووووووووووور

[Aboud Aboud]

شكرا عالرد الجميل اخي The KinGSofT

[Aboud Aboud]

U p

[Aboud Aboud]

تم اضافة روابط للدروس على شكل Pdf

[Aboud Aboud]

U p

[Aboud Aboud]

تم اضافة درس جديد

[zain50]

والله يا أخى عبود انا مش فاهم ازاى غفلت

عن موضوعاتك !!! انا كنت بمشى المنتدى موضوع موضوع وصفحة صفحة

بس من حظنا السىء عدم رؤيتى لموضوعاتك المميزة جدا

ان شاء الله فى أقرب فرصة هحاول أجمع الموضوعات مرة أخرى

ولكننى للأسف مشغول هذه الفترة شوية

وتسلم يا غالى لكل ما قدمته وتقدمه لنفع المسلمين

[naim kawar]

مشكور على الافاده اخوي

[Aboud Aboud]

والله يا أخى عبود انا مش فاهم ازاى غفلت

عن موضوعاتك !!! انا كنت بمشى المنتدى موضوع موضوع وصفحة صفحة

بس من حظنا السىء عدم رؤيتى لموضوعاتك المميزة جدا

ان شاء الله فى أقرب فرصة هحاول أجمع الموضوعات مرة أخرى

ولكننى للأسف مشغول هذه الفترة شوية

وتسلم يا غالى لكل ما قدمته وتقدمه لنفع المسلمين

شكر لك خي zain50
بس الموضيع لسى لم يخلصو

[Aboud Aboud]

مشكور على الافاده اخوي

شكرا عالمرور

[Aboud Aboud]

تم اضافة درس جديد ......

[esey]

ما شاء الله ما شاء الله
الصراحه تعلمت هنا فى المنتدى أشياء جميله
مش المهم بالجهاز أو البرمجه
لكن تعلمت إنسانيات كتير جدا
تسلم أخ عبود وربنا يباركـ فيكـ

[Aboud Aboud]

ما شاء الله ما شاء الله
الصراحه تعلمت هنا فى المنتدى أشياء جميله
مش المهم بالجهاز أو البرمجه
لكن تعلمت إنسانيات كتير جدا
تسلم أخ عبود وربنا يباركـ فيكـ

شكرا عالمرور والرد

[Aboud Aboud]

تم اضافة درس جديد ......

[GT123]

الله يعطيك العافيه اخوي عبود

[Aboud Aboud]

الله يعطيك العافيه اخوي عبود


شكرا عالمرور

[اسلام حمودة]

شكرا يا غالي على الشروحات الجميلة دي وتسلم ايدك

[Aboud Aboud]

شكرا يا غالي على الشروحات الجميلة دي وتسلم ايدك

شكرا عالمرور والرد

[hamoudi1010]

Mercie Bein

[sadness mirror]

ممكن البرنامج نفسة لانة مش لقياة بس يكون رابط التحميل سريع وياريت ما يكونش على الرابيد شير حتى يمكننى التطبيق عمليا لو سمحت

[Aboud Aboud]

Mercie Bein

شكرا عالمرور والرد

[Aboud Aboud]

ممكن البرنامج نفسة لانة مش لقياة بس يكون رابط التحميل سريع وياريت ما يكونش على الرابيد شير حتى يمكننى التطبيق عمليا لو سمحت

؟؟؟؟؟؟ اي برنامج ؟؟؟؟؟؟؟

[فؤاد مرشد]

مشكوووووووووووووووووورررررررررر
وبارك الله فيك على هذا الموضوع المفيد

[فؤاد مرشد]

مشكووووووووررررررررررر

[Aboud Aboud]

شكرا لك اخي فؤاد مرشد

[ahmed abdalla]

thaaaaaaaaaaaaaaanks my brother

[Aboud Aboud]

thaaaaaaaaaaaaaaanks my brother

شكرا لك اخي عالمرور

[sadness mirror]

الف شكر اخوى بس انا عملت المشروع حق الاله الحاسبة بس للاسف فية شىء مش مظبوط
اولا عندما اجرى تنفيذة وعند كتابة الارقام فى خانة text1
وtext2 لا يكتب اى رقم نهائيا بهم وطبعا عند اجراء اى عملية حسابية تكون النتيجة =صفر
ثانيا :جيت احمل المشروع حتى اتاكد مما فعلتة بالخطوات وان كانت توجد اى اخطاء وجدت هذة الرسالة
The file link that you requested is not valid. Please contact link publisher or
use our search engine to find a file or folder:

وهذا هو الرابط:
http://www.4shared.com/file/33137418/ef7f1f68/__online.html

[Aboud Aboud]

نعم لقد تم حذف الملفات كلها
ان شاء الله ارفعها مرة اخرى قريبا

[mostafa91]

مشكورررررررررررررررررررررررررر
جزاك الله خيرااااااااااااااااااااااااااااااااااااااااااااااا اااا

[Aboud Aboud]

مشكورررررررررررررررررررررررررر
جزاك الله خيراااااااااااااااااااااااااااااااااااااااااا ااااا اااا

شكرا لك اخي عالمرور

[Aboud Aboud]

تم اضافة ملف يحوي على المشاريع كلها

[sadness mirror]

اخى Aboud Aboud
جزاك الله خيرا على الدروس
بس انا كنت طلبت برنامج الفيجوال بيسك نفسة المصدر بتاعة حتى استطيع تسطيبة وتشغيلة وياريت يكون المصدر كامل باليوزر نييم والباس وورد
وانا عندى مشكلة فى الالة الحاسبة انا كنت كتبتهالك وهل ممكن نتقل عليك شوية وتكتب امثلة انت جربت بيها الالة
وهل فية اله متطورة تقوم بعمليات حسابية اخرى مثل الجذر التربيعى والتكعيبى والاس لاى رقم والباى=22/7
او اللوغاريتمات واللين او الضرب *10 اس 6 او 10 اس -3
الاس بالسالب
ارجو الاهتمام

[Aboud Aboud]

اخى Aboud Aboud
جزاك الله خيرا على الدروس
شكرا لك اخي
بس انا كنت طلبت برنامج الفيجوال بيسك نفسة المصدر بتاعة حتى استطيع تسطيبة وتشغيلة وياريت يكون المصدر كامل باليوزر نييم والباس وورد
لم افهم ؟
هل تريد برنامج الفيجوال بيسك ؟
موجود باكثر من رابط داخل منتدى البرمجة
وانا عندى مشكلة فى الالة الحاسبة انا كنت كتبتهالك وهل ممكن نتقل عليك شوية وتكتب امثلة انت جربت بيها الالة
هو المثال موجود بين الامثلة نزله وجربه
وهل فية اله متطورة تقوم بعمليات حسابية اخرى مثل الجذر التربيعى والتكعيبى والاس لاى رقم
طبعا وتسمى بالدوال ورح اذكرلك بعضها باسفل الرد
والباى=22/7
ما قصدك ؟
او اللوغاريتمات واللين او الضرب *10 اس 6 او 10 اس -3
الاس بالسالب
كمان موجود

---------------------------


اللوغاريتمات

MsgBox (Log(20))




اللين

MsgBox (Len("form"))




لضرب العدد ب 10

MsgBox (Text1.Text * 10)




الجذر التربيعى

MsgBox (Sqr(Text1.Text))



واخيرا هذا برنامج يحوي على جميع الدوال البرمجية (http://www.4shared.com/file/41346862/93ff9b9b/Functions.html)

كلمة السر : Aboud-bramjnet

[profational]

يعطك العافية على المجهود المميز

جاري الدراسة والتطبيق

[Aboud Aboud]

يعطك العافية على المجهود المميز

جاري الدراسة والتطبيق

شكرا لك اخي عالمرور

[سهيلة تامر]

شكراً لك أخى عبود على الموضوع و حرصك على تعلم و مساعدة الآخرين
بارك الله فيك و جزاك كل الخير

[Aboud Aboud]

شكراً لك أخى عبود على الموضوع و حرصك على تعلم و مساعدة الآخرين
بارك الله فيك و جزاك كل الخير

شكرا لك اخي عالمرور

[Ahmedfikry11]

مشكووووووووووووور على المجهود

[Aboud Aboud]

مشكووووووووووووور على المجهود

شكرا لك اخي عالمرور

[elatar_thegame]

الف شكر اخى

[malk_mos]

مشكووررررررررررررررررر على هالمشاريع

[Aboud Aboud]

الف شكر اخى

شكرا لك عالمرور

[Aboud Aboud]

مشكووررررررررررررررررر على هالمشاريع

شكرا لك عالمرور

[Aboud Aboud]

تم تجديد روابط الصور

[كريم20055002]

اولا اود ان اشكرك جزيل الشكر لاني مبتدئ في الفيجوال ووجدت في دروسك كل ما احتاجة..

1 _ ولكن انا اعمل ببرنامج فيجوال ستوديو 2005 ولم استطع العثور علي الامر
Make Project.exe

2 _ لقد اعجبني جدا مشروع الالة الحاسبة ولك كيف يمكن تحويلها لتكون
شبيهة للموجودة مع الويندوز .. هل الامر صعب ؟؟
وشكرا جزيلا للمرة الثانية :smailes60:

[كريم20055002]

اه نسيت شيئا اخر هل الاكواد هي قواعد يتم حفظها
ام ان المستخدم يقوم هو بتكوين الكود (( مرحلة متقدمة ))
ارجوا ان تكون فهمت مبتغاي ..

[Aboud Aboud]

اولا اود ان اشكرك جزيل الشكر لاني مبتدئ في الفيجوال ووجدت في دروسك كل ما احتاجة..


شكرا عالمرور


1 _ ولكن انا اعمل ببرنامج فيجوال ستوديو 2005 ولم استطع العثور علي الامر
Make Project.exe


موجود اخي ان كانت نسخة كاملة

2 _ لقد اعجبني جدا مشروع الالة الحاسبة ولك كيف يمكن تحويلها لتكون
شبيهة للموجودة مع الويندوز .. هل الامر صعب ؟؟
وشكرا جزيلا للمرة الثانية

هل تقصد الشكل ؟
ممكن عن طريق ادوات خاصة

[Aboud Aboud]

اه نسيت شيئا اخر هل الاكواد هي قواعد يتم حفظها
ام ان المستخدم يقوم هو بتكوين الكود (( مرحلة متقدمة ))
ارجوا ان تكون فهمت مبتغاي ..

هناك دوال يجب ان تحفظ
لكن الباقي على المبرمج

[كريم20055002]

شكرا جزيلا علي المتابعة

بالنسبة للالة الحاسبة

هذا هو الشكل المطلوب

http://www4.0zz0.com/2008/03/31/20/233319804.jpg

وكما تلاحظ توجد ادوات كثيرة غير الجمع _ الطرح _ الضرب _ القسمة
ويوجد تكست واحد فقط لكتابة الارقام .

[كريم20055002]

وهذا هو شكل قائمة FILE

http://www3.0zz0.com/2008/03/31/20/631776760.jpg

ولم اعثر علي Make Project.exe

والنسخة عندي مساحتها 430 ميجا بصيغة ايزو ( اعتقد انها كاملة )

وايضا لا يوجد Commandbutton ولكن يوجد button فقط .. هل الاثنان متشابهان ؟؟

اعذرني اخي علي اسئلتي الكثيرة ولكنني مطالب باخذ فكرة كافية عن هذا البرنامج :smailes109:

[Aboud Aboud]

ان هذه الالة الحاسبة مطورة اكثر
وانا صنعت هذه الالة الحاسبة فقط للمبتدثين

[Aboud Aboud]

وبالنسبة للسؤال الثاني ؟؟؟؟؟؟؟؟
الرجاء لمن يعمل على الاكسبرس ادشن يرد على طلبه
لانني استخدم الانتربرايس ادشن وهي تختلف

[nadia01]

--------------------------------------------------------------------------------


سند الارسال رقم................


--------------------------------------------------------------------------------


الورشة..................



--------------------------------------------------------------------------------


مسؤؤل الورشة...............



--------------------------------------------------------------------------------


التاريخ رمز الالية التعييين ساعات العمل ثمن الساعة الواحدة تكلفة اليوم


--------------------------------------------------------------------------------


01/02/08 abc شاحنة 07 22 154


--------------------------------------------------------------------------------
وهكذا اقصد ان جدولين اواكثر مرتبطين كيف انشا ذالك

--------------------------------------------------------------------------------

[Aboud Aboud]

???????????????????

[milad_korkis]

Mashkoooooooooooooooor

[Aboud Aboud]

شكرا لك اخي عالرد

[aziz_13x13]

thank yuoooooooooooooooooooooooooooooo

[Aboud Aboud]

thank yuoooooooooooooooooooooooooooooo
شكرا لك اخي عالرد

[milad_korkis]

مشكور على المواضيع المتميزة

[محمد الحاطي]

هل استطيع عمل الة حاسبة علمية

[The only]

شكرا لك يا مميز

هل استطيع عمل الة حاسبة علمية
طبعا لكنك ستحتاج الى اكواد اكثر ومعقدة ....... هذا على حد علمي

[Aboud Aboud]

شكرا لكم على المرور

[jamal12345]

ماشاء الله عليك عزيزي
الله إبارك فيك ،،، واصل على هادا النحو
بالتوفيق....

[z.boto]

مشكووووووووووووور

[z.boto]

شكرررررررررررا

[Aboud Aboud]

شكرا عالمرور

[milad_korkis]

شكرا" لك أخي على الموضوع المميز

[سامى عبدالمنعم]

جزاك الله خيرا اخى الحبيب ولو انى زعلان منك عشان ما ردتشى عليه وبعتلى كود الاداه

بس ليه بعض الاستفسارات بخصوص برنامج المفكره

ازاى ادعم كتابة اكثر من سطر داخل التكست عن طريق الضغط على انتر

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

ازاى نفعل زر الكبير والتصغير

ازاى اغير حجم ونوع الخط الافتراضى للكتابه داخل التكست

ليه زر النسخ لا ينسخ الى الذكراه ؟
مش كنت بعتلى كود الاداه اسهل ههههههه

[م.محمد مختار]

السلام عليكم ..
شكرا اخي على معلوماتك القيمة .وارجو مساعدتي :
يوجد لدي مجموعة مواد كيمائية لها بيانات عن كيفية التعامل الامن معها ( البيانات كثيرة تتمثل في الثبات الكيمائي واضرارها عن البيئة والتعامل مع المادة في الحرائق والانفجار والاسعافات الاولية ... )(هذه المعلومات مكتوبة في word) واريد كود يقوم :
بحيث يقوم المستخدم للبرنامج باختيار المادة من اداة (combobox ) او حتي عن طريق مسج يطلب فيه ادخال اسم المادة او رقمها . المهم بعد اختيار المادة المطلوبة تظهر المعلومات المتوفرة عن هذه المادة للمستخدم .
ارجو الرد باسرع وقت ممكن

[milad_korkis]

Thank you abouuuuuuuuud

[Aboud Aboud]

شكرا" لك أخي على الموضوع المميز
Thank you abouuuuuuuuud

شكرا عالمرور

[Aboud Aboud]

السلام عليكم ..
شكرا اخي على معلوماتك القيمة .وارجو مساعدتي :
يوجد لدي مجموعة مواد كيمائية لها بيانات عن كيفية التعامل الامن معها ( البيانات كثيرة تتمثل في الثبات الكيمائي واضرارها عن البيئة والتعامل مع المادة في الحرائق والانفجار والاسعافات الاولية ... )(هذه المعلومات مكتوبة في word) واريد كود يقوم :
بحيث يقوم المستخدم للبرنامج باختيار المادة من اداة (combobox ) او حتي عن طريق مسج يطلب فيه ادخال اسم المادة او رقمها . المهم بعد اختيار المادة المطلوبة تظهر المعلومات المتوفرة عن هذه المادة للمستخدم .
ارجو الرد باسرع وقت ممكن

اولا عليك اضافة اسماء المواد الى combobox
والكود الذي تريده يعتمد على If......Then
مثال :
اذا كانت المادة هي (carbon) والواجب كتابته في التكست عند اختيارها هو (good)
يجب كتابة الكود على هذا الشكل


Private Sub Combo1_Click()
If Combo1.Text = "carbon" Then Text1.Text = "good"
End Sub

[Aboud Aboud]

جزاك الله خيرا اخى الحبيب ولو انى زعلان منك عشان ما ردتشى عليه وبعتلى كود الاداه

بصراحة الكود ضاع اخي للاسف

بس ليه بعض الاستفسارات بخصوص برنامج المفكره

ازاى ادعم كتابة اكثر من سطر داخل التكست عن طريق الضغط على انتر

من خصائص التكست اذهب الى MultiLine واجعلها True

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

لم افهم ؟ هو يبتعد تلقائيا دون تعديل اي خاصة

ازاى نفعل زر الكبير والتصغير

قصدك عند تكبير البرنامج تكبر الادوات التي بداخله ؟
اذا كانت هكذا فهذا هو الكود


Private El As New Elastic

Private Sub Form_Load()
El.Init Me
End Sub

Private Sub Form_Resize()
El.FormResize Me
End Sub


أنشئ وحدة Class جديد وسمه Elastic ثم ضع هذا الكود بداخله


Option Explicit
Private nFormHeight As Integer
Private nFormWidth As Integer
Private nNumOfControls As Integer
Private nTop() As Integer
Private nLeft() As Integer
Private nHeight() As Integer
Private nWidth() As Integer
Private nFontSize() As Integer
Private nRightMargin() As Integer
Private bFirstTime As Boolean

Sub Init(frm As Form, Optional nWindState As Variant)
Dim I As Integer
Dim bWinMax As Boolean

bWinMax = Not IsMissing(nWindState)

nFormHeight = frm.Height
nFormWidth = frm.Width
nNumOfControls = frm.Controls.Count - 1
bFirstTime = True
ReDim nTop(nNumOfControls)
ReDim nLeft(nNumOfControls)
ReDim nHeight(nNumOfControls)
ReDim nWidth(nNumOfControls)
ReDim nFontSize(nNumOfControls)

ReDim nRightMargin(nNumOfControls)
On Error Resume Next
For I = 0 To nNumOfControls
If TypeOf frm.Controls(I) Is Line Then
nTop(I) = frm.Controls(I).Y1
nLeft(I) = frm.Controls(I).X1
nHeight(I) = frm.Controls(I).Y2
nWidth(I) = frm.Controls(I).X2
Else
nTop(I) = frm.Controls(I).Top
nLeft(I) = frm.Controls(I).Left
nHeight(I) = frm.Controls(I).Height
nWidth(I) = frm.Controls(I).Width
nFontSize(I) = frm.FontSize
nRightMargin(I) = frm.Controls(I).RightMargin
End If
Next

If bWinMax Or frm.WindowState = 2 Then ' maxim
frm.Height = Screen.Height
frm.Width = Screen.Width
Else
frm.Height = frm.Height * Screen.Height / 7290
frm.Width = frm.Width * Screen.Width / 9690
End If
bFirstTime = True
End Sub

Sub FormResize(frm As Form)
Dim I As Integer
Dim nCaptionSize As Integer
Dim dRatioX As Double
Dim dRatioY As Double
Dim nSaveRedraw As Long

On Error Resume Next
nSaveRedraw = frm.AutoRedraw

frm.AutoRedraw = True

If bFirstTime Then
bFirstTime = False
Exit Sub
End If

If frm.Height < nFormHeight / 2 Then frm.Height = nFormHeight / 2
If frm.Width < nFormWidth / 2 Then frm.Width = nFormWidth / 2
nCaptionSize = 400
dRatioY = 1# * (nFormHeight - nCaptionSize) / (frm.Height - nCaptionSize)
dRatioX = 1# * nFormWidth / frm.Width
On Error Resume Next ' for comboboxes, timeres and other nonsizible controls

For I = 0 To nNumOfControls
If TypeOf frm.Controls(I) Is Line Then
frm.Controls(I).Y1 = Int(nTop(I) / dRatioY)
frm.Controls(I).X1 = Int(nLeft(I) / dRatioX)
frm.Controls(I).Y2 = Int(nHeight(I) / dRatioY)
frm.Controls(I).X2 = Int(nWidth(I) / dRatioX)
Else
frm.Controls(I).Top = Int(nTop(I) / dRatioY)
frm.Controls(I).Left = Int(nLeft(I) / dRatioX)
frm.Controls(I).Height = Int(nHeight(I) / dRatioY)
frm.Controls(I).Width = Int(nWidth(I) / dRatioX)
frm.Controls(I).FontSize = Int(nFontSize(I) / dRatioX) + Int(nFontSize(I) / dRatioX) Mod 2
frm.Controls(I).RightMargin = Int(nRightMargin(I) / dRatioY)
End If
Next
frm.AutoRedraw = nSaveRedraw
End Sub





أنشئ وحدة Class جديد وسمه Elastic ثم ضع هذا الكود بداخله

ان لم تكن تعرف ؟
هذا مثال بسيط (http://www.ziddu.com/download.php?uid=ZK2cmJioabKdmZTzZaqZnJGlaqeZmZyqZ A%3D%3D3)


ازاى اغير حجم ونوع الخط الافتراضى للكتابه داخل التكست

انت ام المستخدم ؟ اذا كنت انت فيمكنك من خلال خصائص التكست بالذهاب الى Font وتعديله كما تريد اما المستخدم فهذه بحاجة الى اكواد

ليه زر النسخ لا ينسخ الى الذكراه ؟

انت بحاجة الى هذا الكود . قم بوضعه داخل الزر

هذا الكود ينسخ المحدد من النص

Clipboard.Clear
Clipboard.SetText Text1.SelText


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

Clipboard.Clear
Clipboard.SetText Text1.Text


مش كنت بعتلى كود الاداه اسهل ههههههه

الرد باللون الاحمر

[سامى عبدالمنعم]

جزاك الله خيرا اخى الحبيب ورفع الله قدرك

ولى سؤال
عايز اعمل شاشه تخرج من الفورم الاول عند الضغط مثلا على اى زر بس تخرج فى شكل منسدل يعنى تكونى مخفيه وبعدين تظهر منسدله من الفورم الاول

1-اتمنى يكون السؤال واضح وفى انتظار مساعدتك بعون الله

2- كيف اضع هذه الرموز داخل الفيجول وجعله يدعم هذه الرموز {{۞}} ۩۞۩

3-كيف يتم التحكم فى مكان الفورم على الشاشه
وجزاك الله عنا خيراً

[Aboud Aboud]

جزاك الله خيرا اخى الحبيب ورفع الله قدرك

ولى سؤال
عايز اعمل شاشه تخرج من الفورم الاول عند الضغط مثلا على اى زر بس تخرج فى شكل منسدل يعنى تكونى مخفيه وبعدين تظهر منسدله من الفورم الاول

form2.show
الا تفي بالغرض

1-اتمنى يكون السؤال واضح وفى انتظار مساعدتك بعون الله

2- كيف اضع هذه الرموز داخل الفيجول وجعله يدعم هذه الرموز {{۞}} ۩۞۩

بصراحة لم اجرب وضع هذه الرموز سابقا لذلك انا لا اعرف

3-كيف يتم التحكم فى مكان الفورم على الشاشه


البعد عن قمة الشاشة
Form1.Top = 2000
البعد عن الجنب الايسر من الشاشة
Form1.Left = 3000
العرض
Form1.Width = 5000
الارتفاع
Form1.Height = 8000


وجزاك الله عنا خيراً


الرد باللون الاحمر

[سامى عبدالمنعم]

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

اريد كود وضع البرنامج بجانب الساعه عند تصغيره مع عمل قائمه تظهر عن الضغط على البرنامج برز الماوس الايمن مثلا خروج واظهار اخفاء

[Aboud Aboud]

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

اريد كود وضع البرنامج بجانب الساعه عند تصغيره مع عمل قائمه تظهر عن الضغط على البرنامج برز الماوس الايمن مثلا خروج واظهار اخفاء


حمل المرفق (http://www.ziddu.com/download.php?uid=ZbGgmJmpaLKglpWtr6yZlJyiYbGWlJup1 )

[Aboud Aboud]

على فكرة انت لم تحمل الملف السابق (http://www.ziddu.com/download.php?uid=ZK2cmJioabKdmZTzZaqZnJGlaqeZmZyqZ A%3D%3D3)

[سامى عبدالمنعم]

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

بس ياريت تشرحلى الكود بتاع وضع البرنامج بجوار الساعه لانى مش عارف اشغله وبيظهر خطأ فى السطر ده Shell_NotifyIcon NIM_ADD, nid

معلش سؤال تانى

انا بعمل الكود ده
Private Sub Image9_Click()
Text1.Text = " :" > ""
Clipboard.Clear
Clipboard.SetText Text1
End Sub

المشكله فى السطر ده Text1.Text = " :" > "" فى علامه " بتتكرر المفروض يكون الكود بالشكل ده Text1.Text = " :" > "

ايه الحل

[كوفند]

مشكوووووووووووووووووووووووووووور

[BABOBA]

الف شكر يا الغالي

[faridns]

thxxxxxxxxxxxxxxxxxxxxxx

[samirb81]

بارك الله فيك

[ريم حسام]

انا فعلا فى غايه السعاد لانى عضو فى هذا المنتدى

[ريم حسام]

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

[Aboud Aboud]

شكرا عالمرور اخواني

[ريم حسام]

السلام عليكم و رحمه الله و بركاته
اخى الكريم هل من الممكن ان تعطينى مزيدا من اسطوانات تعليم visual basic

[ريم حسام]

انا سعيد بيكم جدا

[hamza323]

شكرا لك اخي انا مبتدىء فى عالم البرمجة هنا
شكرا لك على اهتمامك

[Aboud Aboud]

السلام عليكم و رحمه الله و بركاته
اخى الكريم هل من الممكن ان تعطينى مزيدا من اسطوانات تعليم visual basic
ابحث اخي في المنتدى هناك الكثير

[Mayo™]

الف شكر يا معلم على المشاريع جارى تحميله وتحلليل الاكواد

[Aboud Aboud]

شكرا عالمرور

[jaguar1]

روعة شكرا أخي على اهتمامك باخوانك

[Aboud Aboud]

شكرا عالمرور

[lsharkawy]

بالتوفيق أخى الكريم وشكرا كثيرا

[Aboud Aboud]

شكرا عالمرور

[boumarchi]

thank you for this

[المحاسب أحمد]

مشكورررررررررررر

[mo3taz007]

شكرا على الفكرة الجميلة

[Aboud Aboud]

شكرا عالمرور

[zizo65]

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

[Aboud Aboud]

شكرا عالمرور

[ريم حسام]

الف الف شكر ليك يا اجمل منتدى

[Aboud Aboud]

شكرا عالمرور

[amr_adle]

شكرااااااااااااااا

[mohmah2009]

شكرااااااااااااااا

[Aboud Aboud]

شكرا عالمرور