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 صبح
با سلام و احترام
ممنون از راهنمائی شما استاد گرامی
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.