بستن يك برنامه از داخل اكسس

[mohammadsaleh]

با سلام

براي اجراي يك برنامه - مثلا ماشين حساب -از داخل اكسس از تابع shell() استفاده ميشه . حالا اگه بخواهيم همون برنامه از داخل اكسس بسته بشه چكار بايد كرد.

من علمني حرفا فقد صيرني عبداً. امام علي عليه السلام

[nabeel]

سلام

میتونید از کد زیر استفاده کنید



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) As Long

Private Const WM_CLOSE = &H10


Private Sub Command0_Click()
Dim lhWnd As Long
lhWnd = FindWindow(vbNullString, "Calculator")
SendMessage lhWnd, WM_CLOSE, 0&, 0&
End Sub

Calculator همون Caption برنامه ای هستش که شما قصد بستن اون رو دارید .

موفق باشید