[محمد]

لو عندى 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 ارجو المساعده ضرورى

[ahmed salam]

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

كود :

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

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


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