تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
(تم الحل) مشكلة مع تغيير نص الأداة
#1
بسم الله الرحمن الرحيم


السلام عليكم ورحمة الله وبركاته

معي مشكلة مع تغيير نص الأداة ، كلما أحاول أن أقوم بتغيير نص الزر قبل إجراء مهمة لا يقوم الفيجوال بتغيرر الزر لا أدري لماذا
مثال
كود :
Public Class Form1
    Dim s(1000000) As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Text = "Please wait"

        For i As Integer = 0 To UBound(s)
            s(i) = i
        Next
        Button1.Text = "Button1"
        MsgBox("DONE")
    End Sub
End Class

بينما إذا قمت بتغييره بدون أكواد بأسفل نص التغغير يتغير النص
الرد }}}}
تم الشكر بواسطة:
#2
أخي الكريم
السبب في عدم ظهور النص هو انشغال البرنامج داخل الحلقة التكرارية ( ما شاء الله مليون Rolleyes )
فالحل هو وضع الجملة التالية إما بعد جملة تغيير نص الأداة مباشرة إذا كنت لا تحتاج إلى تنفيذ أحداث أخرى بعد ذلك إلى نهاية الحلقة
أو داخل الحلقة التكرارية
ولكن سيتأخر البرنامج في هذه الحالة لأنه ومع كل مرة يمر فيها بهذه الجملة سيقوم بفحص ما إذا هناك أحداث جديدة
هذا هو الكود
كود :
Application.DoEvents()
الرد }}}}
تم الشكر بواسطة:
#3
شكرا لك أخي sooriaty03
إقتباس :إما بعد جملة تغيير نص الأداة مباشرة إذا كنت لا تحتاج إلى تنفيذ أحداث أخرى بعد ذلك إلى نهاية الحلقة
ماذا تقصد أخي بهذه الجملة أنا كتبت Application.DoEvents() بعد جملة تغيير نص الأداة فتغير النص ولم تأثر على أي من الأكواد
فلو سمحت هل من الممكن أن تشرح لنا جملة Application.DoEvents() لأني أول مره أستخدمها
الرد }}}}
تم الشكر بواسطة:
#4
هذا الأمر هو طلب إلى البرنامج بالقيام بأي أمر يطلب منه حتى أثناء انشغاله بتنفيذ أوامر أخرى
كما في برنامجك
فأنت طلبت تغيير نص الزر ثم طلبت إلى البرنامج بعمل حلقة تكرارية لمليون مرة فلم يظهر النص الذي غيرته لانشغال البرنامج داخل الحلقة
وهنا يأتي دور الأمر الذي أخبرتك به حيث سيقوم البرنامج بالانتظار حتى يتم تنفيذ جميع ما طلب منه ثم يتابع
والأفضل في كل حلقة تكرارية طويلة تقوم بوضع الكود حتي يبقى لدى البرنامج القدرة على الاستجابة لأي أوامر أخرى


بالتوفيق
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 33 منذ 4 ساعة مضت
آخر رد: ابراهيم النعيمي
  حل مشكلة الكود الاتي - سهل- CLARO 3 69 أمس, 04:06 PM
آخر رد: ali.alfoly
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 49 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  [VB.NET] مشكلة عند عمل تحديث للبيانات Asmaa adel 3 68 27-11-16, 03:56 PM
آخر رد: Adrees
Rainbow [VB.NET] مشكلة طابعة الباركود محمد اسماعيل 3 261 27-11-16, 10:30 AM
آخر رد: adel27
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 94 26-11-16, 03:03 AM
آخر رد: hglogtd
  [SQL] مشكلة عند الاتصال بالسيكوال سيرفر تظهر الرسالة التالية Asmaa adel 8 178 21-11-16, 11:58 PM
آخر رد: Asmaa adel
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 51 21-11-16, 11:48 PM
آخر رد: السرور
  [VB.NET] مشكلة في كود البحث khalid475 14 213 11-11-16, 07:52 PM
آخر رد: khalid475
Question [سؤال] مشكلة محيرتني هل من مساعدة shwehdi4pc 14 2,090 10-11-16, 03:55 PM
آخر رد: أبوبكر سويدان

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم