Страница: 1 |
Вопрос: нестандартная форма | Добавлено: 20.09.05 22:31 |
Автор вопроса: ![]() |
на сайте много примеров создания формы нестандартных очертаний
но как сделать нестандартными формы элементов например RichTextBox |
Ответы | Всего ответов: 8 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 20.09.05 22:35 |
Создать вот так:
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 Command1_Click() Dim r As Long r = CreateEllipticRgn(0, 0, Command1.Width \ Screen.TwipsPerPixelX, Command1.Height \ Screen.TwipsPerPixelY) SetWindowRgn Command1.hWnd, r, True End Sub Private Sub Form_Load() Me.BackColor = vbBlack End Sub Уничтожить забыл как ![]() |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 11 Ответов: 51 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 21.09.05 23:49 |
это немного не то |
Номер ответа: 3 Автор ответа: ![]() ![]() ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | Цитата | #3 | Добавлено: 21.09.05 23:58 |
Я находил примеры не только для форм. Походи по сайтам. Где то один валялся у меня даже. Не найдешь пиши мыло. |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #4 | Добавлено: 22.09.05 00:04 |
А как ты себе это представляешь? Овальный RichTextBox например ![]() ![]() |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 11 Ответов: 51 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 22.09.05 01:41 |
Андрей vitaf@rbcmail.ru спасибо
нестандартный - не обязательно овальный, например просто с обрезанными углами и тп а в общем по фантазии например форму по картинке можно обрезать |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 86 Ответов: 920 |
Профиль | Цитата | #6 | Добавлено: 22.09.05 03:40 |
нестандартный - не обязательно овальный, например просто с обрезанными углами и тп
а в общем по фантазии например форму по картинке можно обрезать ugu,i budet u tebya potom RichTextBox s dyrkoj v centre... ![]() |
Номер ответа: 7 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 22.09.05 05:52 |
дык а какая разница к чему приделывать готовый регион? замени hwnd формы на hwnd твоего текстбокса |
Номер ответа: 8 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 11 Ответов: 51 |
Web-сайт: Профиль | Цитата | #8 | Добавлено: 22.09.05 16:29 |
Morpheus
Хорошая мысль! Кстати и про дырке в центре RichTextBox от AASoft тоже ![]() ![]() |
Страница: 1 |
|