Продумать алгоритм ресайзинга Frame в форме

[kibernetics]

у меня возникла проблема на стадии решения вопроса об изменении размера фрейма на форме. я не могу понять когда нужно контролировать событие?
в общем, я нашёл точки когда мне нужно ресайзить фрейм, код:

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

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lvwX As Single
        lvwX = Frame2.Left
If X < lvwX - 15 And X > lvwX - 45 Then 'And Y > 825 And Y < 6930 Then
        Me.MousePointer = ccSizeEW
        If Button = 1 Then Frame2.Left = X
        Else
        Me.MousePointer = ccArrow
        End If
End Sub

но как сделать так, чтоб при нажатии левой мыши, фрейм "позиционировался" по Х согласно курсору мыши? в моём коде почемуто фрейм при нажатии кнопки двигается только влево.

[schalexey]

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


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lvwX As Single
        lvwX = Frame2.Left
       
If X < lvwX - 15 Or X > lvwX - 45 Then 'And Y > 825 And Y < 6930 Then
        Me.MousePointer = ccSizeEW
        If Button = 1 Then Frame2.Left = X
        Else
        Me.MousePointer = ccArrow
        End If
End Sub

Бегает и вправо и в лево... ошибка в условии была, надо ставить было ИЛИ (OR)

[Viper]

потому что ширину фрейма ты не меняешь, а только двигаешь его.


З.Ы. Привиденный код мягко говоря плохо читаем, стоит пользоваться отступами

З.З.Ы. и это... тебе что таки надо: изменить размер или сместить фрейм?

З.З.Ы. And на Or замени

[kibernetics]

schalexey
классно! спасибо
!Viper!
да, было бы неплохо одолеть сам ресайзинг, т.е. .Left можно было двигать, и ширина фрейма изменялась бы.
что могли бы посоветовать? это и есть моя задача.

[Viper]

При ресайзинге, одновременно со смещением левой кромки надо увеличивать/уменьшать ширину, аналогично и для правой кромки. Для верхней и нижней кромок, соответсвенно будешь увеличивать/уменьшать высоту.

[kibernetics]

а за счет чего её уменьшать? мне нужно изменять левую кромку. правая в принципе всегда от края формы - 100
если написать так:

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

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lvwX As Single
    Dim lvwW
    lvwX = Frame2.Left
    lvwW = Frame2.Width   
If X < lvwX - 15 Or X > lvwX - 45 Then 'And Y > 825 And Y < 6930 Then
        Me.MousePointer = ccSizeEW
        If Button = 1 Then
              Frame2.Left = X
              Frame2.Widht = lvwW - lvwX
        Else
        Me.MousePointer = ccArrow
        End If
End Sub

то чтото не то вроде

[Viper]

типа такого должно быть:

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

dim dx As Single

dx = X - Frame2.Left
Frame2.Left = X
Frame2.Width = Frame2.Width - dx

Этот код должен быть вместг твоего

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

Frame2.Left = X
Frame2.Widht = lvwW - lvwX

Естественно можно (и нужно) дополнительно проверить новую ширину на минимальный/максимальный размер