تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] اريد اضافة فتح الخط الدولي لرقم الهاتف المسجل .
#1
السلام عليكم
لدي ارقام تأتي بالصيغة المحلية و أريد ان تكتب بالصيغة الدولية ليتم نسخها و الصقها في موقع للرسائل النصية
إذا كان رقم الهاتف مثلاً
056002587
عند الضغط على البوتن يختفي الصفر ويتم إضافة المفتاح الدول
فيكون بهذا الشكل
96656002587


الملفات المرفقة
.rar   تعديل الرقم الدولي.rar (الحجم : 33.21 ك ب / التحميلات : 24)
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة:
#2
PHP كود :
Dim txt As String "056002587"
txt "966" Val(txt)

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

MsgBox(txt

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

و لكن أريد الكود يشمل أي رقم أقوم بأدخاله في Textbox1
هو حالياً ثابت على الرقم "056002587" فقط
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة:
#4
ضع بدل النص الثابت textbox1,text
الرد
#5
(25-02-18, 10:35 PM)طالب برمجة كتب : ضع بدل النص الثابت textbox1,text

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

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

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

       MsgBox(txt)

فللأسف لم ينجح الكود
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة:
#6
(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)
الرد
#7
ممتاز

الف شكر لك و الشكر موصول للأخ طالب برمجة
لا حرمكم الله الأجر و جزاكم الله خير
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم