| Вопрос: нестандартная форма | Добавлено: 20.09.05 22:31 |
Автор вопроса:  Виталий | Web-сайт: www.feshin.info
|
|
на сайте много примеров создания формы нестандартных очертаний
но как сделать нестандартными формы элементов например RichTextBox |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Morpheus Вопросов: 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 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #3 | Добавлено: 21.09.05 23:58 |
| Я находил примеры не только для форм. Походи по сайтам. Где то один валялся у меня даже. Не найдешь пиши мыло. | ||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик 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 Автор ответа: AASoft Вопросов: 86 Ответов: 920 |
Профиль | | #6 | Добавлено: 22.09.05 03:40 |
|
нестандартный - не обязательно овальный, например просто с обрезанными углами и тп
а в общем по фантазии например форму по картинке можно обрезать ugu,i budet u tebya potom RichTextBox s dyrkoj v centre...
|
||
|
Номер ответа: 7 Автор ответа: MorpheusВопросов: 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 |