白送分的问题,100分呀.

Question

1、private sub Command1_click()
       shell(要启动的文件路径+文件名)
       end
   end sub

Answer 1

private sub Command1_click()
filename= "c:\要启动的文件路径"+"文件名.txt"
       shell filename
       end
   end sub

Answer 2

一关闭当前程序时打开另一程序
private sub Command1_click()
       shell(要启动的文件路径+文件名)
       end
   end sub
或
Private Sub Form_Unload(Cancel As Integer)
 shell(YourFilePath)
End Sub二 重启计算机
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4Private Sub Command1_Click()Dim iAns As Integer
Dim rVal As Long' Ask if the user is sure they want to exit.
iAns = MsgBox("Are you sure you want to exit windows?", vbQuestion Or _
vbYesNo, "Exit Windows")
If iAns = vbYes Then
rVal = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End If End Sub

Answer 3

'同意楼上的
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPrivate Sub Command1_Click()
       Shell "C:\aa.exe", 1
       ExitWindowsEx EWX_SHUTDOWN, 0&
       End
End Sub