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

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: как нестандартные формы в vb.net Добавлено: 17.06.03 10:11  

Автор вопроса:  Шурила
Будьте добры, скажите хоть в каком направлении копать?

Ответить

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

Номер ответа: 1
Автор ответа:
 Шурила



Вопросов: 2
Ответов: 1
  Профиль | | #1 Добавлено: 17.06.03 14:17

Отбой уже сам нашел.

Imports System.Drawing.Drawing2D

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim windowRegion As Region

Dim regionPoints(4) As Point

Dim regionTypes(4) As Byte

regionPoints(0) = New Point(0, 0)

regionPoints(1) = New Point(20, 100)

regionPoints(2) = New Point(80, 100)

regionPoints(3) = New Point(120, 50)

regionPoints(4) = New Point(100, 0)

Dim Cnt As Long

For Cnt = 0 To 4

regionTypes(Cnt) = PathPointType.Line

Next Cnt

Dim regionPath As New GraphicsPath(regionPoints, regionTypes)

Me.Region = New Region(regionPath)

End Sub

Ответить

Страница: 1 |

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



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