[aminesori]

(02-06-22, 09:42 AM)أبو خالد الشكري كتب : مرحبا بالجميع

السطر التالي ينقصه هذا القوس ( في آخره
Dim a = String.Format("{0:0# ## ## ## ##}", Long.Parse("0633556699")

قم بإضافته حتى يعمل الكود بشكل صحيح ،
والسطر الصحيح بعد إضافة القوس الناقص هو هكذا :
Dim a = String.Format("{0:0# ## ## ## ##}", Long.Parse("0633556699"))

لم تنجح ارغب عند الكتابة يترك المسافة بين الارقام

[معاند الحظ]

اخي اذا كنت تريد ان يتم التحقق من الرقمين الاولين في تكستبوكس 1 و تكستبوكس 2 فانت بحاجة الى دالة تعيد اول رقمين من من كل
تكستبوكس ثم تقوم بفحص كل رقمين بحسب الشرط الذي وضعته

استخدم الدالة Substring فهي تعيد  لك جزء من النص الاصلي (نسخة) ولها وسيطين
الاول مكان بداية الاقتطاع (الخانة) والثاني عدد الاحرف المطلوب اقتطاعها وفي حالتك انت تريد فحص اول رقمين في التكست الاول والثاني
وبهذا ستكتب الدالة بالشكل التالي TextBox1.Text.Substring(0, 2) حيث الرقم صفر يعني انك تريد الاقتطاع من الرقم الاول ودائما الصفر في 
الIndex هو العنصر الاول اما الرقم 2 فهو عدد الارقام التي تريد اقتطاعها وفي حالتك هي رقمين

اليك مثال:

PHP كود :

Dim t1, t2 As String
        t1 = TextBox1.Text.Substring(0, 2)
        t2 = TextBox2.Text.Substring(0, 2)

        If t1 = "06" Then
            MsgBox("TextBox1= 06")
        Else
            MsgBox("TextBox1 is not 06")
        End If

        If t2 = "07" Then
            MsgBox("TextBox2= 07")
        Else
            MsgBox("TextBox2 is not 07")
        End If