| |
На одном из форумов по VB я увидел такой пример.
При нажатии на CommandButton 1 вы получаете
форму, развернутую на весь экран. Панель задач
Windows при этом будет скрыта. При нажатии на CommandButton
2 вы всего лишь получаете форму, также
развернутую на весь экран, но при этои панель
задач не спрятана.
Добавьте на форму 2 элемента CommandButton.
'ВАРИАНТ1
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
'ВАРИАНТ2
Но возможен и такой вариант: установите свойство
формы BorderStyle как 0-None и вставьте
следующий код
Private Sub Form_Load()
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.Left = 0
Me.Top = 0
End Sub
|
|