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

نسخة كاملة : اريد بعض الاكواد البسيطه جدااااااا فيجوال بيسك 2010
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

اريد منكم بعض الاكواد
الكود الاول عبارة عن 10 بوتن مرقمين بارقام من 0 - 9 وتكست بوكس عايز لما اضغط علي اي بوتن من اللي عليهم الارقام يتم كتابته في التكست بوكس في المرفقات صورة توضح وضع البوتن
انا جربت الكود ده لكتابه الارقام داخل التكست بوكس بس للاسف مش مظبوط لانه بيكتب الرقم مره واحده فقط ولما اضغط علي رقم تاني بيحذف الرقم القديم
PHP كود :
TextBox1.Text = ("1"


وكود لبوتن لما اضغط عليه يحذف رقم رقم مش كل الارقام مره واحده زاي نظام الاله الحاسبه بالظبط

الكود التاني عندي بوتن مكتوب عليه نسخ الرقم عايز لما اضغط عليه يظهر ليبول لمده مثلا خمس ثواني مكتوب عليه تم النسخ بنجاح وبعدها يختفي الليبول مره تاني باستخدام التايمر

في انتظار مرور الاخوه للمساعده تقبلو مني كل التقدير
السلام عليكم ورحمة الله وبركاته
أخي الكريم
هناك طريقتان
الأولى
كود :
TextBox1.AppendText("1")
والثانية
كود :
TextBox1.Text &= "1"


بالتوفيق
وللحذف استخدم الكود دا

كود :
If TextBox1.Text.Length = Nothing Then
            MsgBox("لايوجد اى شى لحذفو", MsgBoxStyle.Critical)
        Else
            TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1, 1)
        End If
just.coder كتب :وللحذف استخدم الكود دا

كود :
If TextBox1.Text.Length = Nothing Then
            MsgBox("لايوجد اى شى لحذفو", MsgBoxStyle.Critical)
        Else
            TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1, 1)
        End If

---------------------------------------------------------------------------------------------

اشكرك اخي كل الشكر ظبطت الاكواد تمام لي طلب لو بلامكان هذا الكود اكون شاكر الافضال
الكود التاني عندي بوتن مكتوب عليه نسخ الرقم عايز لما اضغط عليه يظهر ليبول لمده مثلا خمس ثواني مكتوب عليه تم النسخ بنجاح وبعدها يختفي الليبول مره تاني باستخدام التايمر

تقبل تحياتي لشخصك اخي الغالي
تستطيع بدون استخدام التايمر بإضافة هذا الكود

PHP كود :
Label1.Text "تم النسخ بنجاح"
label1.Visible True
Application
.DoEvents()
System.Threading.Thread.Sleep(3000)
label1.Visible False 

* ملاحظه 3000 تعني 3 ثواني كل 1000 بالمقابل ثانيه واحده

بالتوفيق
اشكرك اخويا الحبيب كل الشكر والتقدير وربنا يزيدك من علمه تقبل تحياتي ولك جزل الشكر اخي الحبيب
جرب هذا الكود احسن
"Textbox.text = textbox.text + "1