「塊如果沒有結束如果」錯誤

Question

我得到這個代碼的編譯錯誤：

Public Sub CommandButton1_Click() 
If TextBox1.Text = "log off" Then 
Shell "cmd.exe /c shutdown -l", vbHide: TextBox2.Text = "Logging off" 
If TextBox1.Text = "shutdown" Then 
Shell "cmd.exe /c shutdown -s", vbHide: TextBox2.Text = "Shutting Down" 
If TextBox1.Text = "restart" Then 
Shell "cmd.exe /c shutdown -r", vbHide: TextBox2.Text = "Restarting" 

Else 
MsgBox "Command Not Defined",vbCritical 
End Sub 

現在它的這個錯誤消息「塊如果沒有結束如果」出現。 爲什麼？

Answer 1

你已經錯過了End If：

Public Sub CommandButton1_Click() 
    If TextBox1.Text = "log off" Then 
     Shell "cmd.exe /c shutdown -l", vbHide: TextBox2.Text = "Logging off" 
    ElseIf TextBox1.Text = "shutdown" Then 
     Shell "cmd.exe /c shutdown -s", vbHide: TextBox2.Text = "Shutting Down" 
    ElseIf TextBox1.Text = "restart" Then 
     Shell "cmd.exe /c shutdown -r", vbHide: TextBox2.Text = "Restarting" 
    Else 
     MsgBox "Command Not Defined", vbCritical 
    End If 
End Sub 

其實在你的代碼，你將永遠有TextBox2.Text等於"Restarting"。這就是爲什麼你應該使用ElseIf聲明。

你可以使用Select Case聲明，以及：

Public Sub CommandButton1_Click() 
    Select Case TextBox1.Text 
     Case "log off" 
      Shell "cmd.exe /c shutdown -l", vbHide: TextBox2.Text = "Logging off" 
     Case "shutdown" 
      Shell "cmd.exe /c shutdown -s", vbHide: TextBox2.Text = "Shutting Down" 
     Case "restart" 
      Shell "cmd.exe /c shutdown -r", vbHide: TextBox2.Text = "Restarting" 
     Case Else 
      MsgBox "Command Not Defined", vbCritical 
    End Select 
End Sub