Не срабатывает центровка контроллов по ширине формы

@SAI777 · Регистрация: 30.07.2006

Студворк — интернет-сервис помощи студентам

Доброго времени суток!
Поясните, плз, почему не срабатывает центровка контроллов по ширине формы?
На форме два PictureBox (один в другом)
(не смейтесь над ремарками - пользуюсь редко - забывается ))

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Form_Load()
'открываем окно на весь экран
Me.WindowState = vbMaximized
 
'режим задания размеров в пикселях
Me.ScaleMode = vbPixels
 
'ширина боксов по ширине картинки и высоте формы
Picture1.Width = 450
Picture2.Width = 450
 
Picture1.Height = Form1.Height
Picture2.Height = Form1.Height
 
'выравнивание боксов по верху формы
Picture1.Top = 0
Picture2.Top = 0
 
 
'выравнивание боксов по ширине формы
Picture1.Move (Form1.ScaleWidth - Picture1.Width) / 2
Picture2.Move (Picture1.Width - Picture1.Width) / 2
 
 
End Sub

Спасибо за внимание.

SoftIce · 11.10.2014, 22:17

Сообщение от SAI777

почему не срабатывает центровка контроллов по ширине формы

Загрузка формы еще не закончена, а Вы уже по ней равняете контролы. Непорядочек

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Private Sub Form_Load()
'открываем окно на весь экран
Me.WindowState = vbMaximized
 
'режим задания размеров в пикселях
Me.ScaleMode = vbPixels
Picture1.ScaleMode = vbPixels
 
'ширина боксов по ширине картинки и высоте формы
Picture1.Width = 450
Picture2.Width = 450
 
Picture1.Height = Form1.Height
Picture2.Height = Form1.Height
 
'выравнивание боксов по верху формы
Picture1.Top = 0
Picture2.Top = 0
 
'Форму нужно показать, а потом уже равнять
Me.Show
'выравнивание боксов по ширине формы
Picture1.Move Form1.ScaleWidth / 2 - Picture1.Width / 2
Picture2.Move (Picture1.Width - Picture1.Width) / 2 'а тут всегда будет 0
 
 
End Sub

@SAI777 · 11.10.2014, 22:35 **[ТС]**

я правильно понял, что строка 26 не нужна?

SoftIce · 11.10.2014, 22:50

Сообщение от SAI777

я правильно понял, что строка 26 не нужна?

А какой в ней смысл?

Visual Basic
1
picture2.left=0

и все

@The trick · 11.10.2014, 23:17

Располагать контролы нужно в обработчике события Form_Resize.

@SAI777 · 12.10.2014, 00:56 **[ТС]**

Сообщение от SoftIce

и все

))) ага. Спасибо.

Сообщение от The trick

Располагать контролы нужно в обработчике события Form_Resize.

Вы имеете ввиду определять их положение?

@The trick · 12.10.2014, 01:01

Сообщение от SAI777

определять их положение

Сообщение от The trick

Располагать контролы

Что не понятно?

@SAI777 · 12.10.2014, 01:09 **[ТС]**

ну, да. извините.
А возможно здесь не привязываться к пикселям, а как-то иначе подогнать размер бокса по ширине картинки?

@The trick · 12.10.2014, 01:14

Сообщение от SAI777

А возможно здесь не привязываться к пикселям, а как-то иначе подогнать размер бокса по ширине картинки?

Если картинка будет 10000х10000 пикселей, делать окно 10000х10000 пикселей? Для автоматического размера есть свойство AutoSize.

@SAI777 · 12.10.2014, 01:24 **[ТС]**

Сообщение от The trick

Если картинка будет 10000х10000 пикселей, делать окно 10000х10000 пикселей? Для автоматического размера есть свойство AutoSize.

так я же не случайно написал "по ширине", т.к. AutoSize режет оба размера. А здесь планируется организовать прокрутку по-вертикали, для чего картинка и заталкивается в двойной бокс.
Спасибо за терпение.

@The trick · 12.10.2014, 01:25

Не по теме:

SAI777, я сейчас болею - плохо соображаю.

Нарисуй что хочешь - я тебя не понимаю.

@SAI777 · 12.10.2014, 01:50 **[ТС]**

Сообщение от The trick

я сейчас болею - плохо соображаю.

Выздоравливайте, Анатолий!

