12
Февраль
2009
Как сделать форму во весь экран?
Как сделать форму во весь экран.
Private Declare Function SetWindowPos Lib "user32" _ (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long) As Long Private Declare Function GetSystemMetrics Lib "user32" _ (ByVal nIndex As Long) As Long Const SM_CXSCREEN = 0 Const SM_CYSCREEN = 1 Const HWND_TOP = 0 Const SWP_SHOWWINDOW = &H40 Private Sub Command1_Click() Dim ll_Width As Long Dim ll_Height As Long If Me.WindowState = vbMaximized Then WindowState = vbNormal End If ll_Width = GetSystemMetrics(SM_CXSCREEN) ll_Height = GetSystemMetrics(SM_CYSCREEN) Call SetWindowPos(Me.hwnd, HWND_TOP, 0, _ 0, ll_Width, ll_Height, SWP_SHOWWINDOW) End Sub Private Sub Command2_Click() WindowState = vbMaximized End Sub