申明:
Private Declare Function ExitWindows Lib "user32" (ByVal dwReserved As Long,ByVal uReturnCode As Long) As Long程序中用:
Private Sub Command1-Click()
Dim R As Integer,dwReturnCode As Long,wReserved As Integer
R=ExitWindows(dwReturnCode,wReserved)
End Sub
Private Declare Function ExitWindows Lib "user32" (ByVal dwReserved As Long,ByVal uReturnCode As Long) As Long程序中用:
Private Sub Command1-Click()
Dim R As Integer,dwReturnCode As Long,wReserved As Integer
R=ExitWindows(dwReturnCode,wReserved)
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货