Visual Basic - Problema con Uso de PtInRegion y CreatePolygonRgn

Life is soft - evento anual de software empresarial
   
Vista:

Problema con Uso de PtInRegion y CreatePolygonRgn

Publicado por Juan Abedala (1 intervención) el 21/06/2010 01:55:39
Tengo el siguiente codigo y no funciona me prodrian ayudar. Gracias.
El codigo se ejecuta dentro del evento MouseMove en un Picture.
Ejecutar el codigo no falla, pero tampoco realiza bien la operacion.

Dim curvePoints(0 To 6) As Point
Dim hrgn AsLong

x1 = sender.MousePosition.X
y1 = sender.MousePosition.Y

curvePoints(0).X = 0 : curvePoints(0).Y = 0
curvePoints(1).X = 100 : curvePoints(1).Y = 25
curvePoints(2).X = 200 : curvePoints(2).Y = 5
curvePoints(3).X = 250 : curvePoints(3).Y = 50
curvePoints(4).X = 300 : curvePoints(4).Y = 100
curvePoints(5).X = 350 : curvePoints(5).Y = 200
curvePoints(6).X = 250 : curvePoints(6).Y = 250

hrgn = CreatePolygonRgn(curvePoints(0), UBound(curvePoints), 1)
If PtInRegion(hrgn, x1, y1) <> 0 Then
TextBox1.Text = "A D E N T R O !!!"
Else
TextBox1.Text = "Estoy Afuera"
EndIf
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de RAUL

Problema con Uso de PtInRegion y CreatePolygonRgn

Publicado por RAUL (439 intervenciones) el 30/04/2011 17:05:06
Y que es lo que deberia hacer o deseas hacer??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar