C#翻译成VB

Question

        private void panelClear(string mess)
        {
            if (mainPanel.Controls.Count > 0)
            {
                mainPanel.Controls.Clear();
            }
        }
        private void btnBout_Click(object sender, EventArgs e)
        {
            NewProtagonistForm newProtagonistForm = new NewProtagonistForm();
            this.panelClear("字符串");
            mainPanel.Controls.Add(newProtagonistForm);
        }

Answer 1

Private Sub panelClear(ByVal mess As String)
    If mainPanel.Controls.Count > 0 Then
        mainPanel.Controls.Clear() 
    End If
End Sub
Private Sub btnBout_Click(sender As Object, ByVal e As EventArgs) 
    Dim newProtagonistForm As New NewProtagonistForm
    Me.panelClear("字符串")
    mainPanel.Controls.Add(newProtagonistForm)
End Sub 

Answer 2

楼上明显是转换工具转来的哈哈.Button事件不全.

Answer 3

Private Sub panelClear(ByVal mess As String) 
    If mainPanel.Controls.Count > 0 Then 
        mainPanel.Controls.Clear() 
    End If 
End Sub 
Private Sub btnBout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBout.Click 
    Dim newProtagonistForm As New NewProtagonistForm 
    Me.panelClear("字符串") 
    mainPanel.Controls.Add(newProtagonistForm) 
End Sub 

Answer 4

VB.NET不熟的说
不过确实是手写的，第二个写的匆忙少了个ByVal