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

لو عندى 4 TextBox وى 1 Label عاوز لو كتب رقم فى TextBox 1 من 1 الى 100 يكتب الرقم فى Label1 لو كتب رقم 101 الى 1000 فى textbox1 يكتب لم يوجد هذا الرقم وى كهذا فى باقى الTextbox
1 الى 100 وى التانى 100 الى 200 وى الثالث من 200 الى 300 وى الرابع من 300 الى 1000
او بدل label تبأ MsgBox
nampuer to nampuer ارجو المساعده ضرورى

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

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

        Dim i As Integer = Val(TextBox1.Text)

        If i > 101 Or i < 0 Then

            MsgBox("الرقم غير موجود")

        Else

            Label1.Text = i

        End If

    End Sub

هذا مثال
و يمكن التطبيق بالتوالي علي الباقي

لا تنسوني من صالح دعائكم
السلام عليكم ورحمة الله و بركاته

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

محمد

ahmed salam