Сообщение от The trick

Нарисуй что хочешь - я тебя не понимаю.

на всегда развёрнутой форме, по центру, размещается картинка (450х2228пк) которая должна прокручиваться по вертикали вращением колеса мыши (код, хоть и навороченный с API, нашёл, вроде работает).
А вот далее в замешательстве.... Поверх этих контролов должен располагаться неподвижный целеуказатель (типа прицела) с возможностью масштабирования по клику кнопок или скроллбаром. Тут посматривал на Вашу "лупу", возможно, что-то от туда можно будет прикрутить...

@The trick · 12.10.2014, 01:53

Сообщение от SAI777

Тут посматривал на Вашу "лупу", возможно, что-то от туда можно будет прикрутить...

Нет. Смотри регионы. Создавай пикчербокс поверх всех контролов и задавай ему регион в виде прицела, Windows сама обрежет его по форме прицела. Хотя проще рисовать его на кртинке самому.

@SAI777 · 12.10.2014, 02:04 **[ТС]**

Сообщение от The trick

Смотри регионы. Создавай пикчербокс поверх всех контролов и задавай ему регион в виде прицела, Windows сама обрежет его по форме прицела. Хотя проще рисовать его на кртинке самому.

уже смотрел тут разные варианты прозрачных контролов и форм, но все с теми или иными подводными камнями. тут (Двойная буферизация и прозрачность контролов в VB6) очень близко, но всё уже забито в библиотеку ((( , а это мне уже не поднять.

@The trick · 12.10.2014, 02:18

Так не легче?

@SAI777 · 12.10.2014, 12:07 **[ТС]**

Хмм!!! Очень интересно! Попробую покрутить...
Спасибо за внимание!

Добавлено через 1 час 24 минуты
Да! Похоже из этого получиться!
Первое, с чем столкнулся, это отсутствие ограничения на прокрутку. Т.е. когда скроллинг доходит до края картинки, её начинает "рвать".
Второе: не пойму, что нужно подставить, чтобы устанавливать картинку в центр развёрнутой формы?:

PureBasic
1
PaintPicture pic, (Form1.ScaleWidth - *******) / 2, scl

@The trick · 12.10.2014, 12:10

Сообщение от SAI777

Т.е. когда скроллинг доходит до края картинки, её начинает "рвать".

Ограничивай сдвиг (переменная scl).

Сообщение от SAI777

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

(размер формы - рамер картинки)/2

@SAI777 · 12.10.2014, 13:26 **[ТС]**

Сообщение от The trick

(размер формы - рамер картинки)/2

это понятно, но почему если так:

PureBasic
1
PaintPicture pic, (Form1.Width - pic.Width) / 2, scl

то сдвиг получается не точно по-центру, а правее?

@The trick · 12.10.2014, 13:27

Все дело из-за единиц измерения, во вторых форма имеет 2 размера: размер окна и размер клиентской области.

@SAI777 · 12.10.2014, 13:28 **[ТС]**

Сообщение от The trick

Ограничивай сдвиг (переменная scl).

ага, только не понятно как в этот(?) блок

PureBasic
1
2
3
4
5
6
    Select Case Msg
    Case WM_MOUSEWHEEL
        scl = scl + 10 * (Sgn(wParam))
        Form_Paint
    Case Else: DefCall = True
    End Select

вставить ограничение по высоте картинки?
Спасибо за внимание.

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@SAI777 0 / 0 / 0 Регистрация: 30.07.2006 Сообщений: 33
	11.10.2014, 22:35 [ТС]
	я правильно понял, что строка 26 не нужна? 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	11.10.2014, 23:17
	Располагать контролы нужно в обработчике события Form_Resize. 1

@SAI777 0 / 0 / 0 Регистрация: 30.07.2006 Сообщений: 33
	12.10.2014, 01:09 [ТС]
	ну, да. извините. А возможно здесь не привязываться к пикселям, а как-то иначе подогнать размер бокса по ширине картинки? 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	12.10.2014, 01:25
	Не по теме: SAI777, я сейчас болею - плохо соображаю. Нарисуй что хочешь - я тебя не понимаю. 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	12.10.2014, 13:27
	Все дело из-за единиц измерения, во вторых форма имеет 2 размера: размер окна и размер клиентской области. 0

Не срабатывает центровка контроллов по ширине формы

Решение