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
更多精彩
