منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] ماهو كود منع كتابة الفاصلة اكثر من مرتين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] ماهو كود منع كتابة الفاصلة اكثر من مرتين (/showthread.php?tid=11746)



ماهو كود منع كتابة الفاصلة اكثر من مرتين - سعود - 16-03-15

ماهو كود منع كتابة الفاصلة اكثر من مرتين
جربت
كود :
indexof(".")
لكن لم يجد شيئا


RE: ماهو كود منع كتابة الفاصلة اكثر من مرتين - سعود - 16-03-15

كود :
           Dim lapo As Integer = lblscreen.Text.LastIndexOf(".")

           If lapo > 1 Then Exit Sub
           MsgBox(lapo)
           lblscreen.Text &= sender.text
محاولتي لكن لا اريد ان يتم كتابتها ورا بعض لابد من فارق
1.5+1.5

اريد بحدث النقر لزر .

لقيت حيلة
كود :
Private Function isfound() As Boolean
       If lblscreen.Text.Contains("/") Or
           lblscreen.Text.Contains("*") Or
           lblscreen.Text.Contains("-") Or
               lblscreen.Text.Contains("+") Then
           Return True
       Else
           Return False
       End If
   End Function
   Private Sub point_Click(sender As Object, e As EventArgs) Handles point.Click
       If lblscreen.Text.Trim = "0" Then
           Exit Sub
       Else
           Dim lapo As Integer = lblscreen.Text.LastIndexOf(".")
           If isfound() = False Then
               If lapo > 0 Then Exit Sub
           Else
               If lapo > 1 Then Exit Sub
           End If
           lblscreen.Text &= sender.text
       End If
   End Sub