https://bugs.documentfoundation.org/show_bug.cgi?id=150185

Rafael Lima <rafael.palma.l...@gmail.com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |rafael.palma.l...@gmail.com

--- Comment #3 from Rafael Lima <rafael.palma.l...@gmail.com> ---
As pointed out by Mike, using Object or Variant as the type of p(0) will work.

Sub Test1
  Dim p(0) As Object
  Dim h As New com.sun.star.awt.Point
  h.X=1
  p(0)=h
  Msgbox "h.X=" & h.X & " p(0).X=" & p(0).X 
End Sub

Now one thing bent my mind. Although printing p(0).X returns 0, if you inspect
p(0) using XRay Tool you'll see that X = 1 inside p(0). What gives?

Sub Test2
  Dim p(0) As New com.sun.star.awt.Point
  Dim h As New com.sun.star.awt.Point
  h.x = 1
  p(0) = h
  MsgBox p(0).X ' Prints 0
  XRay p(0) ' Here p(0).X is equal to 1
End Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.

Reply via email to