Part | Description | |
object | Required. A valid object. | |
Single | Optional. The number of points of the height or width of the tabs on a TabStrip or MultiPage. |
Private Sub UpdateTabWidth()
TextBox1.Text = SpinButton1.Value
TabStrip1.TabFixedWidth = SpinButton1.Value
MultiPage1.TabFixedWidth = SpinButton1.Value
End Sub
Private Sub UpdateTabHeight()
TextBox2.Text = SpinButton2.Value
TabStrip1.TabFixedHeight = SpinButton2.Value
MultiPage1.TabFixedHeight = SpinButton2.Value
End Sub
Private Sub UserForm_Initialize()
MultiPage1.Style = fmTabStyleButtons
Label1.Caption = "Tab Width"
SpinButton1.Min = 0
SpinButton1.Max = TabStrip1.Width / TabStrip1.Tabs.Count
SpinButton1.Value = 0
TextBox1.Locked = True
UpdateTabWidth
Label2.Caption = "Tab Height"
SpinButton2.Min = 0
SpinButton2.Max = TabStrip1.Height
SpinButton2.Value = 0
TextBox2.Locked = True
UpdateTabHeight
End Sub
Private Sub SpinButton1_SpinDown()
UpdateTabWidth
End Sub
Private Sub SpinButton1_SpinUp()
UpdateTabWidth
End Sub
Private Sub SpinButton2_SpinDown()
UpdateTabHeight
End Sub
Private Sub SpinButton2_SpinUp()
UpdateTabHeight
End Sub