click

If e.Sender.name Like "关闭*" Then
    Dim tab As WinForm.TabControl=e.Form.Controls(e.Sender.name.split("_")(1) & "_" & e.Sender.name.split("_")(2))
    Dim pg As WinForm.TabPage = tab.TabPages("tab_测试" & "_" &e.Sender.name.split("_")(3))
    Dim btn As WinForm.Button=e.form.Controls("btn_Title_" & e.Sender.name.split("_")(3))
    btn.Visible = False
    pg.Visible = False
    Dim pidx As object = vars("p1_pidx")
    Dim ndic As new Dictionary(Of String, String)
    For Each key As String In pidx.keys
        If key <> btn.name Then
            ndic.add(key, key)
        End If
    Next
    vars("p1_pidx") = ndic
End If
If e.Sender.name Like "btn_Title_*" Then
    Dim tab As WinForm.TabControl=e.Form.Controls("tab_测试")
    Dim pg As WinForm.TabPage = tab.TabPages("tab_测试" & "_" &e.Sender.name.split("_")(2))
    tab.SelectedPage = pg
End If