Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

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

Страница: 1 |

 

  Вопрос: форма Добавлено: 31.07.02 15:25  

Автор вопроса:  ANARCHY | Web-сайт: www.ishine.h1.ru
Люди, как закруглить края у формы со свойством BorderStyle равном 0-None(Если возможно - не используя рисунков с просрачными краями).

Ответить

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

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



Администратор

ICQ: 147688925 

Вопросов: 24
Ответов: 708
  Web-сайт: www.vbnet.ru
 Профиль | Цитата | #1 		Добавлено: 31.07.02 19:15

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
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 Long) As Long

Private Sub Form_Load()
    Dim lRgn As Long

    lRgn = CreateRoundRectRgn(0, 0, Me.ScaleWidth / Screen.TwipsPerPixelX, Me.ScaleHeight / Screen.TwipsPerPixelY, 20, 20)
    SetWindowRgn Me.hWnd, lRgn, True
    DeleteObject lRgn
End Sub

Ответить

Номер ответа: 2
Автор ответа:
 LIS



Вопросов: 7
Ответов: 256
  Профиль | Цитата | #2 Добавлено: 31.07.02 21:05

Be carefull ! This functions do not work with Windows 95 !!!!

We had problem with all PCs with W95 in our company.

So , check before ...

Module:

Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Public Type OSVERSIONINFO

dwOSVersionInfoSize As Long

dwMajorVersion As Long

dwMinorVersion As Long

dwBuildNumber As Long

dwPlatformId As Long

szCSDVersion As String * 128

End Type

Public info As OSVERSIONINFO

main form:

info.dwOSVersionInfoSize = Len(info)

GetVersionEx info

If info.dwMajorVersion = 5 Then

res = createRound()

Else

If info.dwMinorVersion > 0 Then

res = createRound()

End If

End If

Ответить

Страница: 1 |

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



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