VBNet - Форум - Окно не стандартной формы...

Вопрос: Окно не стандартной формы... Добавлено: 18.03.04 08:28

Автор вопроса: POD_Luka | ICQ: 334099107

Есть код в 98 работает XP нет - это окно нестандартной формы..
почему так?
Begin VB.Form FormName
   Caption = "FormCaption"
   ClientHeight = 3840
   ClientLeft = 60
   ClientTop = 345
   ClientWidth = 3120
   LinkTopic = "FormName"
   ScaleHeight = 3840
   ScaleWidth = 3120
   StartUpPosition = 3    'Windows Default
End
Attribute VB_Name = "FormName"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Эти строки добавлены автоматически
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hrgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Type POINTAPI
        X As Long
        Y As Long
End Type
Dim points1() As POINTAPI
Private Sub Form_Load()
Dim Hrgn as Long
ScaleMode = 3 'Не меняйте эту установку
ReDim points1(0 To 6) As POINTAPI
points1(0).X = 0
points1(0).Y = 0
points1(1).X = 34
points1(1).Y = 42
points1(2).X = 14
points1(2).Y = 80
points1(3).X = 46
points1(3).Y = 102
points1(4).X = 107
points1(4).Y = 55
points1(5).X = 157
points1(5).Y = 55
points1(6).X = 200
points1(6).Y = 0
hrgn = CreatePolygonRgn(points1(0), 7, 0)
SetWindowRgn FormName.hWnd, hrgn, True
End Sub

Ответить

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

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

sne

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

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #1

Добавлено: 18.03.04 09:29

У тебя регион не создается... Попробуй так, Hrgn = CreatePolygonRgn(points1(0), 7, 1)

Ответить

Номер ответа: 2 Автор ответа: Artificial Intelligence ICQ: 275368971 Вопросов: 8 Ответов: 131	Профиль \| \| #2	Добавлено: 18.03.04 14:20
	Так должно работать hRgn = CreatePolygonRgn(points1(0),6, 2) Ответить

Номер ответа: 3
Автор ответа:

sne

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

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #3

Добавлено: 18.03.04 16:46

2Artificial Intelligence, а все-таки второй параметр должен быть 7 !!! (кол-во)

Ответить

Номер ответа: 4 Автор ответа: POD_Luka ICQ: 334099107 Вопросов: 10 Ответов: 19	Профиль \| \| #4	Добавлено: 19.03.04 08:11
	Спасибо sne работает!!! Ответить

Страница: 1 |