Можно ли в VBA сделать меняющую размеры форму?

@Alexxander · Регистрация: 22.12.2011

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

В VB у Form есть свойство BorderStyle, которому можно присвоить значение Sizebale, а в VBA такому же свойству объекта UserForm можно присвоить только BorderStyleNone или BorderStyleSignle.

Кроме этого, хотелось бы сделать окно без заголовка. Возможно ли?

Johny Walker · 22.12.2011, 15:04

размеры формы меняются установкой требуемой ширины и высоты.

@Alexxander · 22.12.2011, 16:44 **[ТС]**

Нужно чтобы пользователь мог менять размеры окна.

Johny Walker · 22.12.2011, 17:11

Драг-дропом? Боюсь, не прокатит. А где ты видел диалоговое окно с такими возможностями - там же элементы управления. Как вариант - сделай 4 кнопочки примерно так: http://www.mfco.ru/resform.zip
PS не получается "Прикрепить файл" - говорит "Только txt, zip, rar, gif, jpg или png", хотя давал ему и rar, и zip

(

@Alexxander · 22.12.2011, 17:32 **[ТС]**

> А где ты видел диалоговое окно с такими возможностями
Например, в VB6.
> сделай 4 кнопочки
есть у меня такой вариант, но им пользоваться непривычно и неудобно.
Я думаю, можно как-то через API. К тому же мне нужно сворачивать окно до размера одной строки и без заголовка.
Это можно сделать на VB, но с ним другая беда: обработка объектов выполняется значительно медленнее, чем в VBA (СorelDraw).

@Димит · 22.12.2011, 19:58

Драг-дропом?-Можно сделать имитацию:
Вставляю Label и использую события MouseDown,MouseMove,MouseUp.
Правда при движении мыши граница окна не изменяется, только при MouseUp.

@Avtopic · 27.12.2011, 14:42

Через API:

Johny Walker · 27.12.2011, 15:42

Как ты файл прикрепляешь, поделись?

@Avtopic · 27.12.2011, 16:37

Шутите или в серьезно?

@Avtopic · 27.12.2011, 16:42

Sorry, в предыдущем ответе “В” опустить

@Alexxander · 27.12.2011, 17:05 **[ТС]**

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

Через API:

Отлично! Именно то, что нужно. Просто я мало с API имел дело и сам не нашел бы нужных функций. Спасибо огромное!

Johny Walker · 27.12.2011, 17:28

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

Шутите или серьезно?

Конечно серьезно - нафига мне класть файлы на свой сервер, а потом ссылку давать? А указание на файл на локальном диске дает ошибку "только txt, zip, rar, gif, jpg, png", хотя ему даю rar-архив

@Avtopic · 27.12.2011, 18:31

To Johny Walker:

После известных изменении на форуме, когда я нажимаю на “Ответить” прямо попадаю в редактор новых сообщении, где наверху находится “Прикрепить файл”.
Может, Вы работаете в старой версии форума.
Если Вы работаете в новом формате, то у вас должен бить такой адрес этой страницы:
http://www.relib.com/forums/thread882668.aspx
и такой адрес редактора новых сообщении при клике на “Ответить”:
http://www.relib.com/forums/post.aspx?id=882668
где и видно возможность прикрепить файл.
Если у вас видеться этот адрес, а “Прикрепить файл” нет, тогда я не знаю, почему у меня такие привилегии.

28.12.2011, 10:39

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

Нужно чтобы пользователь мог менять размеры окна.

А может вот так подойдёт:

Visual Basic

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
If Button = 1 Then
UserForm1.Height = Y
UserForm1.Width = X
End If
 
End Sub

При нажатии над формой (в данном случае левой, для правой "If Button = 2"), и удерживая кнопку двигать мышу - меняется размер формы. Безо всяких АПИ

@Alexxander · 29.12.2011, 12:47 **[ТС]**

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

А может вот так подойдёт:
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Спасибо за идею! Только это я использую для изменения позиции окна. А изменяемые размеры и прочие своства лучше через API.

03.01.2012, 08:26

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

Через API:

Третий раз скачиваю, пробую.
Запускаю проект, жму на все кнопки.
срабатывает только одна - выход.
А так меняется только цифра в текстбоксе.
Что такое [italic][bold]lStyle[/bold] [/italic]
И что должно было произойти с размерами формы.
Я всё таки меняю с помощью Private Sub UserForm_MouseMove

@Alexxander · 03.01.2012, 13:06 **[ТС]**

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

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

Через API:

Третий раз скачиваю, пробую.
Запускаю проект, жму на все кнопки.

Смотри аттач.

03.01.2012, 15:26

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

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

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

Через API:

Третий раз скачиваю, пробую.
Запускаю проект, жму на все кнопки.

Смотри аттач.

Собственно хоть скажите, что должно было происходить.
Форма таскоется за любое место.
И всё.
Ставлю галки, снимаю - ровным счётом ничего не происходит.
Должны же были изменяться размеры формы (так стоял вопрос).

@Alexxander · 03.01.2012, 15:49 **[ТС]**

Если отмечено WS_THICKFRAME, окно будет менять размеры, как обычно в Windows (перетаскиванием за рамку).
Остальные аттрибуты (не по порядку): Окно имеет заголовок, системное меню, полосы прокрутки и пр. Описание на листе Excel (взято из MSDN).
Для того чтобы окно могло менять размеры надо это указать в его атрибутах. По умолчанию в VBA оно не может менять размеры и внутри VBA нет спсобов сделать это. Поэтому используем API. Подробности в коде программы.

04.01.2012, 21:53

Спасибо, разобрался.
Никто же не подсказал, что в 97 офисе это не катит.
Для проверки предположения поставил ОкнаХР и ОфисХР.
Проверил, пашет.
А потом уже на 98 Окна поставил ОфисХР и тоже работает.

@Alexxander 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 27
		1
	Можно ли в VBA сделать меняющую размеры форму? 22.12.2011, 14:55. Показов 15786. Ответов 19 Метки нет (Все метки) В VB у Form есть свойство BorderStyle, которому можно присвоить значение Sizebale, а в VBA такому же свойству объекта UserForm можно присвоить только BorderStyleNone или BorderStyleSignle. Кроме этого, хотелось бы сделать окно без заголовка. Возможно ли? 0

Johny Walker 2 / 2 / 1 Регистрация: 10.04.2011 Сообщений: 415
	22.12.2011, 15:04	2
	размеры формы меняются установкой требуемой ширины и высоты. 0

@Alexxander 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 27
	22.12.2011, 16:44 [ТС]	3
	Нужно чтобы пользователь мог менять размеры окна. 0

Johny Walker 2 / 2 / 1 Регистрация: 10.04.2011 Сообщений: 415
	22.12.2011, 17:11	4
	Драг-дропом? Боюсь, не прокатит. А где ты видел диалоговое окно с такими возможностями - там же элементы управления. Как вариант - сделай 4 кнопочки примерно так: http://www.mfco.ru/resform.zip PS не получается "Прикрепить файл" - говорит "Только txt, zip, rar, gif, jpg или png", хотя давал ему и rar, и zip ( 0

@Alexxander 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 27
	22.12.2011, 17:32 [ТС]	5
	> А где ты видел диалоговое окно с такими возможностями Например, в VB6. > сделай 4 кнопочки есть у меня такой вариант, но им пользоваться непривычно и неудобно. Я думаю, можно как-то через API. К тому же мне нужно сворачивать окно до размера одной строки и без заголовка. Это можно сделать на VB, но с ним другая беда: обработка объектов выполняется значительно медленнее, чем в VBA (СorelDraw). 0

@Димит 90 / 37 / 14 Регистрация: 03.11.2010 Сообщений: 429
	22.12.2011, 19:58	6
	Драг-дропом?-Можно сделать имитацию: Вставляю Label и использую события MouseDown,MouseMove,MouseUp. Правда при движении мыши граница окна не изменяется, только при MouseUp. 0

@Avtopic 2 / 2 / 0 Регистрация: 23.04.2011 Сообщений: 159
	27.12.2011, 14:42	7
	Через API: 0

Johny Walker 2 / 2 / 1 Регистрация: 10.04.2011 Сообщений: 415
	27.12.2011, 15:42	8
	Как ты файл прикрепляешь, поделись? 0

@Avtopic 2 / 2 / 0 Регистрация: 23.04.2011 Сообщений: 159
	27.12.2011, 16:37	9
	Шутите или в серьезно? 0

@Avtopic 2 / 2 / 0 Регистрация: 23.04.2011 Сообщений: 159
	27.12.2011, 16:42	10
	Sorry, в предыдущем ответе “В” опустить 0

	04.01.2012, 21:53

@Alexxander 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 27
	27.12.2011, 17:05 [ТС]	11
	Сообщение от Avtopic Через API: Отлично! Именно то, что нужно. Просто я мало с API имел дело и сам не нашел бы нужных функций. Спасибо огромное! 0

Johny Walker 2 / 2 / 1 Регистрация: 10.04.2011 Сообщений: 415
	27.12.2011, 17:28	12
	Сообщение от Avtopic Шутите или серьезно? Конечно серьезно - нафига мне класть файлы на свой сервер, а потом ссылку давать? А указание на файл на локальном диске дает ошибку "только txt, zip, rar, gif, jpg, png", хотя ему даю rar-архив 0

@Avtopic 2 / 2 / 0 Регистрация: 23.04.2011 Сообщений: 159
	27.12.2011, 18:31	13
	To Johny Walker: После известных изменении на форуме, когда я нажимаю на “Ответить” прямо попадаю в редактор новых сообщении, где наверху находится “Прикрепить файл”. Может, Вы работаете в старой версии форума. Если Вы работаете в новом формате, то у вас должен бить такой адрес этой страницы: http://www.relib.com/forums/thread882668.aspx и такой адрес редактора новых сообщении при клике на “Ответить”: http://www.relib.com/forums/post.aspx?id=882668 где и видно возможность прикрепить файл. Если у вас видеться этот адрес, а “Прикрепить файл” нет, тогда я не знаю, почему у меня такие привилегии. 0

@Alexxander 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 27
	29.12.2011, 12:47 [ТС]	15
	Сообщение от Alex77 А может вот так подойдёт: Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Спасибо за идею! Только это я использую для изменения позиции окна. А изменяемые размеры и прочие своства лучше через API. 0

Alex77
	03.01.2012, 08:26	16
	Сообщение от Avtopic Через API: Третий раз скачиваю, пробую. Запускаю проект, жму на все кнопки. срабатывает только одна - выход. А так меняется только цифра в текстбоксе. Что такое [italic][bold]lStyle[/bold] [/italic] И что должно было произойти с размерами формы. Я всё таки меняю с помощью Private Sub UserForm_MouseMove

@Alexxander 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 27
	03.01.2012, 13:06 [ТС]	17
	Сообщение от Alex77 Сообщение от Avtopic Через API: Третий раз скачиваю, пробую. Запускаю проект, жму на все кнопки. Смотри аттач. 0

Alex77
	03.01.2012, 15:26	18
	Сообщение от Alexxander Сообщение от Alex77 Сообщение от Avtopic Через API: Третий раз скачиваю, пробую. Запускаю проект, жму на все кнопки. Смотри аттач. Собственно хоть скажите, что должно было происходить. Форма таскоется за любое место. И всё. Ставлю галки, снимаю - ровным счётом ничего не происходит. Должны же были изменяться размеры формы (так стоял вопрос).

@Alexxander 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 27
	03.01.2012, 15:49 [ТС]	19
	Если отмечено WS_THICKFRAME, окно будет менять размеры, как обычно в Windows (перетаскиванием за рамку). Остальные аттрибуты (не по порядку): Окно имеет заголовок, системное меню, полосы прокрутки и пр. Описание на листе Excel (взято из MSDN). Для того чтобы окно могло менять размеры надо это указать в его атрибутах. По умолчанию в VBA оно не может менять размеры и внутри VBA нет спсобов сделать это. Поэтому используем API. Подробности в коде программы. 0