Страница: 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 |
|