kennt jemand die Lösung dafür?

Question

Private Sub Btnlog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnlog.Click 
     If txtuser.Text = "Manish" And txtpw.Text = "Nair" Then 
      MessageBox.Show("welcome") 
     Else 

      MessageBox.Show("Try again") 
      count= count() + 1 
      If count = 3 Then 
       Me.Close() 
      End If 



     End If 
    End Sub 

Answer 1

Sie haben das Problem nicht angegeben. Wenn Sie jedoch nur Ihren Code lesen, verwenden Sie count(), was die Variable count als Funktion aufruft. Außerdem wird count nie definiert. Bitte versuchen Sie:

 Private Sub Btnlog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnlog.Click 
      dim count as integer = 0 ' Define count 

      If txtuser.Text = "Manish" And txtpw.Text = "Nair" Then 
       MessageBox.Show("welcome") 
      Else 
       MessageBox.Show("Try again") 
       count = count + 1 

       If count = 3 Then 
        Me.Close() 
       End If 
      End If 
     End Sub