View Full Version : بستن یک برنامه خاص
محمد رضا بهبودی
چهارشنبه 09 مرداد 1398, 08:21 صبح
با سلام و احترام
با چه دستوری می توان از درون برنامه اکسس یک برنامه دیگر را بست . مثلا بازدن یک دکمه فایل pdf را که باز است ببندیم . یا هر برنامه اجرائی دیگری را . ممنون
محمد رضا بهبودی
پنج شنبه 10 مرداد 1398, 07:14 صبح
سلام
اساتید محترم لطفا راهنمائی فرمایید
محمد رضا بهبودی
پنج شنبه 10 مرداد 1398, 12:32 عصر
لطفا راهنمائی بفرمائید
محمد رضا بهبودی
شنبه 12 مرداد 1398, 06:59 صبح
سلام
لطفا اساتید راهنمائی فرمایند
محمد رضا بهبودی
دوشنبه 14 مرداد 1398, 11:12 صبح
سلام
آیا این موضوع واقعا راهی ندارد؟
محمد رضا بهبودی
پنج شنبه 17 مرداد 1398, 07:44 صبح
اساتید محترم لطفا راهنمائی
hamidreza47
شنبه 19 مرداد 1398, 08:00 صبح
سلام از وب بروزر داخل دیزاین استفده کنید بسیار ساده وکارمد اگر موردی داشتید hamidreza472012@yahoo.com پیام بزارید
محمد رضا بهبودی
یک شنبه 20 مرداد 1398, 07:04 صبح
با سلام و احترام
استاد گرامی ممنون از پاسخگوئی شما
لطفا درصورت امکان راهنمائی بیشتری بفرمایید .
New Account
پنج شنبه 24 مرداد 1398, 11: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, 06:55 صبح
با سلام و احترام
ممنون از راهنمائی شما استاد گرامی
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.