VBNet - Форум - Закругление краев формы

Вопрос: Закругление краев формы Добавлено: 03.12.09 14:53

Автор вопроса: Paradox3

VB 2008
У формы, в которой отключен бордюр, края становятся острыми( Можно их как-нибудь программно закруглить? Заранее спасибо)
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #1	Добавлено: 03.12.09 15:37
	Используй фоновую картинку нужного цвета(маску) по которой будет определятся прозрачность. А если на ВБ6 надо, то могу выслать код. Ответить

Номер ответа: 2 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #2	Добавлено: 03.12.09 16:08
	картинка не нужна. 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 Sub MakeRound(pForm As Form, lValue As Long) Dim lRet As Long Dim l As Long Dim llWidth As Long Dim llHeight As Long On Error GoTo 2 '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) 2 End Sub Ответить

Номер ответа: 3 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #3	Добавлено: 03.12.09 16:40
	1. Апи в нете гадость 2. Все проще: сажаешь картинку как фон, затем устанавливаешь свойство TransparentColor нужным цветом 3. Это все дерьмо - края окна будут не сглажены 4. Нужно использовать PNG-фон Ответить

Номер ответа: 4 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #4	Добавлено: 03.12.09 16:48
	он не говорил, что ему нужны сглаженные края, он сказал, что закругленные. Ответить

Номер ответа: 5 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #5	Добавлено: 04.12.09 22:15
	Ну тогда можете не учитывать последние два пункта))) Ответить

Номер ответа: 6 Автор ответа: Paradox3 Вопросов: 4 Ответов: 10	Профиль \| \| #6	Добавлено: 05.12.09 12:06
	... Я все-таки сделал png-маску, так как API-вариант не заработал( Ответить

Страница: 1 |