Crea sito

sintassi per Page e TabScript

esci con vbasintassi.htm

paginex2.ppt

Private Sub CommandButton1_Click()
Label1.Visible = True
End Sub


Private Sub CommandButton2_Click()
Rem Label1.Visible = False
End Sub

Private Sub CommandButton3_Click()
Image1.Visible = True
Image2.Visible = True
End Sub

Private Sub CommandButton4_Click()
Image1.Visible = False
Image2.Visible = False
End Sub

Private Sub CommandButton5_Click()
MultiPage1.page1.Visible = False
End Sub

Private Sub CommandButton6_Click()
MultiPage1.page2.Visible = False
End Sub

Private Sub CommandButton7_Click()
MultiPage1.page1.Visible = True
End Sub

Private Sub CommandButton8_Click()
MultiPage1.page2.Visible = True
End Sub

Private Sub MultiPage1_Change()
MultiPage1.page1.ScrollBars = 1
MultiPage1.page2.ScrollBars = 2
MultiPage1.page3.ScrollBars = 3
MultiPage1.page4.ScrollBars = 0
MultiPage1.page5.ScrollBars = 3

End Sub



Private Sub MultiPage2_Change()
MultiPage2.page6.Caption = "0 prima p."
MultiPage2.page7.Caption = "1 seconda p."
MultiPage2.page6.ScrollBars = 1
MultiPage2.page7.ScrollBars = 2

End Sub

Private Sub UserForm_Click()
Label1.Width = 200
Label1.Height = 300
Label2.Width = 220
Label2.Height = 180
Label3.Width = 240
Label3.Height = 160
Label4.Width = 260
Label4.Height = 140
Label5.Width = 280
Label5.Height = 300
End Sub
Private Sub UserForm_Activate()
Rem MultiPage1.page1.Caption = "0 prima"
Rem MultiPage1.page2.Caption = "1 seconda"
Rem rem MultiPage1.page3.Caption = "2 terza"
Rem MultiPage1.page4.Caption = "3 quarta"
Rem MultiPage1.page5.Caption = "4 quinta"

Rem MultiPage1.Pages(0).Caption = "0 prima..."
Rem MultiPage1.Pages(1).Caption = "1 seconda..."
Rem MultiPage1.Pages(2).Caption = "2 terza..."
Rem MultiPage1.Pages(3).Caption = "3 quarta.."
Rem MultiPage1.Pages(4).Caption = "4 quinta..."

Rem MultiPage1.Pages.Item("page1").Caption = "0 prima+++"
Rem MultiPage1.Pages.Item("page2").Caption = "1 seconda ++"
Rem MultiPage1.Pages.Item("page3").Caption = "2 terza+++"
Rem MultiPage1.Pages.Item("page4").Caption = "3 quarta +++"
Rem MultiPage1.Pages.Item("page5").Caption = "4 quinta+++"

MultiPage1.page1.Caption = "0 prima"
MultiPage1.page2.Caption = "1 seconda"
MultiPage1.Pages(2).Caption = "2 terza ..."
MultiPage1.Pages(3).Caption = "3 quarta ..."
MultiPage1.Pages.Item("page5").Caption = "4 quinta +++"

End Sub