ضبدر2

[Ali.Ghasemi]

ُما يك 2 تاText داريم ميخوايم هرعددي تو Text 1 نوشتم تو Text2 ضبدر تو2 بشه

سورس ميذاريد

 

[the_king]

ُما يك 2 تاText داريم ميخوايم هرعددي تو Text 1 نوشتم تو Text2 ضبدر تو2 بشه

سورس ميذاريد

همیشه زبان برنامه نویسی رو در عنوان مبحث تون مطرح کنید.

Visual Basic 6

Private Sub Text1_Change()
    If IsNumeric(Text1.Text) Then
        Text2.Text = CStr(Val(Text1.Text) * 2)
    Else
        Text2.Text = ""
    End If
End Sub

Visual Basic .Net

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If IsNumeric(TextBox1.Text) Then
            TextBox2.Text = CStr(Val(TextBox1.Text) * 2)
        Else
            TextBox2.Text = ""
        End If
    End Sub

C#

        private void textBox1_TextChanged(object sender, EventArgs e)
        {
            double number;
            if (double.TryParse(textBox1.Text, out number))
            {
                textBox2.Text = (number * 2).ToString();
            }
            else
            {
                textBox2.Text = "";
            }
        }