السلام عليكم كيف الحال ياشباب هذي اول مشاركة لي بهذا المنتدى
الصراحة المنتدى هذا من افضل المنتديات واشئكر القائمين على هذا المنتدى
عندي مشكلة في text
اللي ابغاه من البرنامج لما اكتب فاي تكست يحطلي في التكست لاخير واحد واذا كتبت في اي تكست يزود واحد واذا مسحت اللي مكتوب
ينقص واحد من المجموع
وارجو من الاخوان يشوفولي المشكلة
وشكرا..
والبرنامج في المرفقات
انا مبيتدئ بالفجول بيسك ساعدونا
يااخوان تكفون ساعدوني في المشكلة هذي
أخي الكريم أين المشكله
البرنامج يعمل كما طلبت عند الكتابه في أي تكست يزيد واحد وعند حذف المحتزيات ينقص واحد
أرجو توضيح المشكله اكثر
منتديات كوكب الكمبيوتر
لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية
مشكووور اخوي على الرد
انت اكتب في التكست الاخير بس راح تشوفه يزود 5 في المجموع او اكتب في اي تكست
تم تعديل هذه المشاركة بواسطة DSA في 19 يوليو 2005 في 15:20
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subمشكوووور اخوي بلال ;) ;)
الله يوفقك وين ماتجهت ويبارك فيك إن شاء الله
بس مكن طلب شرح بسيط فقط اذا امكن.
اقتباسبس مكن طلب شرح بسيط فقط اذا امكن
بسيطة
اولا قمت بإنشاء ControlArray
يعني إنت كنت واضع مربعات النصوص بالأسماء التالية
Text1 text2 text3 text4 text5 text6
أصبحت
Text(0) text(1) text(2)
وهكذا
ولكن عند كتابة أي شي في أحد مربعات هذه النصوص يقع حدث واحد وهو
Private Sub Text_Change(Index As Integer) End Sub
ولكن المتغير Index يتغير من مربع لأخر عموما هذا لن يفيدنا الأن
الكود المكتوب أولا يجعل المجموع صفر ثم ينفذ حلقة تكرارية للمتغير i
يأخذ القيم من 1 إلى 5
أولا يتحقق من المربع
text(1)
إذا كان فارغا أم لا إذا لم يكن فارغا يضيف 1 إلى المجموع
ويكرر هذا مع مربعات النصوص الأخري طبعا حسب المتغير i
يعني
text1(i)
أي إستفسار أنا حاضر
سلااااااااام
تم تعديل هذه المشاركة بواسطة بلال حمدي في 21 يوليو 2005 في 06:22
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subهذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…