02-12-12, 12:46 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
معي مشكلة مع تغيير نص الأداة ، كلما أحاول أن أقوم بتغيير نص الزر قبل إجراء مهمة لا يقوم الفيجوال بتغيرر الزر لا أدري لماذا
مثال
كود :
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
بينما إذا قمت بتغييره بدون أكواد بأسفل نص التغغير يتغير النص