(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