16,549
社区成员
发帖
与我相关
我的任务
分享
'这个Fixed设置是必须的
Me.TabControl1.SizeMode = TabSizeMode.Fixed
'设置标签宽度
Dim totalWidth As Integer = Me.TabControl1.Width
Dim pageCount As Integer = Me.TabControl1.TabPages.Count
'最后-1 因为tabcontrol有留margin,得空出margin的空间
Dim pageWidth As Integer = totalWidth / pageCount - 1
'ItemSize在SizeMode = TabSizeMode.Fixed才生效
Me.TabControl1.ItemSize = New Size(width, Me.TabControl1.ItemSize.Height)