sintassi per Page e TabScript
esci con vbasintassi.htm
tabx3.ppt simile a paginex3.ppt
Private Sub CommandButton1_Click()
Label1.Visible = True
Label3.Visible = True
End Sub
Private Sub CommandButton2_Click()
Label1.Visible = False
Label3.Visible = False
End Sub
Private Sub CommandButton3_Click()
TabStrip1.tab1.Visible = False
TabStrip1.tab2.Visible = False
TabStrip1.tab3.Visible = False
TabStrip1.tab4.Visible = False
TabStrip1.tab5.Visible = False
TabStrip1.tab6.Visible = False
End Sub
Private Sub CommandButton4_Click()
TabStrip1.tab1.Visible = True
TabStrip1.tab2.Visible = True
TabStrip1.tab3.Visible = True
TabStrip1.tab4.Visible = True
TabStrip1.tab5.Visible = True
TabStrip1.tab6.Visible = True
End Sub
Private Sub TabStrip1_Change()
End Sub
Private Sub TabStrip2_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Activate()
Rem modifica nome a schede
Rem notare la indicizzazione da 0 a 5
Rem per le schede da 1 a 6
TabStrip1.BackColor = vbRed
TabStrip2.BackColor = vbYellow
Rem modifica nome a TAB
TabStrip1.tab1.Caption = ("s1a")
TabStrip1.tab2.Caption = ("s2a")
TabStrip1.tab3.Caption = ("s3a")
TabStrip1.tab4.Caption = ("s4a")
TabStrip1.tab5.Caption = ("s5a")
TabStrip1.tab6.Caption = ("s6a")
TabStrip2.tab1.Caption = ("s1b")
TabStrip2.tab2.Caption = ("s2b")
End Sub