PDA

View Full Version : بستن یک برنامه خاص



محمد رضا بهبودی
چهارشنبه 09 مرداد 1398, 09:21 صبح
با سلام و احترام
با چه دستوری می توان از درون برنامه اکسس یک برنامه دیگر را بست . مثلا بازدن یک دکمه فایل pdf را که باز است ببندیم . یا هر برنامه اجرائی دیگری را . ممنون

محمد رضا بهبودی
پنج شنبه 10 مرداد 1398, 08:14 صبح
سلام
اساتید محترم لطفا راهنمائی فرمایید

محمد رضا بهبودی
پنج شنبه 10 مرداد 1398, 13:32 عصر
لطفا راهنمائی بفرمائید

محمد رضا بهبودی
شنبه 12 مرداد 1398, 07:59 صبح
سلام
لطفا اساتید راهنمائی فرمایند

محمد رضا بهبودی
دوشنبه 14 مرداد 1398, 12:12 عصر
سلام
آیا این موضوع واقعا راهی ندارد؟

محمد رضا بهبودی
پنج شنبه 17 مرداد 1398, 08:44 صبح
اساتید محترم لطفا راهنمائی

hamidreza47
شنبه 19 مرداد 1398, 09:00 صبح
سلام از وب بروزر داخل دیزاین استفده کنید بسیار ساده وکارمد اگر موردی داشتید hamidreza472012@yahoo.com پیام بزارید

محمد رضا بهبودی
یک شنبه 20 مرداد 1398, 08:04 صبح
با سلام و احترام
استاد گرامی ممنون از پاسخگوئی شما
لطفا درصورت امکان راهنمائی بیشتری بفرمایید .

New Account
پنج شنبه 24 مرداد 1398, 12:47 عصر
سلام
میتونید از این کد استفاده کنید ( در داخل یک ماژول اون رو کپی کنید )

Public Sub KillExcecutedFile(ExecutedFileName As String)
On Error GoTo Err_KillExcecutedFile


Dim ProcessName As Object
For Each ProcessName In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & ExecutedFileName & "'")
ProcessName.Terminate
Next


Exit_KillExcecutedFile:
On Error Resume Next
Exit Sub


Err_KillExcecutedFile:
Select Case Err.Number
Case 0
Resume Exit_KillExcecutedFile:
Case Else
MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error in function KillExcecutedFile"
Resume Exit_KillExcecutedFile:
End Select
End Sub



و به طور مثال به شکل زیر اون رو فرخوانی کنید :


Private Sub cmdSampleButton_Click()
Call KillExcecutedFile("Notepad.exe")
End Sub




کد بالا برنامه Notepad رو از طریق کلیک بر روی یک دکمه می بنده

موفق باشید

محمد رضا بهبودی
شنبه 26 مرداد 1398, 07:55 صبح
با سلام و احترام
ممنون از راهنمائی شما استاد گرامی