Создать форму "Во весь экран" чтобы была, но я не в курсе как это сделать - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д