专家坐堂-动态锚定控件Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- 动态锚定控件

老师, 我想实现一个功能, 在一个窗口上方设置一个选项按钮, 下面分别放置2个表格,分别为"MS"和"PO ChangeNotice", 如为真,则下方 PO changeNotice 表在窗口显示, 此时需要确认其高度(因为需要匹配不同的显示器),并将"MS"表的高度调整为窗口总高- 表控件"PO ChangeNotice" 的高度, 如果选项按钮为False, 则"MS"表控件高度调整为表总高- "MS"控件的.Top 值再减2, 2为留出的下边缘距离.

我编制了如下程序, 在预览时下面的th 值正常, 但当应用后发现 th值就为空了, 所以我直接将其改为了831, 我不清楚为什么这个时候不能动态调用 e.form.baseForm.height, 这个动态的控件锚定又如何写? 谢谢!

Dim ShowPOChange As Boolean = e.Sender.Checked

Dim MS As WinForm.Table = e.Form.Controls("MasterSales")

\'Dim th As Integer = e.Form.BaseForm.Height

Dim th As Integer =831 \' Forms("MasterSales").BaseForm.Height

\'MessageBox.Show(th)

If ShowPOChange = True Then \'显示PO change Notice, MS 高度调整,并设定锚定为上,左右

MS.Height = 360

MS.Anchor = System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right

With e.Form.Controls("ChangeNotice")

.Visible = True \'显示变更通知, 锚定不变(上下左右)

.Top = MS.Top + MS.Height + 2

.Height = th - e.Form.Controls("ChangeNotice").Top - 1

End With

Else \'不显示变更通知

e.Form.Controls("ChangeNotice").Visible = False

e.Form.Controls("MasterSales").Height = th - MS.Top - 1 \' 360 + 183

MS.Anchor = System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right Or System.Windows.Forms.AnchorStyles.Bottom \'上下左右

End If