lunes, 8 de abril de 2013

Para no olvidar.... Sacar la posición de un control respecto a su formulario sin importar q el control este dentro de mil contenedores... claro en VB.net


Private Function FindLocation(ctrl As Control) As Point
 If TypeOf ctrl.Parent Is Form Then
  Return ctrl.Location
 Else
  Dim p As Point = FindLocation(ctrl.Parent)
  p.X += ctrl.Location.X
  p.Y += ctrl.Location.Y
  Return p
 End If
End Function

No hay comentarios.: