مساعده فى هذا المشروع - نسخة قابلة للطباعة

مساعده فى هذا المشروع - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده فى هذا المشروع (/showthread.php?tid=6939)

مساعده فى هذا المشروع - محمد - 12-11-12

لو عندى 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 - 13-11-12

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

كود :

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

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

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