окно с изменяемыми по размеру областями (в RunTime)

[heep]

Хотелось бы окно разбить на области которые могли менять свой размер мышкой. Или как сваять контрол типа Frame с изменяемым размером в RunTime? Кто нито знает?

[Viper]

Или тебе нужна фишка под названием "резиновая лента" или пробуй объяснить более понятными словами, что же таки нужно

[Konst_One]

вы про сплиттер что-ли?

[heep]

Про сплитер. Как ручками сделать это понятно. PictureBox там к примеру юзаем на предмет перемещения мыши и все такое. Просто может есть какой контрол от MS? Я его не нашел

[Viper]

нет такого контрола в VB, так что ручками. В принципе среда VB предлагает готовый код для создания сплиттера, но он слегка корявый... Стоит приложить к нему руки с головой

[Ennor]

Попробуй этот - возможно, он тебя устроит.

[Konst_One]

я же выложил микрософтовский вариант (чуть подправленный), чем он не устраивает? создайте OCX на его основе, если хотите

[Хакер]

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

Private Sub DrawDragLine(nSplitPercent As Single)
    Dim X1 As Long, Y1 As Long, X2 As Long, Y2 As Long
   
    If m_fSplitterBarVertical Then
        If m_fRightToLeft Then
            X1 = CLng(m_nSplitRegionWidthPixels * _
                        (1# - (nSplitPercent / 100#))) - _
                        m_iSplitterBarThicknessPixels / 2
        Else
            X1 = CLng(m_nSplitRegionWidthPixels * (nSplitPercent / 100#)) - _
                        m_iSplitterBarThicknessPixels / 2
        End If
        X2 = X1 + m_iSplitterBarThicknessPixels
        Y1 = 0
        Y2 = m_nSplitRegionHeightPixels
    Else
        X1 = 0
        X2 = m_nSplitRegionWidthPixels
        Y1 = CLng(m_nSplitRegionHeightPixels * (nSplitPercent / 100#)) - _
                    m_iSplitterBarThicknessPixels / 2
        Y2 = Y1 + m_iSplitterBarThicknessPixels
    End If
    Rectangle m_hDC, X1, Y1, X2, Y2
End Sub

у этого сплиттера нехороший.