Как сделать, чтобы программа автоматически подстраивалась под разрешение монитора - VB

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

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

Здравствуйте! У меня возник некий вопрос. Как сделать: 1. Чтобы окна программы автоматом подстраивались под разрешение пользователя на его машине (будь то ноутбук, нетбук или что-то иное) 2. Во многих крупных программах перед открытием самого интерфейса программы появляется её логотип на экране (пример: 1С). Как это сделать Всем за ранее спасибо!!!!!

Решение задачи: «Как сделать, чтобы программа автоматически подстраивалась под разрешение монитора»

textual
Листинг программы
Public Sub rsz(frm As Form, w, h)
Dim w1 As Single, h1 As Single
w1 = frm.Width / w
h1 = frm.Height / h
Dim Cont As Control
    
On Error GoTo Err
    For Each Cont In frm.Controls
        With Cont
            .Width = .Width * w1
            .Height = .Height * h1
            .Top = .Top * h1
            .Left = .Left * w1
        End With
    Next
Err: Err.Clear
Resume Next
End Sub

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


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

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

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