بستن برنامه با استفاده از عنوان آن
بستن برنامه ها با استفاده از عنوان آنها:
يك فرم بسازيد.
بر روي آن فرم يك Textbox بر روي فرم خود بكشيد و نام آنرا بگذاريد TextNameو
يك CommandButton بر روي فرم برنامه خود قرار دهيد و نام آنراEndProgram بگذاريد
بعد بر روي همين CommandButton كه نامش را EndProgram گذاشتيد، دابل كليك كنيد و كد زير را كپي كنيد و در آنجا Paste كنيد.
'just Programs
CloseProgram (TextName.Text)
سپس يك ماجول بسازيد . براي اين كار كافيست از منو Project گزينه Add Module انتخاب كنيد
بعد در پنجره Add Module بر روي Open كليك كنيد .
بعد پنجره(cod) Project-Module باز ميشود سپس كد زير كپي كرده و در آنجا Paste كنيد.
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const WM_CLOSE = &H10
Public Sub CloseProgram(ByVal Caption As String)
Handle = FindWindow(vbNullString, Caption)
If Handle = 0 Then Exit Sub
SendMessage Handle, WM_CLOSE, 0&, 0&
End Sub
براي امتحان برنامه تان كافيست يك برنامه مثلاً نرم افزار Word را باز كنيد عنوان نرم افزار Word كه بالاي نرم افزار نوشته شده است ، آنرا را در TextBox برنامه تان كه نامش را TextName گذاشته ايد تايپ كنيد و بر روي CommndButton برنامه تان كه نامش را EndProgram گذاشتيد، بزنيد.
(برداشت از پایگاه آموزش ویژوال بیسیک)
