Страница: 1 |
Страница: 1 |
Вопрос: Как сделать прямоугольник
Добавлено: 13.03.07 20:26
Автор вопроса: noname_kazan
Как сделать прямоугольник с закруглёнными углами
т.е. мне нужна форма с закруглёнными углами, textbox и кнопки ??
Ответы
Всего ответов: 8
Номер ответа: 1
Автор ответа:
Боцман
ICQ: 295725312
Вопросов: 53
Ответов: 830
Web-сайт:
Профиль | | #1
Добавлено: 13.03.07 20:38
Закругляем форму.
Код в форме
 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
Приципить к форме манифест и после изминения формы заново вызвать InitCommonControls
Номер ответа: 7
Автор ответа:
noname_kazan
Вопросов: 12
Ответов: 12
Профиль | | #7
Добавлено: 16.03.07 14:09
А по подробнее ??
Номер ответа: 8
Автор ответа:
AgentFire
ICQ: 192496851
Вопросов: 75
Ответов: 3178
Профиль | | #8
Добавлено: 16.03.07 18:23
InitCommonControls () - это апишка.
Ее вызывать вот так
а приципить манифест так
положи файл манифеста таким образом <прога>.exe.manifest