VPF::Размер формы - Форум программистов

Fantomm

Дата 24.4.2011, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 25.3.2011

Репутация: нет
Всего: нет

Как сделать так чтобы можно было изменять размер формы? Если форма не влезает на экран то ее можно было пролистовать влево вправо и верх вниз как обычный лист. То есть снабдить ее полосами прокрутки?

iff

Дата 25.4.2011, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16

Не знаю, есть ли для этого специальные функции или контролы, но используя только VScroll и HScroll можно получить вот такое решение.
Правда, если компоненты на форме будут появляться динамически, то они перемещаться не будут.

Присоединённый файл ( Кол-во скачиваний: 5 )

scroll.rar 1,66 Kb

--------------------

DOS... Синей пеленой экран заполнил чистый DOS
Мышь... Стала вдруг квадратной, потеряла форму мышь...
Я разбил окно, девяностопятое мастдайное окно,
И поставил DOS, и тогда увидел: Это счастье, — вот оно.

Fantomm

Дата 25.4.2011, 18:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 25.3.2011

Репутация: нет
Всего: нет

iff все так как надо но только у меня работает горизонтальная прокрутка вертикальная выдает ошибку наверное потому что после ее кода идет Option Explicit если его убрать то все нормально, но не повлияет ли отсу-вие Option Explicit на мой код?

iff

Дата 25.4.2011, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16

Цитата(Fantomm @ 25.4.2011, 18:49

)

после ее кода идет Option Explicit

У меня нет строки Option Explicit.
Вот мой код:

Код


Private Type XY
    X As Single
    Y As Single
End Type
Dim BeginXY() As XY

Private Sub Form_Load()
    Dim i As Integer
    For Each Elmnt In Me.Controls
        ReDim Preserve BeginXY(i)
        BeginXY(i).X = Elmnt.Left
        BeginXY(i).Y = Elmnt.Top
        i = i + 1
    Next Elmnt
End Sub

Private Sub Form_Resize()
    If Me.WindowState <> vbMinimized And Me.Height - HFormScroll.Height - 500 > 0 Then
        HFormScroll.Top = Me.Height - HFormScroll.Height - 500
        VFormScroll.Left = Me.Width - VFormScroll.Width - 100
        HFormScroll.Width = Me.Width - VFormScroll.Width - 100
        VFormScroll.Height = Me.Height - HFormScroll.Height - 500
    End If
End Sub

Private Sub HFormScroll_Change()
    Exceptions = Array("HFormScroll", "VFormScroll")
    Dim i As Integer
    For Each Elmnt In Me.Controls
        For Each Exception In Exceptions
            If Elmnt.Name = Exception Then GoTo Break
        Next Exception
        Elmnt.Move BeginXY(i).X - HFormScroll.Value, BeginXY(i).Y - VFormScroll.Value
Break:
    i = i + 1
    Next Elmnt
End Sub

Private Sub VFormScroll_Change()
    HFormScroll_Change
End Sub

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »