Office中国论坛/Access中国论坛

标题: [求助]关于用ACCESS按钮关闭外部程序的问题。 [打印本页]

作者: tmtming 时间: 2006-12-6 03:13
标题: [求助]关于用ACCESS按钮关闭外部程序的问题。
在论坛上找到个例子，以下代码是这个例子的代码，（打开WINDOWS的记事本和关闭记事本），请问怎样改成打开和关闭WINDOWS的计算器？？我的是WINDOWS2000系统。

Option Compare Database
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Const WM_CLOSE = &H10

Private Sub 命令0_Click()
On Error GoTo Err_命令0_Click

Call Shell("NOTEPAD.EXE", 1)

Exit_命令0_Click:
Exit Sub

Err_命令0_Click:
MsgBox Err.Description
Resume Exit_命令0_Click

End Sub
Private Sub 命令1_Click()
On Error GoTo Err_命令1_Click

Dim hw&
hw& = FindWindow("NOTEPAD", vbNullString)
Call SendMessage&(hw&, WM_CLOSE, 0, 0)

Exit_命令1_Click:
Exit Sub

Err_命令1_Click:
MsgBox Err.Description
Resume Exit_命令1_Click

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)