VB问题 菜鸟提问

Private Sub Command1_Click()
Dim j As Integer
j = MsgBox("你真好,但我不好.", 36, "提示")
t = 120 '5秒
If j = 6 Then
Shell "cmd.exe /c shutdown -s -t " & t
End If
End Sub

Private Sub Command2_Click()
Dim j As Integer
MsgBox "你敢关掉我,你也别想好过！"
Shell "cmd.exe /c shutdown -s - 120"
End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Print "您是关不掉滴，怎么都关不掉！！！"
Cancel = True
End Sub

 

 

Command2  点击后不会启动倒计时关机    到底哪里出问题了  

Shell "cmd.exe /c shutdown -s - 120"

改为

Shell "cmd.exe /c shutdown -s -t 120"

另外后面多了一行 end if

整个Command2修改如下：

Private Sub Command2_Click()
   MsgBox "你敢关掉我,你也别想好过！"
   Shell "cmd.exe /c shutdown -s -t 120"
End Sub

如果用Shell "cmd /c shutdown -s -t " & t . 那么前面-t后面一定要跟一个空格。再有就楼上说的啦。

Private Sub Command2_Click()
MsgBox "你敢关掉我,你也别想好过！"
Shell ("shutdown -s -f -t 120")

End Sub