Crea sito

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