標識符預計？視覺基本

Question

即時完成與這個，然後...希望有人能夠幫助我（真的希望如此至少，我需要做到這一點：P）（需要更多的文本CUS有很多代碼）：

|error is there|>  
     Private Sub FlatButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton1_Click. <|error is there| 

     Dim Conn As New MySqlConnection("Not going to publish this") 

     If FlatTextBox1.Text = "" Then 
      MsgBox("No username specified") 
      FlatTextBox2.Text = "" 
     Else 
      If FlatTextBox2.Text = "" Then 
       MsgBox("No password specified") 
       FlatTextBox1.Text = "" 
      Else 
       Try 
        Me.Text = "Logging in..." 
        Conn.Open() 
        Dim sqlquery As String = "SELECT * FROM Testing WHERE Username = '" & FlatTextBox1.Text & "';" 
        Dim data As MySqlDataReader 
        Dim adapter As New MySqlDataAdapter 
        Dim command As New MySqlCommand 
        command.CommandText = sqlquery 
        command.Connection = Conn 
        adapter.SelectCommand = command 
        data = command.ExecuteReader 
        While data.Read() 
         If data.HasRows() = True Then 
          If data(2).ToString = FlatTextBox2.Text Then 
           Me.Text = "Logged in!" 
           My.Settings.Username = FlatTextBox1.Text 
           MsgBox("Welcome " + data(1).ToString) 
           Home.Show() 
           Me.Close() 
           If data(3).ToString = "1" Then 
            My.Settings.Admin = "Yes" 
           Else 
            My.Settings.Admin = "No" 
           End If 
          End If 
         Else 
          MsgBox("Failed Login") 
         End If 
        End While 

       Catch ex As Exception 

       End Try 
      End If 
     End If 
    End Sub 
End Class 

Answer 1

替換這些行

私人小組FlatButton1_Click（BYVAL發件人爲System.Object的，BYVALË 作爲System.EventArgs）把手FlatButton1_Click

隨着

Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1_Click