منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعد تيكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=31731)

مساعد تيكست بوكس - mostafa12 - 12-10-19

اريد عندما اكتب رقم هاتف بلتيكست بوكس   
على سبيل المثال 01234567899

يصبح هكذم 147+1234567899
يحذف الصفر الذي في البدابه ويضيف عليه + 111
مثال اخر 01234560789
يصبح 147+1234560789
اتمنى انكز=و فهمتو
وشكرا لكم

RE: مساعد تيكست بوكس - fouadhdfouad - 12-10-19

(12-10-19, 05:08 PM)mostafa12 كتب : اريد عندما اكتب رقم هاتف بلتيكست بوكس   
على سبيل المثال 01234567899

يصبح هكذم 147+1234567899
يحذف الصفر الذي في البدابه ويضيف عليه + 111
مثال اخر 01234560789
يصبح 147+1234560789
اتمنى انكز=و فهمتو
وشكرا لكم

تفضل اخي ما طلبت 
كود :
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim str As String = (TextBox1.Text.Trim("0") + " + 147")
       TextBox2.AppendText(str.ToString)
   End Sub
End Class


RE: مساعد تيكست بوكس - kiki - 12-10-19

بما انه تحويل رقم الهاتف الى لرقم + مفتاح الدولة
فيفضل استخدام الكود بهذا الشكل
كود :
       Dim str As String = "+147" & Val(TextBox3.Text.Trim("0")).ToString(" ### ### ####")
       MsgBox(str)

اذا تم ادخال الرقم بهذا الشكل 0123456789
سيتحول الشكل بعد اضافة المفتاح الى هذا الشكل +147 12 345 6789
يمكنك التعلاعب بالشكل بترتيب عدد الـ # وكذلك المسافات بين عدد الارقام