Как проверить принадлежит ли точка (x,y) заданому региону?

[AlexBlack]

регион задаётся через CreateRoundRectRgn

[d3drm]

разделить регион на треугольники и протестить каждый...

[AlexBlack]

Ещё гениальные предложения будут?

[Amed]

PtInRegion отменяли? Ну-ка марш в апи-гайд!

[AlexBlack]

да-да....
Незнаю... последнее время лезь лень в справочник (А особенно когда есть такие харошие люди как вы! )

[Amed]

Код: Выделить всё

Private Declare Function PtInRegion Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y 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 Sub Form_Load()
Dim hReg As Long
Dim hRes As Long
hReg = CreateRoundRectRgn(0, 0, 500, 500, 100, 100)
hRes = PtInRegion(hReg, 250, 250)
MsgBox hRes
End Sub

Что тут лениться? Одна минута на создание примера с нуля!

[AlexBlack]

да не... когда я постил свой месадж уже было всё готово.... просто на поиски апишки лень био-энергию тратить... :):)

[AlexBlack]

да-да.... есть такое немного...