prof_1982

انا في الخدمة و بمواصفات خارقة ايضا جرب ولن تندم . تحياتي لك prof_1982@hotmail.com 97259843004

السلام عليكم انا مستعد لعمل هذا البرنامج بمبلغ مقدور عليه ،، تحياتي لك.

الف الف الف مبروك اخي ابراهيم تستحقها والله . 012

انا علي استعداد لبرمجة هذا البرنامج مقابل 500$ . prof_1982@hotmail.com

عزيزي undo هذا المود يعمل تحت بيئة دوت نيت :)

الاخ waleedhm شكرا علي مشاركتك ولكن هذا الكود يعمل علي فيجوال بيسك دوت نيت وليس الاصدار السادس :) تحياتي

هذا مثال :) OCX.zip

موضوع رائع حقا ،، تشكر عليه

طبعا اخي ، بنفس الطريقة استخدم الـApp.Path اذا كنت تريد حفظ الملف في نفس مسار البرنامج . مثال . Open App.Path & "\Test.TXT" For Append As #1 Print #1,"Prof_1982" Close #1 حيث ان الكود السابق يقوم بانشاء ملف من نوع نص في مسار البرنامج دون تدخل المستخدم ، وسيقوم…

اخي العزيز لعمل مصفوفة من اي اداة قم بوضع القيمة صفر لخاصية الـIndex للاداة . ثم يمكن النسخ عن هذه الاداة كما تريد عن طريق استخدام الامر Load كالتالي . N = Text1.UBound + 1 Load Text1(N) Text1(N).Visible = True وهذا مثال يوضح ذلك . كما يوضح كيفية مسح محتوياتها…

عليك استخدام جملة استعلام الـSelect وهذا الشكل الكامل لها . SQL = "Select * From Books Where BoolName Like '*" & Text1.Text "*'" حيث ان الـBooks هو اسم الجدول و الـ BookName هو الحقل الذي يحوي اسم الكتاب والـLike وهي تعني التشابه اي لو بحثت عن القيمة (جغ) سيقو…

ليست صعبة الي هذه الدرجة :) كا ما هنالك استخدم خاصية حفظ الاعدادت SaveSetting قم بحفظ رقم 1 في اول مرة يتم اعادة التشغيل ، طبعا لازم تنفذ كود الحفظ عن قبل الاعادة :) . في الحدث Load للفورم عند ما يشتغل مرة تانية قم بفحص الرقم المخزن في المرة السابقة عن طريق ال…

المثال يوضح ذلك . كل الموضوع في السطر . MMControl1.HwnDisplay = Picture1.Hwnd تحياتي Rzan.zip

طبعا بكل تأكيد ،، فقط لا تستخدم الـCommon Dialog بل استخدم اداة الـFile من الادوات الرئيسية واعطها المسار المحدد في الحدث Load للفورم التي توجد عليه . وتحديد المسار لها عن طريق الكود التالي . File1.Path = App.Path & "\TestFolder" حيث ان الـ App.Path هي لتحديد …

الف الف مبروك للدكتور محمد

السلام عليكم وهذا هو الكود Private Sub Text1_Change() Text1.Text = UCase(Text1.Text) ' Upper Case 'Text1.Text = LCase(Text1.Text) 'Lower Case Text1.SelStart = Len(Text1.Text) End Sub حيث الـUCase وهي أختصار للـUpper Case وتعني الحروف كبيرة و الـ Lower Case وهي…

منتدي الاسيمبلي لهم خبرة في هذا الشأن . توجه لمنتدي الاسيمبلي

حاضر اخي khabini.com من عنيه التنتين ،، اعطوني فرصة لانهاء الاعمال التي بيدي وسوف ارفق الكود مع الشرح . تحياتي لكم

(الريجرجن) هذه اكلة شعبية في الصين :) لا اقصد الاهانة اخي العزيز فقط هذا من قبيل المزاح يا ريت تتحملني شوي :) . ما هو الـ الريجرجن . هل تقصد دالة RegRgn فهي دالة API . الرجاء التوضيح اكثر ،، وارجو ان لا تزعل فانا امزح في بداية المشاركة .

السلام عليكم اخواني الاعزاء لقد صممت لكم اداة ممتازة عن طريق الاداة Winsock وهي لارسال بريد الكتروني كما يمكن ايضا ارسال مرفقات عن طريقها . كلمة المرور الخاصة بالاداة هي : prof_1982 وهي سهلة الاستخدام جدا ، وايضا لها بروجرس لاظهار عملية تقدم ارسال البريد ،، مع…