Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Как сделать прямоугольник Добавлено: 13.03.07 20:26  

Автор вопроса:  noname_kazan
Как сделать прямоугольник с закруглёнными углами
т.е. мне нужна форма с закруглёнными углами, textbox и кнопки ??

Ответить

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

Номер ответа: 1
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
 Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #1
Добавлено: 13.03.07 20:38
Закругляем форму.
Код в форме
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


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-сайт: Rus-Skipper.narod.ru
 Профиль | | #3
Добавлено: 13.03.07 21:08
Станет

Ответить

Номер ответа: 4
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
 Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #4
Добавлено: 13.03.07 21:12
А ты сделай свой заголовок, со своими кнопками,
можещь и скины даже потом использовать.

Ответить

Номер ответа: 5
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
 Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #5
Добавлено: 13.03.07 21:21
Насчет кнопок смотри
Как сделать треугольную кнопку на VB 6.0?
здесь же на форуме, 9 числа сего месяца.

Ответить

Номер ответа: 6
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #6 Добавлено: 14.03.07 14:27
А форма не станет как на 98-ом windows ??
Станет

Приципить к форме манифест и после изминения формы заново вызвать 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 () - это апишка.

Ее вызывать вот так
Call InitCommonControls


а приципить манифест так
положи файл манифеста таким образом <прога>.exe.manifest

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам