وعليكم السلام
الكود التالي لمنع كتابة اي شيء في التيكست بوكس باستثناء الارقام والفاصلة بنوعيها وطبعا انت تستطيع التعديل عليه ويجب ان يكون في حدث KEYPRESS
الكود التالي لمعرفة تكرار حرف معين وفي مثالي هذا معرفة تكرار الفاصلة . واذا كانت مكررة يعطي رسالة تنبيه
الكود التالي لمنع كتابة اي شيء في التيكست بوكس باستثناء الارقام والفاصلة بنوعيها وطبعا انت تستطيع التعديل عليه ويجب ان يكون في حدث KEYPRESS
كود :
If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "," Then
e.Handled = True
End Ifالكود التالي لمعرفة تكرار حرف معين وفي مثالي هذا معرفة تكرار الفاصلة . واذا كانت مكررة يعطي رسالة تنبيه
كود :
dim a as integer
For i As Integer = 0 To TextBox1.TextLength - 1
If TextBox1.Text.Chars(i) = "." Then
a += 1
End If
Next
If a > 2 Then
MsgBox("الفاصلة مكررة")
End Ifتطبيق للجوال يشبه تطبيق حراج
سورس كود برنامج محاسبة ومبيعات احترافي
سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام Abo_anas_kahwaji@
واتساب 00963951283515

