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

借用一张网图说明需求

在网上找了一圈,没有找到直接通过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

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

看不见就当不存在吧 : )

 

 

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章