السلام عليكم
لدي ارقام تأتي بالصيغة المحلية و أريد ان تكتب بالصيغة الدولية ليتم نسخها و الصقها في موقع للرسائل النصية
إذا كان رقم الهاتف مثلاً
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)
ممتاز
الف شكر لك و الشكر موصول للأخ طالب برمجة
لا حرمكم الله الأجر و جزاكم الله خير