主题：动态生成控件的锚定停靠设置

老师，这哪儿不对？

 需要效果：

此主题相关图片如下：需要效果.png

实际效果：

此主题相关图片如下：实际效果.png

代码如下：

Dim rad1 As WinForm.RadioButton
rad1 = e.Form.CreateControl("RadioButton1",ControlTypeEnum.RadioButton)
rad1.Text = "大图标"
rad1.SetBounds(7,376,80,25)
rad1.Dock= 2 '锚定
e.Form.Controls("TabControl1").Tabpages(0).AddControl(rad1)

Dim rad2 As WinForm.RadioButton
rad2 = e.Form.CreateControl("RadioButton2",ControlTypeEnum.RadioButton)
rad2.Text = "小图标"
rad2.SetBounds(87,376,80,25)
rad2.Dock= 2 '锚定
e.Form.Controls("TabControl1").Tabpages(0).AddControl(rad2)

Dim rad3 As WinForm.RadioButton
rad3 = e.Form.CreateControl("RadioButton3",ControlTypeEnum.RadioButton)
rad3.Text = "平铺"
rad3.SetBounds(167,376,80,25)
rad3.Dock= 2 '锚定
e.Form.Controls("TabControl1").Tabpages(0).AddControl(rad3)

Dim rad4 As WinForm.RadioButton
rad4 = e.Form.CreateControl("RadioButton4",ControlTypeEnum.RadioButton)
rad4.Text = "列表"
rad4.SetBounds(247,376,80,25)
rad4.Dock= 2 '锚定
e.Form.Controls("TabControl1").Tabpages(0).AddControl(rad4)

rad1.Dock= 2 这个用法去掉

老师，用代码都不行呢？生成的lvw控件，有上、下、左、右拉伸，麻烦看看。

    Dim lvw0 As WinForm.ListView
    lvw0  = e.Form.CreateControl("ListView1",ControlTypeEnum.ListView)
    lvw0.SetBounds(0,0,704,368)
    'lvw0.Dock= System.Windows.Forms.DockStyle.top '停靠
    lvw0.Anchor = system.Windows.Forms.AnchorStyles.Top Or system.Windows.Forms.AnchorStyles.Bottom Or system.Windows.Forms.AnchorStyles.Left Or system.Windows.Forms.AnchorStyles.Right '锚定
    e.Form.Controls("TabControl1").Tabpages(0).AddControl(lvw0)

    Dim rad1 As WinForm.RadioButton
    rad1 = e.Form.CreateControl("RadioButton1",ControlTypeEnum.RadioButton)
    rad1.Text = "大图标"
    rad1.SetBounds(7,376,80,25)
    rad1.Dock= System.Windows.Forms.DockStyle.bottom '停靠
    rad1.Anchor = system.Windows.Forms.AnchorStyles.Left Or system.Windows.Forms.AnchorStyles.Bottom '锚定
    e.Form.Controls("TabControl1").Tabpages(0).AddControl(rad1)

    Dim rad2 As WinForm.RadioButton
    rad2 = e.Form.CreateControl("RadioButton2",ControlTypeEnum.RadioButton)
    rad2.Text = "小图标"
    rad2.SetBounds(87,376,80,25)
    rad2.Dock= System.Windows.Forms.DockStyle.bottom '停靠
    rad2.Anchor = system.Windows.Forms.AnchorStyles.Left Or system.Windows.Forms.AnchorStyles.Bottom  '锚定
    e.Form.Controls("TabControl1").Tabpages(0).AddControl(rad2)

    Dim rad3 As WinForm.RadioButton
    rad3 = e.Form.CreateControl("RadioButton3",ControlTypeEnum.RadioButton)
    rad3.Text = "平铺"
    rad3.SetBounds(167,376,80,25)
    rad3.Dock= System.Windows.Forms.DockStyle.bottom '停靠
    rad3.Anchor = system.Windows.Forms.AnchorStyles.Left Or system.Windows.Forms.AnchorStyles.Bottom '锚定
    e.Form.Controls("TabControl1").Tabpages(0).AddControl(rad3)

    Dim rad4 As WinForm.RadioButton
    rad4 = e.Form.CreateControl("RadioButton4",ControlTypeEnum.RadioButton)
    rad4.Text = "列表"
    rad4.SetBounds(247,376,80,25)
    rad4.Dock= System.Windows.Forms.DockStyle.bottom '停靠
    rad4.Anchor = system.Windows.Forms.AnchorStyles.Left Or system.Windows.Forms.AnchorStyles.Bottom '锚定
    e.Form.Controls("TabControl1").Tabpages(0).AddControl(rad4)

去掉也不对。

老师，麻烦看看我动态添加的lvw控件，需要在ListView控件中的RowActivate事件中写以下代码，应该写到哪儿？

Dim r As DataRow  = e.Sender.Current.tag
Dim dr As DataRow = DataTables("用户管理").Find("',' + 菜单可用集合 + ',' like '%," & r("编号") & ",%' and 账号='" & _username & "'")
If dr IsNot Nothing Then
    Functions.remove("函数")
    Dim Code As String
    Code = e.sender.current.tag("代码")
    Functions.Add("函数",Code)
    Functions.Complie()
    Functions.Execute("函数")

    '页签
    Vars("yq") = 1
    Dim t As C1Command.C1DockingTab = Forms("主窗口").Controls("TabControl1").BaseControl
    t.CanCloseTabs = True
    t.CloseBox = 2
    AddHandler t.TabPageClosing, AddressOf _TabPageClosing
Else
    MessageBox.Show("你没有使用权限,请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

机构：重庆分公司，用户名：chongqing 密码：123456