Размер формы в зависимости от размера монитора

[Алексей К.]

У меня форма изначально задана по размерам большая в конфигураторе (17" 1024х768 - стоит разрешение) и вся забита под завязку всякими элементами управления.
Вопрос: Как будет выглядеть форма при запуске на мониторах меньшего размера (например 14"), появятся ли на ней автоматически полосы прокрутки? Если нет, то как быть - что бы могли пользоваться другие пользователи на машинах с мал. мониторами?

[alibek]

А нельзя сделать форму в 640x480, а элементы раскидать по закладкам? Потому что на меньшем разрешении это будет выглядеть отвратительно.

[marvan]

Есть подозрение, что на компьютерах с разрешением экрана 640x480 стоят столь мощные процессоры, что не всякая прога запустится.
Уж лучше - 800x600 и стоит подумать про динамическое изменение размера текста и размеров и положения ЭУ в зависимости от размера формы, а не экрана.

[Akella]

Чтобы привежи объекты к размеру формы. Это можно сделать в свойстве RESIZE()

[tyomitch]

Кстати, у меня на работе старый монитор, который больше чем 800х600 не тянет, и мне прекрасно видны уродливо сделанные сайты, которые постоянно приходится прокручивать по горизонтали, чтобы что-то прочитать. Их на удивление много, и увы, MSDN Library - один из них...

[Mikle]

Алексей К.
Еще попробуй в свойствах экрана поставить "крупный шрифт"... и ужаснись. А приходится иметь ввиду, что у некоторых пользователей эта опция включена.

[Scuder]

Ну что-то вроде этого:

Код: Выделить всё

GetVideoMode SWidth, SHeight, SDepth
If SWidth < 800 Or SHeight < 600 Then
    MsgBox "Для запуска программы желательно установить разрешение экрана 1024x768 (800x600)", vbCritical, "Внимание!"
    'Form_Unload (0)
    Exit Sub

ElseIf SWidth < 1024 And SHeight < 768 Then
    ResX = 1024 / SWidth
    ResY = 768 / SHeight
   
    Me.Width = Me.Width / ResX
    Me.Height = Me.Height / ResY
       
    For Each cContr In Me.Controls
        If cContr.Name <> "" Then

        If (TypeOf cContr Is TextBox) Or _
            (TypeOf cContr Is Label) Or _
            (TypeOf cContr Is CommandButton) Then
                cContr.Width = cContr.Width / ResX
                cContr.Height = cContr.Height / ResY
                cContr.Top = cContr.Top / ResY
                cContr.Left = cContr.Left / ResX
                cContr.FontName = "Times New Roman"
                cContr.FontSize = cContr.FontSize / ResX
                End If
       
        If (TypeOf cContr Is ComboBox) Or _
            (TypeOf cContr Is CheckBox) Then
                cContr.Width = cContr.Width / ResX
                cContr.Top = cContr.Top / ResY
                cContr.Left = cContr.Left / ResX
                cContr.FontName = "Times New Roman"
                cContr.FontSize = cContr.FontSize / ResX
                End If
               
        If (TypeOf cContr Is Line) Then
            cContr.X1 = cContr.X1 / ResX
            cContr.X2 = cContr.X2 / ResX
            cContr.Y1 = cContr.Y1 / ResY
            cContr.Y2 = cContr.Y2 / ResY
            End If
           
        End If
    Next cContr
   
ElseIf SWidth > 1024 And SHeight > 768 Then
    ResX = SWidth / 1024 / 1.25
    ResY = SHeight / 768 / 1.47
   
    'Me.Width = Me.Width / ResX
    'Me.Height = Me.Height / ResY
       
    For Each cContr In Me.Controls
        If cContr.Name <> "" Then

        If (TypeOf cContr Is TextBox) Or _
            (TypeOf cContr Is Label) Or _
            (TypeOf cContr Is CommandButton) Then
                cContr.Width = cContr.Width / ResX
                cContr.Height = cContr.Height / ResY
                cContr.Top = cContr.Top / ResY
                cContr.Left = cContr.Left / ResX
                cContr.FontName = "Times New Roman"
                cContr.FontSize = 10 'cContr.FontSize / ResX / 1.5
                End If
       
        If (TypeOf cContr Is ComboBox) Or _
            (TypeOf cContr Is CheckBox) Then
                cContr.Width = cContr.Width / ResX
                cContr.Top = cContr.Top / ResY
                cContr.Left = cContr.Left / ResX
                cContr.FontName = "Times New Roman"
                cContr.FontSize = 10 'cContr.FontSize / ResX
                End If
               
        If (TypeOf cContr Is Line) Then
            cContr.X1 = cContr.X1 / ResX
            cContr.X2 = cContr.X2 / ResX
            cContr.Y1 = cContr.Y1 / ResY
            cContr.Y2 = cContr.Y2 / ResY
            End If
           
        End If
    Next cContr
   
End If

Код, может быть несовершенен, но работает.

[Ruslan Demidow]

Алексей К.
Еще попробуй в свойствах экрана поставить "крупный шрифт"... и ужаснись. А приходится иметь ввиду, что у некоторых пользователей эта опция включена.

Вот-вот - и бороться с этим ой как тяжело (по крайней мере трудоёмко).
Кроме как вручную подгонять в ресайзе положение контролов больше нет других методов?

[Ennor]

В VB6 - нет. В NET'е, кажется, есть. Но на самом деле этот режим крупных шрифтов - самая большая подстава для программера клиентской части. Ее обходить сложнее всего, хотя в списке требований на логотип Designed for Windows ??? этот пункт стоит на третьем месте (от простого к сложному), при том, что всего их там 7...