| Вопрос: Как сделать прямоугольник | Добавлено: 13.03.07 20:26 |
Автор вопроса:  noname_kazan
|
|
Как сделать прямоугольник с закруглёнными углами
т.е. мне нужна форма с закруглёнными углами, textbox и кнопки ?? |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 13.03.07 20:38 |
|
Закругляем форму.
Код в форме 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 Private Declare Function SetWindowRgn Lib "user32" _ ByVal hwnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long Public Sub MakeRound(pForm As Form, lValue As Long) Dim lRet As Long Dim l As Long Dim llWidth As Long Dim llHeight As Long 'Get Form size in pixels llWidth = pForm.Width / Screen.TwipsPerPixelX llHeight = pForm.Height / Screen.TwipsPerPixelY 'Create Form with Rounded Corners lRet = CreateRoundRectRgn(0, 0, llWidth, llHeight, _ lValue, lValue) l = SetWindowRgn(pForm.hwnd, lRet, True) End Sub Private Sub Form_Load() MakeRound Form1, Val(30) End Sub |
||
|
Номер ответа: 2 Автор ответа: noname_kazan Вопросов: 12 Ответов: 12 |
Профиль | | #2 | Добавлено: 13.03.07 20:56 |
| А форма не станет как на 98-ом windows ?? | ||
|
Номер ответа: 3 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #3 | Добавлено: 13.03.07 21:08 |
| Станет | ||
|
Номер ответа: 4 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #4 | Добавлено: 13.03.07 21:12 |
|
А ты сделай свой заголовок, со своими кнопками,
можещь и скины даже потом использовать. |
||
|
Номер ответа: 5 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #5 | Добавлено: 13.03.07 21:21 |
|
Насчет кнопок смотри
Как сделать треугольную кнопку на VB 6.0? здесь же на форуме, 9 числа сего месяца. |
||
|
Номер ответа: 6 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 14.03.07 14:27 |
|
А форма не станет как на 98-ом windows ?? Станет Приципить к форме манифест и после изминения формы заново вызвать InitCommonControls |
||
|
Номер ответа: 7 Автор ответа: noname_kazanВопросов: 12 Ответов: 12 |
Профиль | | #7 | Добавлено: 16.03.07 14:09 |
| А по подробнее ?? | ||
|
Номер ответа: 8 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #8 | Добавлено: 16.03.07 18:23 |
|
InitCommonControls () - это апишка.
Ее вызывать вот так Call InitCommonControls
а приципить манифест так положи файл манифеста таким образом <прога>.exe.manifest |
||
Страница: 1 |