| Вопрос: Форма и кнопки | Добавлено: 03.03.07 11:48 |
Автор вопроса:  noname_kazan
|
| Как можно сделать форму и кнопки закруглёнными ?? |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Djon Вопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #1 | Добавлено: 03.03.07 12:09 |
|
Я на эту тему написал статью. Называется Нестандартные формы:
http://ipatovsoft.ucoz.ru/publ/ |
||
|
Номер ответа: 2 Автор ответа: noname_kazan Вопросов: 12 Ответов: 12 |
Профиль | | #2 | Добавлено: 03.03.07 12:15 |
| спасибо | ||
|
Номер ответа: 3 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #3 | Добавлено: 03.03.07 12:17 |
| Форму — через API (ф-ии по памяти: GetWindowRect, SetWindowLong... примера нетy у меня), а вот кнопки — только если собственный контрол сделать. | ||
|
Номер ответа: 4 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #4 | Добавлено: 03.03.07 12:24 |
|
а вот кнопки — только если собственный контрол сделать.
Ты не прав вот смотри: 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 Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Sub Form_Load() Dim rgn As Long Dim wid As Single Dim hgt As Single Command1.BackColor = RGB(255, 0, 0) wid = ScaleX(Command1.Width, vbTwips, vbPixels) hgt = ScaleY(Command1.Height, vbTwips, vbPixels) rgn = CreateEllipticRgn(0, 0, wid, hgt) SetWindowRgn Command1.hWnd, rgn, True DeleteObject rgn End Sub |
||
|
Номер ответа: 5 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #5 | Добавлено: 03.03.07 12:25 |
|
Извеняюсь,Вот :
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 Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Sub Form_Load() Dim rgn As Long Dim wid As Single Dim hgt As Single Command1.BackColor = RGB(255, 0, 0) wid = ScaleX(Command1.Width, vbTwips, vbPixels) hgt = ScaleY(Command1.Height, vbTwips, vbPixels) rgn = CreateEllipticRgn(0, 0, wid, hgt) SetWindowRgn Command1.hWnd, rgn, True DeleteObject rgn End Sub |
||
|
Номер ответа: 6 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #6 | Добавлено: 03.03.07 12:27 |
| Прикольно.Но смотритса не очень. | ||
|
Номер ответа: 7 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #7 | Добавлено: 03.03.07 12:28 |
| noname_kazan скачай сайта контрол "Xp-кнопка" | ||
|
Номер ответа: 8 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #8 | Добавлено: 03.03.07 12:33 |
| Вспомнил, есть прога помоему GreatForm, нестандартные формы создаёт. Клёво | ||
Страница: 1 |