实现TabControl 选项卡首个标签缩进的方法

Posted 2020-11-13 towerbit

借用一张网图说明需求

在网上找了一圈，没有找到直接通过API或者重绘TabControl 的解决方法，最后灵机一动想到了一个折（tou）中（lan）的解决办法

 1 Tab1.TabPages.Clear()
 2 Tab1.SizeMode = TabSizeMode.Fixed
 3 Tab1.TabPages.Add("")
 4 Tab1.TabPages.Add("标签一")
 5 Tab1.TabPages.Add("标签二")
 6 Tab1.SelectedIndex = 1
 7 
 8 AddHandler Tab1.Selecting, Sub(sender As Object, ByVal e As TabControlCancelEventArgs)
 9                                 If e.TabPageIndex < 1 Then
10                                     e.Cancel = True
11                                 End If
12                            End Sub

当然要完美善后还是需要用户自绘标签，使第一个标签与背景色一致，这部分就不赘述了。

看不见就当不存在吧 : )