+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : Textbox Text Length (/showthread.php?tid=15133)
Textbox Text Length - أسامة - 16-03-16
Textbox Text Length اريد ان اعرف اذا كان عدد Length فردى او زوجى
RE: Textbox Text Length - silverlight - 17-03-16
استحدم الدالة التالية
PHP كود :
Public Function IsOddValue(value As Integer) As Boolean
Return value Mod 2 <> 0
End Function
PHP كود :
For i = 1 To 20
' التأكد من هل الرقم فردي
If IsOdd(i) Then
' أضف فقط الأرقام الزوجية الي الليست بوكس
ListBox1.Items.Add(i + 1)
End If
Next
PHP كود :
If TextBox1.Text.Length Mod 2 = 0
' do something
End If
هنا يكون الرقم فردي و غير هذا يكون الرقم زوجي
RE: Textbox Text Length - hassan - 17-03-16
(16-03-16, 11:02 PM)أسامة كتب : Textbox Text Length اريد ان اعرف اذا كان عدد Length فردى او زوجى
تفضل هاذا الكود
PHP كود :
Dim nm As String = 0
nm = Val(TextBox1.Text.Length) / Val("2")
If InStr(nm, ".") Then
MsgBox("رقم فردي")
Else
MsgBox("رقم زوجي")
End If
شكرا لك
RE: Textbox Text Length - ناجي إبراهيم - 17-03-16
السلام عليكم...
PHP كود :
If (TextBox1.Text.Length mod 2) = 0 Then
' زوجي
Else
' فردي
End If
نرجو الاستفادة و السلام.
RE: Textbox Text Length - أسامة - 17-03-16
شكرآ جزيلآ جميع الاكواد تعمل
RE: Textbox Text Length - hassan - 17-03-16
(17-03-16, 11:54 AM)أسامة كتب : شكرآ جزيلآ جميع الاكواد تعمل
العفوووو اخي