Как сделать, чтобы программа автоматически подстраивалась под разрешение монитора - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы