candy1
دوشنبه 04 خرداد 1388, 22:18 عصر
سلام دوستان
من می خوام ببینم دکمه مینیمم و زوم و بستن پنجره و تمام صفحه شدن را با توابع api نیاز دارم هر کی میتونه کمک کنه
ممنون
Babak.Hassanpour
دوشنبه 04 خرداد 1388, 22:41 عصر
برای مینیمایز:
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
'کد
CloseWindow Me.hwnd
برای ماکزیمایز:
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3
'کد
Call ShowWindow(Me.hwnd, SW_SHOWMAXIMIZED)
برای بستن:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_DESTROY = &H2
Private Const WM_CLOSE = &H10
'کد
SendMessage Me.hwnd, WM_CLOSE, 0, 0
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.