0

我想在单击位置的网格中添加一个网格。该网格有一个用户控件作为其内容。在主网格中的单击事件上,我通过以下代码获得了关于该网格的信息:

Dim mousePositin As Point 
mousePosition = Mouse.GetPosition(gridFloorPlans)

之后我通过这段代码添加了子网格:

Dim UC As New UserControl1
Dim gr As New Grid

gr.Children.Add(UC)
gr.Height = 31
gr.Width = 31

Dim thick As New Thickness
thick.Left = mousePosition.X
thick.Top = mousePosition.Y
gr.Margin = thick

gridFloorPlans.Children.Add(gr)

问题是这个网格被添加但不是在离位置很远的那个位置。有什么问题?我怎样才能正确地做到这一点?

4

0 回答 0