Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub CommandButton1_Click( )
ShellExecute(me.hWnd, "open" , "文件完整路徑及名稱" ,"" , "", 1
End Sub
我利以上 API 去開一個 File 但在 Windows98 ,WinNT 4.0可執行……在 Windows2000 卻無法執行會像是停住…但也無法停止它RUN
…是何問題??

    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()