Resize элемента

[Prickly]

Hello всем!

У меня на форме, есть Frame. Не подскажите люди добрые как можно изменять размер frame'a с помощью мыши? Как нарисовать линию положения грани frame'a при resize (Смотреть рисунок в прикрепленном файле)?

[Alexanbar]

Что-то ничего не понял из рисунка. Где frame?

А вообще, могу предложить использовать события MouseMove соседних элементов управления (самого Frame и его соседей). Если мышь находится вблизи грани (dltX и dltY меньше некоторого числа и идут на уменьшение), предпринять некие действия.

[Bonesnapper]

Я бы сделал что то вро де этого
надеюсь рамку граней сам нарисуешь

[Prickly]

Огромное спасибо. Дальше надеюсь сам разберусь.

[Александр80]

Prickly такое чувство, что вам нужен сплитер ?

Была тема, ищи если нужен сплитер...
Или переходи на NET, там он есть на панели инструментов...


1. помещаем на форму, ну скажем, TextBox (имя = Text1), ListBox (имя = List1) и Image (имя = imgSplit)
2. в коде формы пишем следующее:

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

Option Explicit

Private splitX As Single
Private OldX As Single

Private Sub Form_Load()
  splitX = Me.ScaleWidth \ 4
End Sub

Private Sub Form_Resize()
  imgSplit.Move splitX, 0, 60, Me.ScaleHeight
  Text1.Move splitX + 60, 0, Me.ScaleWidth - splitX - 60, Me.ScaleHeight
  List1.Move 0, 0, splitX, Me.ScaleHeight
End Sub

Private Sub imgSplit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  OldX = X
End Sub

Private Sub imgSplit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbLeftButton Then
    splitX = splitX + (X - OldX)
    If splitX < Me.ScaleWidth \ 4 Then splitX = Me.ScaleWidth \ 4
    If splitX > Me.ScaleWidth \ 2 Then splitX = Me.ScaleWidth \ 2
    Form_Resize
  End If
End Sub

Ивот ссылка на исходник, посмотри может поможет...http://bbs.vbstreets.ru/download.php?id=997