любой знает решение для этого?

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

Вы не указали эту проблему. Однако, просто прочитав свой код, вы используете count(), который вызывает счетчик переменных как функцию. Кроме того, подсчет никогда не определяется. Попробуйте:

 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