Form_Resize()

[KDima]

Private Sub Form_Resize()
Picture.Move 0, 28, Me.Width / Screen.TwipsPerPixelX - GetSystemMetrics(SM_CXDLGFRAME) * 2 - 2, Me.Height / Screen.TwipsPerPixelY - brStatus.Height - GetSystemMetrics(SM_CYMENU)
End Sub

Чё деалю неправильно?

[GSerg]

Прочитав подпись Тёмыча, спрошу: что получить-то хочешь?

[KDima]

Пикчура заезжает под статусбар!
А вычитание РНД намберов из размеров ваще "супер"

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

KDima, что-то ты замутил...
а так не хочешь...

Private Sub Form_Resize()
Picture1.Top = Toolbar1.Height
Picture1.Left = 0
Picture1.Width = Form1.ScaleWidth
Picture1.Height = Form1.ScaleHeight - StatusBar1.Height - Toolbar1.Height
End Sub

Все растягивается и ничего и никуда не залезает... вроде бы...

[KDima]

Мдя... работает...

[quote]picVisual1.Move 0, 28, Me.ScaleWidth, Me.ScaleHeight - brStatus.Height - 28[quote]

Даже так...

Сенкс!

[ism]

Но с константами поосторожнее, я однажды тоже так сделал, а на другом компьютере все перекосило.
Замени 28 на высоту контрола

и метод Move быстрее чем смена каждого размера

[tyomitch]

и метод Move быстрее чем смена каждого размера

Фишку недавно нашёл: для ComboBox Style=1 'Simple Combo метод Move возвращает ошибку, хотя задание Height и Width работает. Будем считать багом VB?

[Cryonyx]

и метод Move быстрее чем смена каждого размера

Фишку недавно нашёл: для ComboBox Style=1 'Simple Combo метод Move возвращает ошибку, хотя задание Height и Width работает. Будем считать багом VB?

Ты про

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

Run-time error '383':

Свойство 'Height' только для чтения

[tyomitch]

Да, про него. При этом присваивание напрямую Height проходит нормально.

[KDima]

Ха! Я тоже нашёл баг...
при добавлении манифеста пропертис высоты Toolbar'a не изменяется, а кнопки уменьшаются!

Вопрос:
Как прервать ресайзинг формы?

[tyomitch]

Это не баг, это просто "нехватка функциональности". Не забывай, что в 1998 г. манифестов не было.


Ресайзинг формы прерывается сабклассингом WM_WINDOWPOSCHANGING.