VPF::Окно неправильной формы - Форум программистов

COLOMBO

Дата 26.11.2004, 18:48 (ссылка)

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

Загрузка ...

Новичок

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

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

Прошу всех, кто смотрит это сообщение ответте, как создать окно в форме квадрата с закруглёнными краями? smile

Staruha

Дата 26.11.2004, 20:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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

Сама еще не делала ,как то не нужно было.Но вот у Падре есть такое

Цитата

Создание окна в форме круга, и др. :
У Билл Гейца, когда он делал Винд, не хватило ума сделать круглые формы, а юзерам всего мира надоели квадратные окна, и они требуют круглые формы, и мы, программеры всего мира, должны удовлетворять потребности юзеров, т.к. все свои проги, мы делаем для них(ну и для ламеров вирусы...). И вот мы сейчас, с помощью спец. АПИ функции это исправим, для начала сделаем круглое окно, а потом ты сам будешь делать другие окна. Войди в VB, и впиши код:

Код


'Декларируем АПИ:
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long 

Private Sub Form_Load() 'При запуске формы, делаем ее круглой:
SetWindowRgn hWnd, CreateEllipticRgn(80, 0, 300, 200), True 'Цифры в скобках означают что - то типо координат, например, изменив первую цифру(80), окно сузится, или расширится
End Sub

Цитата

Теперь форма круглая! НО помойму, выглядит она не эффектно, и продвинутому юзеру может не понравиться(а простой юзер целыми днями будет на неё любоваться:-))), попробуй немного изменить координаты, короче в Form_Load впиши:

Код


SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 600, 450), True

Цитата

Ну как? Помойму продвинутому юзеру понравиться! Поэксперементируй с координатами, и мож у тебя получится супер окно.

Это сообщение отредактировал(а) cardinal - 26.11.2004, 22:48

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

Возмездие настигнет

COLOMBO

Дата 26.11.2004, 22:00 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо, Старуха! То, что у меня вышло понравится любому юзеру.

Staruha

Дата 26.11.2004, 22:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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

Все что могу

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

Возмездие настигнет

cardinal

Дата 26.11.2004, 22:47 (ссылка)

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

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

Я бы только оформил немного подругому, цитата все таки... smile

(см. выше)

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

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

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