VB高手进来看下哦。

来源:百度知道 编辑:UC知道 时间:2024/06/21 03:16:07
Private Sub Command1_Click()

Shell "C:/windows/system32/at 11:00 shutdown -s -f -t 120", 0

End Sub

把里面的11:00 弄成两个Text.一个是改11的,一个是改00的
怎么弄?
把代码给我发下, 谢谢了。

Shell "C:\windows\system32\at " & text1 & ":" & text2 & " shutdown -s -f -t 120", 0

反不反斜杠都一样的

拖两个Text控件,用&连接要运行的命令就可以了
Private Sub Command1_Click()
Dim a, b
a = Text1.Text
b = Text2.Text
Shell "C:/windows/system32/at " & a & ":" & b & "shutdown -s -f -t 120", 0
End Sub

Private Sub Command1_Click()

Shell "C:\windows\system32\at " & text1 & ":" & text2 & " shutdown -s -f -t 120", 0

End Sub

斜杠,反斜杠要分清!!