Как сделать окно нестандартной формы

Мне надо сделать окно вот такое окно:
________
(________)

где ( и )-полукруглые края

0

Нет проблем, Дмитрий!

В нашей копилке уже есть такой совет - его можно найти здесь:

http://vbcode.webhostme.com/ru/click.asp?id=41

0

Описание ЛЮБОГО окна (с клыками, впадинами и т.д.)
1.Конечно же нужно создать стандартный EXE-проект. Теперь создайте
единственный на форме объект Image. Назовём его stern.
2.Так, начнём с создания регионов любой формы. Мне кажется красивее будет
если на форме будет рисунок, вокруг которого мы и "отрежем" лишнее. Поэтому
запустим Paint, аттрибуты рисунка установим 249 по высоте и 313 по ширине.
Теперь нарисуем самый угловатый рисунок - звёздочку (как у октябрят ) Кто
очень талантливый может посерёдке нарисовать вoждя мирового пролетариата -
на регионы это никак не повлияет ))!
3.Сохраните рисунок. Теперь объекту image по имени stern присвоим этот
рисунок.
4.Присвоили? Теперь сдвиньте его подальше вниз за пределы формы, чтобы он не
мешался, а размеры формы установите равными: Width = 4710, Height = 3780. В
свойстве BorderStyle установите флажок 0-None. Свойство AutoRedraw
установите равным True. Готово! Теперь приступим к созданию!
5.Сделайте двойной клик по форме и впишите в раздел General Declarations:
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd _
As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint _
As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim P(10) As POINTAPI
Теперь объясню зачем это. Первая API-функция SetWindowRgn так сказать
накладывает созданный регион на окно. Те части которые остались за пределами
региона исчезают. Знаете с чем это можно сравнить? Есть такие специальные
жестянные формочки для выпечки печения. Они все в форме всяких цветков,
звёздочек, колокольчиков и т.д. Так вот я видел пару раз как ими работают:
лежит, например, на столе кусок теста и человек просто ложит эти острые
формочки на него и выдавлевает формы этих самых цветков, звёздочек,
колокольчиков!!! По такому же принципу и взамодействует окно с регионом.
Наша же задача - это именно создание "формочки" для формы Передаваемые
значения это:
hwnd - идентификатор окна, на котором нужно "выдавить" форму
hRgn - "формочка" для окна
bRedraw - перерисовывать ли окно после "выдавления"?
Для того, чтобы создать регион-"формочку" нам нужна вторая вторая
API-функция CreatePolygonRgn. Состоит регион из n-ого количества точек,
которое Вы и должны задать! Т.е., например, что бы описать звезду, нам нужны
все её точки, как внутрение, так и наружние. Как их всех найти мы рассмотрим
позже, а сейчас посмотрим на параметры:
lpPoint - первая точка региона.
nCount - количество точек
nPolyFillMode - описание метода заливки полигона
Каждая точка на форме, как известно, имеет свои координаты - по иксу и по
игреку. Поэтому каждая точка должна содержаться в переменной-ящичке
POINTAPI. Всего точек у звезды десять (5 внутренних и пять наружних), но
регион это замкнутая форма, поэтому какaя-то точка будет подсчитана дважды,
как первая и как последняя. Итак нам нужны одиннадцать точек и каждая имеет
свои координаты. Для этого-то мы и объявили массив P по типу POINTAPI. В
скобках стоит десять, но, т.к. счёт идёт у Бэйсика с нуля, то и значений в
нём одиннадцать.
6.А теперь в событие Form_Load впишем:
Picture = stern
Строка выглядит немного странновато, да. Зато короче уже не придумаешь. Это
значит:
Me.Picture = stern.Picture
Умный VB определил, что свойству формы Picture ничего не нужно, как такого
же вида свойство. Это можно делать со строковыми свойствами:
Label1 = "ABCVB SendMessage. В раздел
General Declarations допишем следующие API-функции:
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
'эта функция "захватывает" мышку для выполняемого задания
'зачем - не знаю сам! Неужели нельзя договориться? :-)))
Private Declare Sub ReleaseCapture Lib "user32" ()
Добавим процедуру передвижения иышки:
Private Sub Form_MouseMove(Button As Integer, Shift As _
Integer, X As Single, Y As Single)
'если была нажата левая кнопка вызываем процедуры
If Button = 1 Then
Call ReleaseCapture
Call SendMessage(hwnd, &HA1, 2, 0&)
End If
End Sub
[Окна c закругленными углами]
А вот это ещё проще! А всё-таки тоже необычно - часто Вы встречаете окна с
закругленными углами???
1.В раздел General Declarations допишем следующую API-функцию:
Private Declare Function CreateRoundRectRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Её параметры:
X1,Y1 - координаты верхней левой точки прямоугольника, углы которого надо
закруглить
X2,Y2 - координаты нижней правой точки
X3 - ширина овала, применяемого для закругления углов
Y3 - его высота
2.Теперь попробуем создать такой. В событии Form_Load закомментируйте строку
Picture = stern, чтобы картинка больше не появлялась. А под строкой
Dim Rgn As Long
объявите ещё одну переменную для региона:
Dim Rgn2 As Long
Теперь создадим второй регион:
Rgn2 = CreateRoundRectRgn(0, 0, Width / Screen.TwipsPerPixelX, _
Height / Screen.TwipsPerPixelY, 50, 50)
В качестве аргументов мы передаём координаты формы в пикселах а высоту и
ширину овала задаём одинаковой, тем самым углы будут именно закруглены, а не
"заовалены" .
Теперь чуть ниже вставьте эту строку, окраски формы в красный цвет:
BackColor = QBColor(12)
И строку
Call SetWindowRgn(hwnd, Rgn, True)
исправьте на
Call SetWindowRgn(hwnd, Rgn2, True)
Запускайте! Потрясающе, неправда ли !? Но вот если бы была ещё рамка, было
бы просто неотразимо. Но ведь это тоже осуществимо! Правда совсем не такая,
как у стандарного окна, но всё-таки!
3.Для этого можно применить API-функцию FrameRgn. Итак, под все остальные
API-функции допишем ещё одну:
Private Declare Function FrameRgn Lib "gdi32" (ByVal hDC As Long, _
ByVal hRgn As Long, ByVal hBrush As Long, ByVal nWidth As Long, _
ByVal nHeight As Long) As Long
Передаваемые параметры:
hDC - handle Device Context (я не понимаю что это, но что-то на подобии hWnd
- может идентификатор какой?...)
hRgn - регион, который надо "обрамить"
hBrush - что это за "щётка" не понимаю тоже, но её надо прежде тоже создать
(!) скорее всего это вид рисования рамки.
nWidth, nHeight - толшина рамки по высоте и ширине
И, как я уже сказал, нам нужна ещё одна API-функция для создания "щётки"
(дописываем под первую):
Private Declare Function CreateSolidBrush Lib "gdi32" _
(ByVal crColor As Long) As Long
Внимание! Для FrameRgn тоже нужен регион! Ведь рамку можно нарисовать и на
квадратном окне и выглядеть она будет в зависимости от региона.
Теперь в событие Form_Load перед строкой
Call SetWindowRgn ...
вставьте строку
Call FrameRgn(hDC, Rgn, CreateSolidBrush(QBColor(0)), 3, 3)
Запускайте!
[Комбинирование регионов]
А ещё регионы можно комбинировать! Нужно это правда не так часто но, когда
вам нужна форма с одной стороны полукруглая, а с другой выперающие углы,
штыри и т.д., то без комбинирования регионов Вам уже не обойтись! Прежде чем
начать введите в Genral Declaration

0