Создать форму "Во весь экран" чтобы была, но я не в курсе как это сделать - VB

Узнай цену своей работы

Формулировка задачи:

Столкнулся с такой проблемой, что понадобилось создать форму "Во весь экран" чтобы была, но я не в курсе как это сделать :'( . Приходится расширять окошечко формы до разрешения моего экрана (1280х960), но у некоторых то другое разрешение, поэтому форма только у некоторых на весь экран, да и то не полностью фактически. Помогите Кидаю плюс в репу кто поможет
В программировании "новичек", тем более возраст еще не тот чтобы все в голове держать Прошу учесть господа

Решение задачи: «Создать форму "Во весь экран" чтобы была, но я не в курсе как это сделать»

textual
Листинг программы
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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.333 из 5
Похожие ответы