Dim split As WinForm.SplitContainer
Dim pnl As WinForm.Panel
Dim tbl As WinForm.Table
Dim but As WinForm.Button
With e.form
' 创建split分隔
split = e.Form.CreateControl("split1", ControlTypeEnum.splitcontainer)
split.Dock = Windows.Forms.DockStyle.Fill
split.Orientation = windows.Forms.Orientation.horizontal
split.splitterwidth = 4
e.form.addcontrol(split)
split.SplitterDistance = 500
'创建panel工具栏
pnl = e.Form.CreateControl("pnl1", ControlTypeEnum.panel)
pnl.SetBounds(200, 0, 400,40)
pnl.Topmost = True
pnl.backcolor= Color.FromARGB(187,0,10,203)
split.Panel1.AddControl(pnl)
'创建按钮
but = e.Form.CreateControl("butadd", ControlTypeEnum.button)
split.Panel1.AddControl(but)
but.TopMost = True
End With
我理解错了！
[此贴子已经被作者于2011-7-21 10:17:55编辑过]
加好友 
发短信
Post By：2011/7/21 9:56:00 [显示全部帖子]
