[سعود]

ماهو كود منع كتابة الفاصلة اكثر من مرتين
جربت

كود :

indexof(".")

لكن لم يجد شيئا

[سعود]

كود :

           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