[أبووسم]

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

[طالب برمجة]

PHP كود :

Dim txt As String = "056002587"
txt = "966" & Val(txt)

MsgBox(txt) 


[أبووسم]

(25-02-18, 01:26 AM)طالب برمجة كتب :

PHP كود :

Dim txt As String = "056002587"
txt = "966" & Val(txt)

MsgBox(txt) 


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

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

[طالب برمجة]

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

[أبووسم]

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

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

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

كود :

  Dim txt As String = "TextBox1.Text"
       txt = "966" & Val(txt)

       MsgBox(txt)

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

[سعود الشامان]

(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)

[أبووسم]

ممتاز

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