DX使用随记--TabControl

 

1. 关闭TabControl选项卡：

　　Private Sub TabControl_Main_CloseButtonClick(sender As Object, e As EventArgs) Handles TabControl_Main.CloseButtonClick

　　Dim TpA As DevExpress.XtraTab.ViewInfo.ClosePageButtonEventArgs = e
　　　　For Each P1 As DevExpress.XtraTab.XtraTabPage In TabControl_Main.TabPages
　　　　　　If P1.Text = TpA.Page.Text Then
　　　　　　　　TabControl_Main.TabPages.Remove(P1)
　　　　　　　　P1.Dispose()
　　　　　　　　Exit Sub
　　　　　　End If
　　　　Next
　　End Sub