Dim pnl_body As WinForm.panel
pnl_body = e.Form.CreateControl("pnl", ControlTypeEnum.panel)
pnl_body.Left = 10
pnl_body.Top = 10
e.Form.AddControl(pnl_body)
Dim lbl As WinForm.Button
lbl = e.Form.CreateControl("lable1", ControlTypeEnum.Button)
lbl.Text = "Foxtable"
lbl.Left = 10
lbl.Top = 10
lbl.BackColor = Color.Red
lbl.Image = GetImage("Accept.Ico")
lbl.ImageAlign = ContentAlignment.MiddleLeft
lbl.TextAlign = ContentAlignment.MiddleRight
pnl_body.AddControl(lbl)
Dim lbl2 As WinForm.CheckBox
lbl2 = e.Form.CreateControl("lable1", ControlTypeEnum.CheckBox)
lbl2 .Text = "Foxtable"
lbl2.Left = 90 是否可以基于参考控件间距定位
lbl2 .Top = 10
lbl2 .TextImageRelation = TextImageRelation.ImageAboveText
lbl2.CheckAlign = ContentAlignment.BottomCenter
lbl2 .CheckAlign = ContentAlignment.TopCenter
pnl_body.AddControl(lbl2)
加好友 
发短信
Post By：2022/2/9 13:04:00 [只看该作者]
