「聲明無效在命名空間」按鈕，單擊處理

Question

我Private Sub btnDisplay點擊事件過程告訴我（上btnDisplay排藍線的錯誤消息）：

「聲明無效在一個命名空間「`。

我已經加了End Sub和End Class，仍然收到相同的錯誤信息。

Public Class frmMain 

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click 
    Me.Close() 

    End Sub 
End Class 

Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click 

    ' displays D's 3 comments 

    Dim intChoice As Integer 
    Integer.TryParse(txtChoice.Text, intChoice) 


    If intChoice = 1 Then 
     lblComment.Text = "Not Exactly" 
    Else 
     If intChoice = 2 Then 
      lblComment.Text = "No, Were You Listening?" 
     Else 
      If intChoice = 3 Then 
       lblComment.Text = "This Is Close" 
      Else 
       lblComment.Text = "N/A" 
      End If 
     End If 
    End If 
End Sub 

Answer 1

那麼，它到底是什麼錯誤消息說 - 就像Private Sub方法聲明不是一個命名空間內有效的語句（讀：A類/模塊之外）。試試這個：

Public Class frmMain 

    Private Sub btnExit_Click(sender As Object, e As EventArgs) _ 
                  Handles btnExit.Click 
    Me.Close() 
    End Sub 

    Private Sub btnDisplay_Click(sender As Object, e As EventArgs) _ 
                 Handles btnDisplay.Click 
    'your code goes here 
    End Sub 

End Class