السلام عليكــم ورحمـة الله وبركاتــه ،،
أخواني
فيه عندي textbox عدد 2
الأول اخزن فيه قيمة و لتكن 3
و الثاني يأخذ قيمة الأول(3) و يزيد عليه واحد(3+1) ثم يرجع القيمة الجديدة إلى الأول.
ومثال التوضيح
textbox1=3
textbox2= textbox1+1
textbox1=textbox2
مع مراعاة أن قيمة textbox1 ممكن ان تكون صفر
حاولت عن طريق if statment لكن الأمر ينطبق على محاولة و محاولتين ثم يعطيني قيمة ثابته لا تتغير
و هذه هي محاولتي اتمنى التعديل عليها
Dim num As Integer = 0
If ComboBox2.Text = "CS" Then
If TextBox1.Text = 0 Then
num = Len(TextBox1.Text)
TextBox10.Text = (num + 1) - 1
TextBox1.Text = TextBox10.Text
ElseIf TextBox1.Text > 0 Then
num = Len(TextBox1.Text)
TextBox10.Text = num + 1
TextBox1.Text = TextBox10.Text
End If
End If