سلام
من چنتا فرم باز در حالت اجرا دارم می خواستم بدونم چه شکلی وقتی یکی از فرم ها رو می بندم بقیه فرم ها هم بسته میشند، باید با توابع API ویندوز نوشته بشه ولی نمیدونم چه شکلی.
Printable View
سلام
من چنتا فرم باز در حالت اجرا دارم می خواستم بدونم چه شکلی وقتی یکی از فرم ها رو می بندم بقیه فرم ها هم بسته میشند، باید با توابع API ویندوز نوشته بشه ولی نمیدونم چه شکلی.
منظورت اینه که همه فرم ها مال یه برنامه هستن؟
اگه اینه که از دستور end در unload فرم استفاده کن
در غیر این صورت نمیدونم:31:
سلام
فک می کنم این کارت رو راه بندازه:
کد:Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10
Private Sub Form_Load()
Dim WinWnd As Long
WinWnd = FindWindow(vbNullString, "Title Of Window")
If WinWnd <> 0 Then
PostMessage WinWnd, WM_CLOSE, 0&, 0&
Else
MsgBox "No window of that name exists."
End If
End Sub