كود :
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