Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Работа с контролами  
     
  Создание формы или контрола произвольной формы  
  Добавьте на форму 3 CommandButton. Запустите проект и поочередно нажимайте на кнопки
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode 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 Declare Function Polyline Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim Result As Long
'замените цифру '4' ниже на то количество углов, которое вы хотите получить при создании формы
Dim Points(1 To 4) As POINTAPI
Private Sub Command1_Click()
'демонстрация того, как изменится форма
Call Polyline(Form1.hdc, Points(1), 4)
End Sub
Private Sub Command2_Click()
'создание произвольной формы
hRgn = CreatePolygonRgn(Points(1), 4, 1)
'Если вы хотите создать произвольную форму любому контролу, замените, к примеру Form1.hWnd на Command1.hWnd
'вместо Command1 вы можете использовать любой контрол, имеющий .hWnd
Result = SetWindowRgn(Form1.hWnd, hRgn, True)
End Sub
Private Sub Command3_Click()
'восстановить оригинальные значения формы
Result = SetWindowRgn(Form1.hWnd, 0, True)
End Sub
Private Sub Form_Load()
Points(1).X = 500
Points(1).Y = 500
Points(2).X = 0
Points(2).Y = 0
Points(3).X = 1000
Points(3).Y = 0
Points(4).X = 500
Points(4).Y = 500
End Sub
 
     
  VBNet online (всего: 51216)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам