VPF::Как обойти подгон высоты текстового поля под разме

Superstaff

Дата 15.1.2009, 12:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.1.2009

Репутация: нет
Всего: нет

VB6 в режиме конструктора при выравнивании полей автоматически увеличивает высоту текстовых полей под размер шрифта. Можно ли это отключить?

Akina

Дата 15.1.2009, 13:20 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Вопрос непонятен... в VB6 нет полей, даже текстовых - это не таблица базы данных.
Полностью опишите воспроизведение проблемы, типа: создаём форму, на ней размещаем надпись высотой 200 пиков, в свойствах меняем размер шрифта на 24, ..., и видим увеличение высоты до ...

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Superstaff

Дата 15.1.2009, 14:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.1.2009

Репутация: нет
Всего: нет

VB6(SP6)
1. Создаем форму.
2. Размещаем на ней контрол TextBox.
3. Открываем Properties
4. Устанавливаем свойство Height = 200
5. Переходим в поле Left. Свойство Height изменилось на 285.
И эта минимальная высота зависит от размера шрифта (свойство Font - MS Sans Serif обычный 8).

На форме рукоятками можно несколько уменьшить высоту TextBox-а, но при операции выравнивании TextBox-ов из меню FormEditor по любому краю или по размеру, высота TextBox-а снова увеличивается до 285.

На другом форуме мне один спец сказал, что выходит из этой ситуации, изменяя высоту полей программно в процессе выполнения. Или устанавливает в режиме конструктора свойство Font в 1. А затем программно выставляет в нужных полях размер шрифта. Это конечно выход, только хотелось бы использовать энергию программирования в мирных целях smile

На втором форуме один перец посоветовал перейти на Access - там таких проблем нет.

Akina

Дата 15.1.2009, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(Superstaff @ 15.1.2009, 15:53

)

На другом форуме мне один спец сказал, что выходит из этой ситуации, изменяя высоту полей программно в процессе выполнения. Или устанавливает в режиме конструктора свойство Font в 1. А затем программно выставляет в нужных полях размер шрифта. Это конечно выход, только хотелось бы использовать энергию программирования в мирных целях

Ну собсно создать один раз функцию, которая ресайзит контрол...

Код


sub resizetextbox(txtbox as textbox, hght as integer, optional fntsz as integer = 0)
if fntsz=0 then fntsz=txtbox.fontsize
txtbox.fontsize=1
txtbox.height=hght
txtbox.fontsize=fntsz
end sub

и использовать... закати её в депозитарий...

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »