منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

احتاج الي كود متغير يأخذ قيمته من تكست بوكس بمعني  الشرح علي هذا الكود اريد عند وضع رقم 1 في التكست بوكس 2تتغير قيمه البروجروسر بار 
وعند وضع رقم 1 في التكست بوكس 2 تتغير القيمه التي تحمل متغير ss علي سبيل المثال

ممكن شرح اكتر ما فهمت المطلوب

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

هي التصريح متغير اكيد لكن حسب ما تضع الحدث المناسب لتغيير القيمة (حسب عملك) و كمثال بسييط لديك حدث تغيير النص التابع للتكست بوكس

اخي تفضل الكود عحسب ما فهمت منك من الرد الاول

(12-11-19, 06:39 PM)AbdoDabak كتب : [ -> ]

PHP كود :

Dim ss As Integer = TextBox1.Text
Dim aa As Integer = TextBox2.Text
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       ProgressBar1.Increment(textbox2.text)
       If ProgressBar1.Value = textbox1.text Then
           MsgBox("ok")
       End If
       Label1.Text = ProgressBar1.Value

   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Timer1.Start()

   End Sub
End Class 


اخي تفضل الكود عحسب ما فهمت منك من الرد الاول

طريقه صدقنا عبودي و طريقه صديقنا عبده تظهر هذا الخطاء

أخي سبب هذا الخطأ هو ماممكن تضع قيمة للمتغير وهوا داخل اطار الفئة مباشرة والسبب يتم حفظ القيمة في الذاكرة قبل لحظة انشاء تكست بوكس وقيمته
لكن ممكن  تعطيها قيمة مثل





وتغير القيمة حسب الحدث الذي لديك

الكود الذي اعطيتك هو يؤدي غرضك  لاحظ الكود التالي

اخي جرب هالكود اكتب في التكست بوكس الاول

(12-11-19, 07:05 PM)AbdoDabak كتب : [ -> ]

PHP كود :

  Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       ProgressBar1.Increment(1)
       If ProgressBar1.Value = textbox1.text Then
timer1.stop 
          MsgBox("ok")
       End If
       Label1.Text = ProgressBar1.Value

   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Timer1.Start()

   End Sub
End Class 


اخي جرب هالكود اكتب في التكست بوكس الاول

شكرا لكم جميعا تم الامربن بنجاح