Как сделать форму, большую, чем размер экрана?

[A.A.Z.]

Имеется ввиду случай, когда справа есть полоса прокрутки.
Чего-то я перепробовал уже все варианты, никак не получается...
Помогите, плиз!

[WEB_13]

Что-то я не понял, разве форма может сама себя прокручивать???!!!

[X-BOND]

Имеется ввиду случай, когда справа есть полоса прокрутки.
Чего-то я перепробовал уже все варианты, никак не получается...
Помогите, плиз!

Ты имеешь ввиду, как на формах в Access?

[A.A.Z.]

Да, по-моему, как в Access.
Ну например, если в TextBox стоит MultiLine = True и ScrollBars = 2, появляется полоса прокрутки справа, и если текст не помещается, её можно поднять или опустить. А если на форме места не хватает, а уменьшать или помещать на другую форму уже ничего нельзя, можно ли как-то её увеличить, чтобы справа просто были полосы прокрутки, которыми можно было бы добраться до нужного места?

[_NeoN_]

хм...
тупо, в лоб но попробуй сделать picturebox на него все контролы кидай, путь у него высота будет больше чем у формы, и поставь на форму еще скролбар, при Change изменяй top у picturebox'a..
сам не пробовал, просто первое что пришло в мою дурную голову...
есть парочка минусов:
1.некрасиво будет...
2.тупо как-то это все=)

[X-BOND]

Вообще-то, если это все только из-за недостатка места, то лучше использовать контрол TabStrip или MultiPage и не раздувать форму до немыслимых размеров (юзеру это вряд ли понравится).

[A.A.Z.]

2 _NeoN_:
Да, действительно, как-то это всё тупо и некрасиво...
2 X-BOND:
Нет, ну до немыслимых размеров раздувать я её не буду - мне уж очень сильно много не надо, а так, чтобы чуть-чуть, так можно?

[Oxygen]

На VBStreets где-то воляется такой ActiveX, если не хочешь копаться, дай мыло - вышлю. Сейчас просто лень искать. (я его как-то скачивала)

[Tauron]

Ну, например, можно контролам задать любые нужные координаты (могут находится из ЗА пределами формы), а потом просто перебирать весь массив Form.Controls и менять им Х координату на нужную величину. А ля:

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

Private Sub HScroll1_Change()
Dim fControl As Object
For Each fControl In Form1.Controls
    If Not TypeOf fControl Is VB.HScrollBar Then
        fControl.Left = fControl.Tag - HScroll1.Value
    End If
Next
End Sub


А в свойстве Tag хранить начальную X координату.

[GoGosha]

ВОТ класс небольшой, делать когда нечего было написал

[A.A.Z.]

2 GoGosha: СПА-СИ-БО! Большое! Можно закрыть тему.