منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] اريد اضافة فتح الخط الدولي لرقم الهاتف المسجل . - نسخة قابلة للطباعة

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

اريد اضافة فتح الخط الدولي لرقم الهاتف المسجل . - أبووسم - 25-02-18

السلام عليكم
لدي ارقام تأتي بالصيغة المحلية و أريد ان تكتب بالصيغة الدولية ليتم نسخها و الصقها في موقع للرسائل النصية
إذا كان رقم الهاتف مثلاً
056002587
عند الضغط على البوتن يختفي الصفر ويتم إضافة المفتاح الدول
فيكون بهذا الشكل
96656002587

RE: اريد اضافة فتح الخط الدولي لرقم الهاتف المسجل . - طالب برمجة - 25-02-18

PHP كود :
Dim txt As String = "056002587"
txt = "966" & Val(txt)

MsgBox(txt) 


RE: اريد اضافة فتح الخط الدولي لرقم الهاتف المسجل . - أبووسم - 25-02-18

(25-02-18, 01:26 AM)طالب برمجة كتب :
PHP كود :
Dim txt As String = "056002587"
txt = "966" & Val(txt)

MsgBox(txt) 

أحسنت بارك الله فيك

و لكن أريد الكود يشمل أي رقم أقوم بأدخاله في Textbox1
هو حالياً ثابت على الرقم "056002587" فقط

RE: اريد اضافة فتح الخط الدولي لرقم الهاتف المسجل . - طالب برمجة - 25-02-18

ضع بدل النص الثابت textbox1,text

RE: اريد اضافة فتح الخط الدولي لرقم الهاتف المسجل . - أبووسم - 26-02-18

(25-02-18, 10:35 PM)طالب برمجة كتب : ضع بدل النص الثابت textbox1,text

اشكرك مرة أخرى على سرعة ردك و تجاوبك

إذا كنت تقصد أن اكتبه بهذا الشكل

كود :
  Dim txt As String = "TextBox1.Text"
       txt = "966" & Val(txt)

       MsgBox(txt)

فللأسف لم ينجح الكود

RE: اريد اضافة فتح الخط الدولي لرقم الهاتف المسجل . - سعود الشامان - 27-02-18

(26-02-18, 12:53 AM)أبووسم كتب :
(25-02-18, 10:35 PM)طالب برمجة كتب : ضع بدل النص الثابت textbox1,text

اشكرك مرة أخرى على سرعة ردك و تجاوبك

إذا كنت تقصد أن اكتبه بهذا الشكل

كود :
  Dim txt As String = "TextBox1.Text"
       txt = "966" & Val(txt)

       MsgBox(txt)

فللأسف لم ينجح الكود


احذف علامات التنصيص من جوانب  TextBox1.Text

بعد التصحيح

كود :
       Dim txt As String = TextBox1.Text
        txt = "966" & Val(txt)
        MsgBox(txt)


RE: اريد اضافة فتح الخط الدولي لرقم الهاتف المسجل . - أبووسم - 28-02-18

ممتاز

الف شكر لك و الشكر موصول للأخ طالب برمجة
لا حرمكم الله الأجر و جزاكم الله خير