[ismail2012]

بسم الله الرحمن الرحيم

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

معي مشكلة مع تغيير نص الأداة ، كلما أحاول أن أقوم بتغيير نص الزر قبل إجراء مهمة لا يقوم الفيجوال بتغيرر الزر لا أدري لماذا
مثال

كود :

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

بينما إذا قمت بتغييره بدون أكواد بأسفل نص التغغير يتغير النص